Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |