/[MITgcm]/MITgcm/model/src/initialise_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/initialise_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.30 by adcroft, Thu May 13 15:40:53 2004 UTC revision 1.31 by edhill, Tue Jul 6 01:58:41 2004 UTC
# Line 66  C     == Global variables == Line 66  C     == Global variables ==
66  #include "EEPARAMS.h"  #include "EEPARAMS.h"
67  #include "PARAMS.h"  #include "PARAMS.h"
68    
69    #ifdef ALLOW_FIZHI
70    #include "fizhi_SIZE.h"
71    #else
72          integer Nrphys
73          parameter (Nrphys=0)
74    #endif
75    
76  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
77  C     == Routine arguments ==  C     == Routine arguments ==
78        INTEGER myThid        INTEGER myThid
# Line 81  C     an input file called data. Line 88  C     an input file called data.
88  C     Initialize MNC look-up tables  C     Initialize MNC look-up tables
89        IF (useMNC) THEN        IF (useMNC) THEN
90          CALL MNC_INIT(myThid)          CALL MNC_INIT(myThid)
91          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,Nr, myThid)          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,
92         &       Nr,Nrphys,myThid)
93          IF ( mnc_echo_gvtypes ) THEN          IF ( mnc_echo_gvtypes ) THEN
94            CALL MNC_CW_DUMP( myThid )            CALL MNC_CW_DUMP( myThid )
95          ENDIF          ENDIF
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22