/[MITgcm]/MITgcm/pkg/land/land_initialise.F
ViewVC logotype

Annotation of /MITgcm/pkg/land/land_initialise.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (hide annotations) (download)
Thu Mar 11 14:42:00 2004 UTC (20 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint52n_post, checkpoint53d_post, checkpoint54a_pre, checkpoint55c_post, checkpoint53c_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint54a_post, checkpoint52l_post, checkpoint55h_post, checkpoint54b_post, checkpoint53b_pre, checkpoint54d_post, checkpoint53f_post, checkpoint56c_post, checkpoint54e_post, checkpoint55b_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint53b_post, checkpoint55g_post, checkpoint55f_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, checkpoint53g_post, checkpoint57c_post, checkpoint55e_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.1: +1 -32 lines 
new land formulation:
a) use ground enthalpy as prognostic variable to ensure exact
   energy conservation.
b) account for water temperature and for latent heat of freezing
   in all processes (rain, run-off, ground storage)
c) compute surface and ground temperature implicitly.
1 jmc 1.2 C $Header: /u/gcmpack/MITgcm/pkg/land/land_initialise.F,v 1.1 2003/06/12 17:54:22 jmc Exp $
2 jmc 1.1 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     #endif /* ALLOW_LAND */
63    
64     RETURN
65     END
  ViewVC Help
Powered by ViewVC 1.1.22