/[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.22 by edhill, Fri Mar 19 05:09:41 2004 UTC revision 1.23 by edhill, Sat Mar 20 23:51:23 2004 UTC
# Line 46  C     myThid -  Number of this instances Line 46  C     myThid -  Number of this instances
46        INTEGER myThid        INTEGER myThid
47  CEOP  CEOP
48    
 C--   Initialize MNC look-up tables  
 #ifdef ALLOW_MNC  
       IF (useMNC) THEN  
         CALL MNC_INIT(myThid)  
         CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,Nr, myThid)  
         CALL INI_MNC_IO(myThid)  
       ENDIF  
 #endif  
   
49  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
50        CALL GAD_INIT( myThid )        CALL GAD_INIT( myThid )
51    
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22