/[MITgcm]/MITgcm/model/src/turnoff_model_io.F
ViewVC logotype

Diff of /MITgcm/model/src/turnoff_model_io.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Sun May 9 16:17:45 2010 UTC revision 1.2 by jmc, Sun May 9 22:54:29 2010 UTC
# Line 15  C     | SUBROUTINE TURNOFF_MODEL_IO Line 15  C     | SUBROUTINE TURNOFF_MODEL_IO
15  C     | o Turn off some of the model output flags  C     | o Turn off some of the model output flags
16  C     *==========================================================*  C     *==========================================================*
17  C     | Used in adjoint simulation (and called after the first  C     | Used in adjoint simulation (and called after the first
18  C     |  forward sweep) to avoid writing outputmultiple times (if  C     |  forward sweep) to avoid writing output multiple times (if
19  C     |  recomputations and/or grdchk) with the same iter number.  C     |  recomputations and/or grdchk) with the same iter number.
20  C     *==========================================================*  C     *==========================================================*
21  C     \ev  C     \ev
# Line 26  C     === Global variables === Line 26  C     === Global variables ===
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #ifdef ALLOW_MNC  c#ifdef ALLOW_MNC
30  # include "MNC_PARAMS.h"  c# include "MNC_PARAMS.h"
 #endif  
 c#ifdef ALLOW_EXF  
 c# include "EXF_PARAM.h"  
31  c#endif  c#endif
32  c#ifdef ALLOW_SEAICE  #ifdef ALLOW_EXF
33  c# include "SEAICE_PARAMS.h"  # include "EXF_PARAM.h"
34  c#endif  #endif
   
35    
36  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==  
37  C     seqFlag :: flag that indicates where this S/R is called from:  C     seqFlag :: flag that indicates where this S/R is called from:
38  C             :: =0 called at the end of S/R COST_FINAL  C             :: =0 called at the end of S/R COST_FINAL
39  C             :: =1 called at initialisation when using DIVA  C             :: =1 called at initialisation when using DIVA
# Line 47  C     myThid  :: My Thread Id number Line 42  C     myThid  :: My Thread Id number
42        INTEGER myThid        INTEGER myThid
43    
44  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
45  C     == Local variables ==  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
       INTEGER bi,bj  
       INTEGER i,j,k  
       INTEGER ks  
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
46  CEOP  CEOP
47    
48        _BARRIER        _BARRIER
49    
50    C--   only master-thread resets shared flags (in common block)
51        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
52    
53  C--   Set output freq. to zero to avoid re-write of  C--   Set output freq. to zero to avoid re-write of
54  C     averaged fields in reverse checkpointing loops  C     averaged fields in reverse checkpointing loops
55        monitorFreq  = 0.        monitorFreq  = 0.
56        dumpFreq     = 0.        dumpFreq     = 0.
57        taveFreq     = 0.        taveFreq     = 0.
58  c     chkPtFreq    = 0.        chkPtFreq    = 0.
59        pChkPtFreq   = 0.        pChkPtFreq   = 0.
60  c     dumpInitAndLast = .FALSE.        dumpInitAndLast = .FALSE.
61          writePickupAtEnd= .FALSE.
62    
63  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
64        monitor_mnc  = .FALSE.  C--   Not the best solution to fix some MNC output, since it is likely
65        snapshot_mnc = .FALSE.  C     that the same problem exists when we do not use MNC. A better fix
66        timeave_mnc  = .FALSE.  C     is to switch off the specific output freq; leave this commented out.
67    c     monitor_mnc  = .FALSE.
68    c     snapshot_mnc = .FALSE.
69    c     timeave_mnc  = .FALSE.
70  #endif  #endif
71    
72  c#ifdef ALLOW_EXF  #ifdef ALLOW_EXF
73  c     exf_monFreq = 0.  C-    should call a S/R EXF_TURNOFF_IO (like SEAICE) to reset this flag
74  c#endif        IF ( useEXF ) exf_monFreq = 0.
75  c#ifdef ALLOW_SEAICE  #endif
 c     SEAICE_monFreq  = 0.  
 c     SEAICE_dumpFreq = 0.  
 c     SEAICE_taveFreq = 0.  
 c#endif  
76    
77  C--   Disable SBO output  C--   Disable SBO output
78        useSBO       = .FALSE.        useSBO       = .FALSE.
# Line 90  C     this if we want to use diagnostics Line 83  C     this if we want to use diagnostics
83    
84        _END_MASTER( myThid )        _END_MASTER( myThid )
85    
86    C--   Package specific S/R to turn-off IO flags (all threads do call S/R)
87    
88    #ifdef ALLOW_SEAICE
89          IF ( useSEAICE ) THEN
90            CALL SEAICE_TURNOFF_IO( seqFlag, myThid )
91          ENDIF
92    #endif
93    
94    #ifdef ALLOW_PTRACERS
95          IF ( usePTRACERS ) THEN
96            CALL PTRACERS_TURNOFF_IO( seqFlag, myThid )
97          ENDIF
98    #endif
99    
100    C--   each thread waits for flags to be reset.
101        _BARRIER        _BARRIER
102    
103        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22