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

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

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

revision 1.38 by dimitri, Thu May 5 16:41:53 2005 UTC revision 1.39 by adcroft, Tue May 31 18:24:28 2005 UTC
# Line 19  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- RUNCLOCK_INIT
23    C       |
24  C       |-- DIAGNOSTICS_INIT_EARLY  C       |-- DIAGNOSTICS_INIT_EARLY
25  C       |-- DIAGNOSTICS_MAIN_INIT  C       |-- DIAGNOSTICS_MAIN_INIT
26  C       |  C       |
# Line 81  C     myThid -  Number of this instances Line 83  C     myThid -  Number of this instances
83        INTEGER myThid        INTEGER myThid
84  CEOP  CEOP
85    
86    #ifdef ALLOW_RUNCLOCK
87          IF ( useRunClock ) THEN
88            CALL RUNCLOCK_INIT( myThid )
89          ENDIF
90    #endif
91    
92  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
93        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
94          CALL DIAGNOSTICS_INIT_EARLY( myThid )          CALL DIAGNOSTICS_INIT_EARLY( myThid )
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22