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

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

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

revision 1.22 by cnh, Wed Sep 26 18:09:14 2001 UTC revision 1.23 by cheisey, Fri Nov 15 19:58:21 2002 UTC
# Line 35  C     == Global variables === Line 35  C     == Global variables ===
35  #include "EEPARAMS.h"  #include "EEPARAMS.h"
36  #include "PARAMS.h"  #include "PARAMS.h"
37  #include "DYNVARS.h"  #include "DYNVARS.h"
38    cswdblk --- add ---
39    #ifdef ALLOW_BULKFORMULA
40    #include "BULKF.h"
41    #include "FFIELDS.h"
42    #endif
43    cswdblk -- end add ---
44    cswdice -- add ---
45    #ifdef ALLOW_TSEAICE
46    #include "ICE.h"
47    #include "ICE_DIAGS.h"
48    #endif
49    cswdice -- end add ---
50    
51    
52    
53        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
54        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
55    
# Line 96  C--   Do KPP diagnostics. Line 111  C--   Do KPP diagnostics.
111       & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )       & CALL KPP_DO_DIAGS( myCurrentTime, myIter, myThid )
112  #endif  #endif
113    
114    cswdblk ---  add ---
115    #ifdef ALLOW_BULKFORMULA
116    C--   Do bulkf diagnostics.
117          IF (useBulkf)
118         & CALL BULKF_DIAGS( myCurrentTime, myIter, myThid )
119    #endif
120    cswdblk -- end add ---
121    
122    cswdice ---  add ---
123    #ifdef ALLOW_TSEAICE
124    C--   Do seaice diagnostics.
125          IF (useSeaice)
126         & CALL ICE_DIAGS( myCurrentTime, myIter, myThid )
127    #endif
128    cswdice -- end add ---
129    
130    
131    
132        RETURN        RETURN
133        END        END
134    
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22