pkg/thsice/thsice_turnoff_io.F

6dd8472d52 Jean*0001 #include "THSICE_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: THSICE_TURNOFF_IO
                0005 C     !INTERFACE:
                0006       SUBROUTINE THSICE_TURNOFF_IO( seqFlag, myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE THSICE_TURNOFF_IO
                0011 C     | o Turn off some of the Therm_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"
                0025 #include "THSICE_PARAMS.h"
                0026
                0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     == Routine arguments ==
                0029 C     seqFlag :: flag that indicates where this S/R is called from:
                0030 C             :: =0 called at the end of S/R COST_FINAL
                0031 C             :: =1 called at initialisation when using DIVA
                0032 C     myThid  :: my Thread Id number
                0033       INTEGER seqFlag
                0034       INTEGER myThid
                0035
                0036 C     !LOCAL VARIABLES:
                0037 C     == Local variables ==
                0038 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0039 CEOP
                0040
                0041 C--   only master-thread resets shared flags (in common block)
                0042       _BEGIN_MASTER( myThid )
                0043
                0044 C--   Set output freq. to zero to avoid re-write of
                0045 C     averaged fields in reverse checkpointing loops
                0046       thSIce_monFreq  = 0.
                0047       thSIce_diagFreq = 0.
                0048       thSIce_taveFreq = 0.
                0049
                0050       _END_MASTER( myThid )
                0051
                0052       RETURN
                0053       END