Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.28 by edhill, Tue Mar 23 05:24:43 2004 UTC | revision 1.29 by edhill, Wed Mar 24 15:29:33 2004 UTC | |
|---|---|---|
| # | Line 82 C Initialize MNC look-up tables | Line 82 C Initialize MNC look-up tables |
| 82 | IF (useMNC) THEN | IF (useMNC) THEN |
| 83 | CALL MNC_INIT(myThid) | CALL MNC_INIT(myThid) |
| 84 | 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,Nr, myThid) |
| CALL INI_MNC_IO(myThid) | ||
| 85 | IF ( mnc_echo_gvtypes ) THEN | IF ( mnc_echo_gvtypes ) THEN |
| 86 | CALL MNC_CW_DUMP( myThid ) | CALL MNC_CW_DUMP( myThid ) |
| 87 | ENDIF | ENDIF |
| # | Line 100 C Variables defining model grid spac | Line 99 C Variables defining model grid spac |
| 99 | CALL INI_GRID( myThid ) | CALL INI_GRID( myThid ) |
| 100 | _BARRIER | _BARRIER |
| 101 | ||
| 102 | #ifdef ALLOW_MNC | |
| 103 | C Initialize the MNC state files and write the grid info | |
| 104 | IF (useMNC) THEN | |
| 105 | CALL INI_MNC_IO(myThid) | |
| 106 | ENDIF | |
| 107 | #endif | |
| 108 | ||
| 109 | C-- Set equation of state parameters. | C-- Set equation of state parameters. |
| 110 | CALL INI_EOS( myThid ) | CALL INI_EOS( myThid ) |
| 111 | _BARRIER | _BARRIER |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |