/[MITgcm]/MITgcm/pkg/admtlm/admtlm_driver.F
ViewVC logotype

Diff of /MITgcm/pkg/admtlm/admtlm_driver.F

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

revision 1.4 by heimbach, Fri Apr 29 10:36:45 2005 UTC revision 1.5 by heimbach, Tue Nov 1 04:09:46 2005 UTC
# Line 52  CEOP Line 52  CEOP
52        myCurrentIter = nIter0        myCurrentIter = nIter0
53        yadprefix = 'g_'        yadprefix = 'g_'
54    
55        IF (optimcycle .GT. 0 ) THEN        CALL CTRL_INIT( mythid )
 cph         _BEGIN_MASTER( mythid )  
 cph         IF ( myProcId .eq. 0 ) THEN  
 cph            CALL CTRL_UNPACK( .false., mythid )  
 cph         ENDIF  
 cph         _END_MASTER( mythid )  
          CALL ADMTLM_UPXX( mythid )  
       ENDIF  
56  c  c
57        CALL TIMER_START('G_THE_MAIN_LOOP           [TANGENT RUN]',mythid)        CALL TIMER_START('G_THE_MAIN_LOOP           [TANGENT RUN]',mythid)
58        CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid )        CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid )
# Line 78  c Line 71  c
71        CALL ADTHE_MAIN_LOOP (  myCurrentTime, myCurrentIter, mythid )        CALL ADTHE_MAIN_LOOP (  myCurrentTime, myCurrentIter, mythid )
72        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
73  c  c
 cph      _BEGIN_MASTER( mythid )  
 cph      IF ( myProcId .eq. 0 ) THEN  
 cph         call CTRL_PACK( .FALSE., mythid )  
 cph      ENDIF  
 cph      _END_MASTER( mythid )  
 c  
74  #endif  #endif
75    
76  #ifndef DISABLE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22