|
||||
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 UTC39287b9e2b 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |