pkg/land/land_initialise.F

C $Header: /u/gcmpack/MITgcm/pkg/land/land_initialise.F,v 1.4 2005/07/30 23:53:48 jmc Exp $
C $Name:  $

#include "LAND_OPTIONS.h"

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

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R LAND_INITIALISE
C     | o Read Land package parameters (from file data.land)
C     | o Initialize Land package variables
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"
#include "LAND_VARS.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
      CHARACTER*(MAX_LEN_MBUF) msgBuf

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
C-    for now, Land package works only with AIM package:
      IF ( .NOT.useAIM ) THEN
        WRITE(msgBuf,'(A)')
     &  'LAND_INITIALISE: land pkg only implemented for AIM physics'
        CALL PRINT_ERROR( msgBuf, myThid)
        WRITE(msgBuf,'(A)')
     &  'DO NOT use Land (useLand=T) without AIM (useAIM=F, data.pkg)' 
        CALL PRINT_ERROR( msgBuf, myThid)
        STOP 'ABNORMAL END: S/R LAND_INITIALISE'
      ENDIF

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

C--   Read LAND parameters (from file data.land):
      CALL LAND_READPARMS( myThid )

      IF ( useMNC ) THEN
        CALL LAND_MNC_INIT(sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy,
     &       land_nLev, myThid)
      ENDIF

      IF ( useDiagnostics ) CALL LAND_DIAGNOSTICS_INIT( myThid )

#endif /* ALLOW_LAND */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/land/land_initialise.F,v 1.4 2005/07/30 23:53:48 jmc Exp $
2	C $Name: $
3
4	#include "LAND_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: LAND_INITIALISE
8	C !INTERFACE:
9	SUBROUTINE LAND_INITIALISE( myThid )
10
11	C !DESCRIPTION: \bv
12	C ==========================================================
13	C \| S/R LAND_INITIALISE
14	C \| o Read Land package parameters (from file data.land)
15	C \| o Initialize Land package variables
16	C ==========================================================
17	C \ev
18
19	C !USES:
20	IMPLICIT NONE
21
22	C == Global variables ===
23
24	C-- size for MITgcm & Land package :
25	#include "LAND_SIZE.h"
26
27	#include "EEPARAMS.h"
28	#include "PARAMS.h"
29	#include "LAND_PARAMS.h"
30	#include "LAND_VARS.h"
31
32
33	C !INPUT/OUTPUT PARAMETERS:
34	C == Routine Arguments ==
35	C myThid :: Number of this instance
36	INTEGER myThid
37	CEOP
38
39	#ifdef ALLOW_LAND
40
41	C == Local Variables ==
42	C msgBuf :: Informational/error meesage buffer
43	CHARACTER*(MAX_LEN_MBUF) msgBuf
44
45	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
46	C- for now, Land package works only with AIM package:
47	IF ( .NOT.useAIM ) THEN
48	WRITE(msgBuf,'(A)')
49	& 'LAND_INITIALISE: land pkg only implemented for AIM physics'
50	CALL PRINT_ERROR( msgBuf, myThid)
51	WRITE(msgBuf,'(A)')
52	& 'DO NOT use Land (useLand=T) without AIM (useAIM=F, data.pkg)'
53	CALL PRINT_ERROR( msgBuf, myThid)
54	STOP 'ABNORMAL END: S/R LAND_INITIALISE'
55	ENDIF
56
57	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
58
59	C-- Read LAND parameters (from file data.land):
60	CALL LAND_READPARMS( myThid )
61
62	IF ( useMNC ) THEN
63	CALL LAND_MNC_INIT(sNx,sNy, OLx,OLy, nSx,nSy, nPx,nPy,
64	& land_nLev, myThid)
65	ENDIF
66
67	IF ( useDiagnostics ) CALL LAND_DIAGNOSTICS_INIT( myThid )
68
69	#endif /* ALLOW_LAND */
70
71	RETURN
72	END