/[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.40 by heimbach, Wed Jun 22 21:24:18 2005 UTC revision 1.41 by molod, Thu Jun 30 23:07:50 2005 UTC
# Line 169  C--   Latitude circle filter initialisat Line 169  C--   Latitude circle filter initialisat
169        ENDIF        ENDIF
170  #endif  #endif
171    
 #ifdef ALLOW_ATM_COMMON  
 C--   Initialise parameters shared by atmospheric physics packages  
       IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN  
         CALL ATM_DIAGNOSTICS_INIT( myThid )  
       ENDIF  
 #endif  
   
172  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
173  C--   Initialise & Read AIM physical parameters  C--   Initialise & Read AIM physical parameters
174        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22