/[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.6 by jmc, Tue Feb 11 03:03:46 2003 UTC revision 1.7 by jmc, Thu Jun 12 18:21:34 2003 UTC
# Line 25  C       | Line 25  C       |
25  C       |-- FLT_INIT  C       |-- FLT_INIT
26  C       |  C       |
27  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
28    C       |
29    C       |-- AIM_INITIALISE
30    C       |
31    C       |-- LAND_INITIALISE
32    
33  C     !USES:  C     !USES:
34        IMPLICIT NONE        IMPLICIT NONE
# Line 63  C--   Latitude circle filter initialisat Line 67  C--   Latitude circle filter initialisat
67        ENDIF        ENDIF
68  #endif  #endif
69    
70    #ifdef ALLOW_AIM
71    C--   Initialise & Read AIM physical parameters
72          IF (useAIM) CALL AIM_INITIALISE( myThid )
73    #endif
74    
75    #ifdef ALLOW_LAND
76    C--   Initialise & Read Land package parameters
77          IF (useLand) CALL LAND_INITIALISE( myThid )
78    #endif
79    
80        RETURN        RETURN
81        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22