/[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.17 by molod, Thu Jan 29 14:45:47 2004 UTC revision 1.18 by molod, Thu Feb 12 16:01:32 2004 UTC
# Line 111  C--   Initialise the control variables Line 111  C--   Initialise the control variables
111  #endif  #endif
112  #endif  #endif
113    
114    CAMM
115    #ifdef ALLOW_DIAGNOSTICS
116          IF (usediagnostics) then
117           call diagnostics_init(mythid)
118          ENDIF
119    #endif
120    CAMM
121    
122        RETURN        RETURN
123        END        END
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22