pkg/seaice/seaice_turnoff_io.F

39287b9e2b Jean*0001 #include "SEAICE_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: SEAICE_TURNOFF_IO
                0005 C     !INTERFACE:
                0006       SUBROUTINE SEAICE_TURNOFF_IO( seqFlag, myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE SEAICE_TURNOFF_IO
                0011 C     | o Turn off some of the seaice output flags
                0012 C     *==========================================================*
                0013 C     | Used in adjoint simulation (and called after the first
                0014 C     |  forward sweep) to avoid writing output multiple times (if
                0015 C     |  recomputations and/or grdchk) with the same iter number.
                0016 C     *==========================================================*
                0017 C     \ev
                0018
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021 C     === Global variables ===
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024 c#include "PARAMS.h"
7303eab4f2 Patr*0025 #include "SEAICE_SIZE.h"
39287b9e2b Jean*0026 #include "SEAICE_PARAMS.h"
                0027
                0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     == Routine arguments ==
                0030 C     seqFlag :: flag that indicates where this S/R is called from:
                0031 C             :: =0 called at the end of S/R COST_FINAL
                0032 C             :: =1 called at initialisation when using DIVA
                0033 C     myThid  :: My Thread Id number
                0034       INTEGER seqFlag
                0035       INTEGER myThid
                0036
                0037 C     !LOCAL VARIABLES:
                0038 C     == Local variables ==
                0039 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0040 CEOP
                0041
                0042 C--   only master-thread resets shared flags (in common block)
                0043       _BEGIN_MASTER( myThid )
                0044
                0045 C--   Set output freq. to zero to avoid re-write of
                0046 C     averaged fields in reverse checkpointing loops
                0047       SEAICE_monFreq  = 0.
                0048       SEAICE_dumpFreq = 0.
                0049       SEAICE_taveFreq = 0.
                0050
                0051       _END_MASTER( myThid )
                0052
                0053       RETURN
                0054       END