pkg/land/land_ini_vars.F

C $Header:  $
C $Name:  $

#include "LAND_OPTIONS.h"

CBOP
C     !ROUTINE: LAND_INI_VARS
C     !INTERFACE:
      SUBROUTINE LAND_INI_VARS( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R LAND_INI_VARS
C     | o Initialize Land package variables
C     *==========================================================*
C     | for now, used only for a restart
C     *==========================================================*
C     \ev
 
C     !USES:
      IMPLICIT NONE

C     == Global variables ===

C-- size for MITgcm & Land package :
#include "LAND_SIZE.h"

#include "EEPARAMS.h"
#include "PARAMS.h"
#include "LAND_PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine Arguments ==       
C     myThid -  Number of this instance
      INTEGER myThid
CEOP

#ifdef ALLOW_LAND

C     == Local Variables == 
C     msgBuf      - Informational/error meesage buffer
c     CHARACTER*(MAX_LEN_MBUF) msgBuf

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

      IF ( startTime.EQ.0. .AND. nIter0.EQ.0 ) THEN

C--   Define the initial state
C     for now, loaded from AIM surf. BC in S/R aim_land2aim

c     ELSE
C-    a trick to allow to start without a land pickup:
      ELSEIF ( land_calc_grT .OR. land_calc_grW ) THEN

C--   Read Land package state variables from pickup file
        CALL LAND_READ_PICKUP( nIter0, myThid )

      ENDIF

#endif /* ALLOW_LAND */

      RETURN
      END
1	jmc	1.1	C $Header: $
2			C $Name: $
3
4			#include "LAND_OPTIONS.h"
5
6			CBOP
7			C !ROUTINE: LAND_INI_VARS
8			C !INTERFACE:
9			SUBROUTINE LAND_INI_VARS( myThid )
10
11			C !DESCRIPTION: \bv
12			C ==========================================================
13			C \| S/R LAND_INI_VARS
14			C \| o Initialize Land package variables
15			C ==========================================================
16			C \| for now, used only for a restart
17			C ==========================================================
18			C \ev
19
20			C !USES:
21			IMPLICIT NONE
22
23			C == Global variables ===
24
25			C-- size for MITgcm & Land package :
26			#include "LAND_SIZE.h"
27
28			#include "EEPARAMS.h"
29			#include "PARAMS.h"
30			#include "LAND_PARAMS.h"
31
32			C !INPUT/OUTPUT PARAMETERS:
33			C == Routine Arguments ==
34			C myThid - Number of this instance
35			INTEGER myThid
36			CEOP
37
38			#ifdef ALLOW_LAND
39
40			C == Local Variables ==
41			C msgBuf - Informational/error meesage buffer
42			c CHARACTER*(MAX_LEN_MBUF) msgBuf
43
44			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
45
46			IF ( startTime.EQ.0. .AND. nIter0.EQ.0 ) THEN
47
48			C-- Define the initial state
49			C for now, loaded from AIM surf. BC in S/R aim_land2aim
50
51			c ELSE
52			C- a trick to allow to start without a land pickup:
53			ELSEIF ( land_calc_grT .OR. land_calc_grW ) THEN
54
55			C-- Read Land package state variables from pickup file
56			CALL LAND_READ_PICKUP( nIter0, myThid )
57
58			ENDIF
59
60			#endif /* ALLOW_LAND */
61
62			RETURN
63			END