/[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.31 by edhill, Tue Jul 6 01:58:41 2004 UTC revision 1.32 by edhill, Fri Jul 9 02:41:52 2004 UTC
# Line 29  C     INITIALISE_FIXED Line 29  C     INITIALISE_FIXED
29  C      |  C      |
30  C      |-- INI_PARMS  C      |-- INI_PARMS
31  C      |  C      |
32    C      |-- MNC_INIT + MNC_CW_INIT
33    C      |
34  C      |-- MON_INIT  C      |-- MON_INIT
35  C      |  C      |
36  C      |-- INI_GRID  C      |-- INI_GRID
# Line 66  C     == Global variables == Line 68  C     == Global variables ==
68  #include "EEPARAMS.h"  #include "EEPARAMS.h"
69  #include "PARAMS.h"  #include "PARAMS.h"
70    
 #ifdef ALLOW_FIZHI  
 #include "fizhi_SIZE.h"  
 #else  
       integer Nrphys  
       parameter (Nrphys=0)  
 #endif  
   
71  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
72  C     == Routine arguments ==  C     == Routine arguments ==
73        INTEGER myThid        INTEGER myThid
# Line 89  C     Initialize MNC look-up tables Line 84  C     Initialize MNC look-up tables
84        IF (useMNC) THEN        IF (useMNC) THEN
85          CALL MNC_INIT(myThid)          CALL MNC_INIT(myThid)
86          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,          CALL MNC_CW_INIT(sNx,sNy,OLx,OLy,nSx,nSy,nPx,nPy,
87       &       Nr,Nrphys,myThid)       &       Nr,myThid)
88          IF ( mnc_echo_gvtypes ) THEN          IF ( mnc_echo_gvtypes ) THEN
89            CALL MNC_CW_DUMP( myThid )            CALL MNC_CW_DUMP( myThid )
90          ENDIF          ENDIF
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22