itd/code/seaice_turnoff_io.F

C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_turnoff_io.F,v 1.2 2012/11/09 22:15:18 heimbach Exp $
C $Name:  $

#include "SEAICE_OPTIONS.h"

CBOP
C     !ROUTINE: SEAICE_TURNOFF_IO
C     !INTERFACE:
      SUBROUTINE SEAICE_TURNOFF_IO( seqFlag, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE SEAICE_TURNOFF_IO
C     | o Turn off some of the seaice output flags
C     *==========================================================*
C     | Used in adjoint simulation (and called after the first
C     |  forward sweep) to avoid writing output multiple times (if
C     |  recomputations and/or grdchk) with the same iter number.
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
c#include "PARAMS.h"
#include "SEAICE_SIZE.h"
#include "SEAICE_PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     seqFlag :: flag that indicates where this S/R is called from:
C             :: =0 called at the end of S/R COST_FINAL
C             :: =1 called at initialisation when using DIVA
C     myThid  :: My Thread Id number
      INTEGER seqFlag
      INTEGER myThid

C     !LOCAL VARIABLES:
C     == Local variables ==
c     CHARACTER*(MAX_LEN_MBUF) msgBuf
CEOP

C--   only master-thread resets shared flags (in common block)
      _BEGIN_MASTER( myThid )

C--   Set output freq. to zero to avoid re-write of
C     averaged fields in reverse checkpointing loops
      SEAICE_monFreq  = 0.
      SEAICE_dumpFreq = 0.
      SEAICE_taveFreq = 0.

      _END_MASTER( myThid )

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_turnoff_io.F,v 1.2 2012/11/09 22:15:18 heimbach Exp $
2	C $Name: $
3
4	#include "SEAICE_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: SEAICE_TURNOFF_IO
8	C !INTERFACE:
9	SUBROUTINE SEAICE_TURNOFF_IO( seqFlag, myThid )
10
11	C !DESCRIPTION: \bv
12	C ==========================================================
13	C \| SUBROUTINE SEAICE_TURNOFF_IO
14	C \| o Turn off some of the seaice output flags
15	C ==========================================================
16	C \| Used in adjoint simulation (and called after the first
17	C \| forward sweep) to avoid writing output multiple times (if
18	C \| recomputations and/or grdchk) with the same iter number.
19	C ==========================================================
20	C \ev
21
22	C !USES:
23	IMPLICIT NONE
24	C === Global variables ===
25	#include "SIZE.h"
26	#include "EEPARAMS.h"
27	c#include "PARAMS.h"
28	#include "SEAICE_SIZE.h"
29	#include "SEAICE_PARAMS.h"
30
31	C !INPUT/OUTPUT PARAMETERS:
32	C == Routine arguments ==
33	C seqFlag :: flag that indicates where this S/R is called from:
34	C :: =0 called at the end of S/R COST_FINAL
35	C :: =1 called at initialisation when using DIVA
36	C myThid :: My Thread Id number
37	INTEGER seqFlag
38	INTEGER myThid
39
40	C !LOCAL VARIABLES:
41	C == Local variables ==
42	c CHARACTER*(MAX_LEN_MBUF) msgBuf
43	CEOP
44
45	C-- only master-thread resets shared flags (in common block)
46	_BEGIN_MASTER( myThid )
47
48	C-- Set output freq. to zero to avoid re-write of
49	C averaged fields in reverse checkpointing loops
50	SEAICE_monFreq = 0.
51	SEAICE_dumpFreq = 0.
52	SEAICE_taveFreq = 0.
53
54	_END_MASTER( myThid )
55
56	RETURN
57	END