pkg/land/land_init_fixed.F

d2895c0628 Jean*0001 #include "LAND_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: LAND_INIT_FIXED
                0005 C     !INTERFACE:
                0006       SUBROUTINE LAND_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | S/R LAND_INIT_FIXED
                0011 C     | o Initialize Land package
                0012 C     *==========================================================*
                0013 C     \ev
                0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     == Global variables ===
                0019
                0020 C-- size for MITgcm & Land package :
                0021 #include "LAND_SIZE.h"
                0022
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
                0025 #include "LAND_PARAMS.h"
                0026 #include "LAND_VARS.h"
                0027
                0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     myThid :: my Thread Id number
                0030       INTEGER myThid
                0031 CEOP
                0032
                0033 #ifdef ALLOW_LAND
                0034
                0035 C     !LOCAL VARIABLES:
                0036 C     msgBuf      :: Informational/error message buffer
                0037 c     CHARACTER*(MAX_LEN_MBUF) msgBuf
                0038
                0039       IF ( useMNC ) THEN
                0040         CALL LAND_MNC_INIT(sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy,
                0041      &       land_nLev, myThid)
                0042       ENDIF
                0043
                0044       IF ( useDiagnostics ) CALL LAND_DIAGNOSTICS_INIT( myThid )
                0045
                0046 #endif /* ALLOW_LAND */
                0047
                0048       RETURN
                0049       END