Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:43:50 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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