itd/code/seaice_turnoff_io.F

C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_turnoff_io.F,v 1.1 2010/05/09 22:35:18 jmc 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	torge	1.1	C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_turnoff_io.F,v 1.1 2010/05/09 22:35:18 jmc 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