/[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.30 by cheisey, Thu Nov 21 19:11:42 2002 UTC revision 1.31 by dimitri, Sat Dec 28 10:11:10 2002 UTC
# Line 193  CADJ &     = COMMON,nchklev_1*snx*nsx*sn Line 193  CADJ &     = COMMON,nchklev_1*snx*nsx*sn
193  CADJ INIT comlev1_exf_2  CADJ INIT comlev1_exf_2
194  CADJ &     = COMMON,niter_bulk*nchklev_1*snx*nsx*sny*nsy*nthreads_chkpt  CADJ &     = COMMON,niter_bulk*nchklev_1*snx*nsx*sny*nsy*nthreads_chkpt
195  #endif /* ALLOW_BULK_FORCE */  #endif /* ALLOW_BULK_FORCE */
196    #ifdef ALLOW_BULKFORMULAE
197    #ifndef EXF_NO_BULK_COMPUTATIONS
198    CADJ INIT comlev1_exf_1
199    CADJ &     = COMMON,nchklev_1*snx*nsx*sny*nsy*nthreads_chkpt
200    CADJ INIT comlev1_exf_2
201    CADJ &     = COMMON,niter_bulk*nchklev_1*snx*nsx*sny*nsy*nthreads_chkpt
202    #endif EXF_NO_BULK_COMPUTATIONS
203    #endif /* ALLOW_BULKFORMULAE */
204    
205            do ilev_1 = 1,nchklev_1            do ilev_1 = 1,nchklev_1
206    
# Line 247  c--     >>> Loop body start <<< Line 255  c--     >>> Loop body start <<<
255          ikey_dynamics = ilev_1          ikey_dynamics = ilev_1
256  #endif  #endif
257    
258    
259          CALL TIMER_START('FORWARD_STEP        [THE_MAIN_LOOP]',mythid)          CALL TIMER_START('FORWARD_STEP        [THE_MAIN_LOOP]',mythid)
260          CALL FORWARD_STEP( iloop, mytime, myiter, mythid )          CALL FORWARD_STEP( iloop, mytime, myiter, mythid )
261          CALL TIMER_STOP ('FORWARD_STEP        [THE_MAIN_LOOP]',mythid)          CALL TIMER_STOP ('FORWARD_STEP        [THE_MAIN_LOOP]',mythid)
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22