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	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