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

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

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

revision 1.23 by heimbach, Tue Nov 20 21:14:41 2001 UTC revision 1.24 by heimbach, Fri Jan 11 19:00:43 2002 UTC
# Line 144  c--   to nTimeSteps: (nchklev_1*nchklev_ Line 144  c--   to nTimeSteps: (nchklev_1*nchklev_
144    
145        do ilev_3 = 1,nchklev_3        do ilev_3 = 1,nchklev_3
146           if(ilev_3.le.max_lev3) then           if(ilev_3.le.max_lev3) then
147  CADJ STORE gsnm1     = tapelev3, key = ilev_3  c**************************************
148  CADJ STORE gtnm1     = tapelev3, key = ilev_3  #include "checkpoint_lev3_directives.h"
149  CADJ STORE gunm1     = tapelev3, key = ilev_3  c**************************************
 CADJ STORE gvnm1     = tapelev3, key = ilev_3  
 CADJ STORE theta     = tapelev3, key = ilev_3  
 CADJ STORE salt      = tapelev3, key = ilev_3  
 CADJ STORE uvel      = tapelev3, key = ilev_3  
 CADJ STORE vvel      = tapelev3, key = ilev_3  
 CADJ STORE wvel      = tapelev3, key = ilev_3  
 CADJ STORE etan      = tapelev3, key = ilev_3  
 CADJ STORE gu        = tapelev3, key = ilev_3  
 CADJ STORE gv        = tapelev3, key = ilev_3  
 #ifdef INCLUDE_CD_CODE  
 CADJ STORE etanm1    = tapelev3, key = ilev_3  
 CADJ STORE uveld     = tapelev3, key = ilev_3  
 CADJ STORE vveld     = tapelev3, key = ilev_3  
 CADJ STORE unm1      = tapelev3, key = ilev_3  
 CADJ STORE vnm1      = tapelev3, key = ilev_3  
 CADJ STORE gucd      = tapelev3, key = ilev_3  
 CADJ STORE gvcd      = tapelev3, key = ilev_3  
 #endif  
 #ifdef ALLOW_PASSIVE_TRACER  
 CADJ STORE tr1       = tapelev3, key = ilev_3  
 CADJ STORE gtr1nm1   = tapelev3, key = ilev_3  
 #endif  
 #ifdef EXACT_CONSERV  
 CADJ STORE etaH      = tapelev3, key = ilev_3  
 CADJ STORE hDivFlow  = tapelev3, key = ilev_3  
 #endif  
150    
151  c--     Initialise storage for the middle loop.  c--     Initialise storage for the middle loop.
152  CADJ    INIT tapelev2 = USER  CADJ    INIT tapelev2 = USER
153    
154          do ilev_2 = 1,nchklev_2          do ilev_2 = 1,nchklev_2
155           if(ilev_2.le.max_lev2) then           if(ilev_2.le.max_lev2) then
156  CADJ STORE gsnm1     = tapelev2, key = ilev_2  c**************************************
157  CADJ STORE gtnm1     = tapelev2, key = ilev_2  #include "checkpoint_lev2_directives.h"
158  CADJ STORE gunm1     = tapelev2, key = ilev_2  c**************************************
 CADJ STORE gvnm1     = tapelev2, key = ilev_2  
 CADJ STORE theta     = tapelev2, key = ilev_2  
 CADJ STORE salt      = tapelev2, key = ilev_2  
 CADJ STORE uvel      = tapelev2, key = ilev_2  
 CADJ STORE vvel      = tapelev2, key = ilev_2  
 CADJ STORE wvel      = tapelev2, key = ilev_2  
 CADJ STORE etan      = tapelev2, key = ilev_2  
 CADJ STORE gu        = tapelev2, key = ilev_2  
 CADJ STORE gv        = tapelev2, key = ilev_2  
 #ifdef INCLUDE_CD_CODE  
 CADJ STORE etanm1    = tapelev2, key = ilev_2  
 CADJ STORE uveld     = tapelev2, key = ilev_2  
 CADJ STORE vveld     = tapelev2, key = ilev_2  
 CADJ STORE unm1      = tapelev2, key = ilev_2  
 CADJ STORE vnm1      = tapelev2, key = ilev_2  
 CADJ STORE gucd      = tapelev2, key = ilev_2  
 CADJ STORE gvcd      = tapelev2, key = ilev_2  
 #endif  
 #ifdef ALLOW_PASSIVE_TRACER  
 CADJ STORE tr1       = tapelev2, key = ilev_2  
 CADJ STORE gtr1nm1   = tapelev2, key = ilev_2  
 #endif  
 #ifdef EXACT_CONSERV  
 CADJ STORE etaH      = tapelev2, key = ilev_2  
 CADJ STORE hDivFlow  = tapelev2, key = ilev_2  
 #endif  
159    
160  c--       Initialize storage for the innermost loop.  c--       Initialize storage for the innermost loop.
161  c--       Always check common block sizes for the checkpointing!  c--       Always check common block sizes for the checkpointing!
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22