Parent Directory
| 
Revision Log
| 
Revision Graph
rename pkg/aim_compon_interf to pkg/atm_compon_interf (to be used with other atmospheric physics pkg) but by-pass CVS to get the new pkg so that we keep the history.
| 1 | C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/cpl_init_fixed.F,v 1.1 2004/10/27 23:19:42 edhill Exp $ |
| 2 | C $Name: $ |
| 3 | |
| 4 | #include "PACKAGES_CONFIG.h" |
| 5 | #include "CPP_OPTIONS.h" |
| 6 | |
| 7 | C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 8 | CBOP |
| 9 | C !ROUTINE: CPL_INIT_FIXED |
| 10 | |
| 11 | C !INTERFACE: |
| 12 | SUBROUTINE CPL_INIT_FIXED( myThid ) |
| 13 | |
| 14 | C !DESCRIPTION: |
| 15 | C Define MNC variables for use by the coupler. |
| 16 | |
| 17 | C !USES: |
| 18 | IMPLICIT NONE |
| 19 | #include "SIZE.h" |
| 20 | #include "EEPARAMS.h" |
| 21 | #include "PARAMS.h" |
| 22 | #include "DYNVARS.h" |
| 23 | #include "GRID.h" |
| 24 | |
| 25 | C !INPUT PARAMETERS: |
| 26 | INTEGER myThid |
| 27 | CEOP |
| 28 | |
| 29 | #ifdef ALLOW_MNC |
| 30 | C IF (useMNC) THEN |
| 31 | C ENDIF |
| 32 | #endif /* ALLOW_MNC */ |
| 33 | |
| 34 | RETURN |
| 35 | END |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |