/[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.23 by edhill, Sat Mar 20 23:51:23 2004 UTC revision 1.24 by molod, Mon Mar 29 22:14:49 2004 UTC
# Line 78  C--   Initialise & Read AIM physical par Line 78  C--   Initialise & Read AIM physical par
78  C AMM  C AMM
79  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
80  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
81        IF (useGRIDALT) CALL GRIDALT_INITIALISE( myThid )        IF (useGRIDALT) then
82           CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
83           CALL GRIDALT_INITIALISE( myThid )
84           CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)
85          ENDIF
86    
87  #endif  #endif
88    
89  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22