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

Annotation of /MITgcm/pkg/land/land_write_pickup.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: checkpoint57o_post, checkpoint52n_post, checkpoint53d_post, checkpoint54a_pre, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint54a_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57e_post, checkpoint52l_post, checkpoint55h_post, checkpoint57g_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint54d_post, checkpoint56c_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint53b_post, checkpoint55g_post, checkpoint55f_post, checkpoint57r_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, eckpoint57e_pre, checkpoint57h_done, checkpoint53g_post, checkpoint57n_post, checkpoint57p_post, checkpoint57f_post, checkpoint57q_post, checkpoint57c_post, checkpoint55e_post, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.1: +16 -7 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_write_pickup.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_WRITE_PICKUP
8     C !INTERFACE:
9     SUBROUTINE LAND_WRITE_PICKUP( suff, myTime, myIter, myThid )
10    
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | S/R LAND_WRITE_PICKUP
14     C | o Writes current state of land package to a pickup file
15     C *==========================================================*
16     C \ev
17    
18     C !USES:
19     IMPLICIT NONE
20    
21     C == Global variables ===
22     #include "LAND_SIZE.h"
23     #include "EEPARAMS.h"
24     #include "PARAMS.h"
25     #include "LAND_PARAMS.h"
26     #include "LAND_VARS.h"
27    
28     C !INPUT/OUTPUT PARAMETERS:
29     C == Routine Arguments ==
30     C suff :: suffix for pickup file (eg. ckptA or 0000000010)
31     C myTime :: current time
32     C myIter :: time-step number
33     C myThid :: Number of this instance
34     CHARACTER*(*) suff
35     _RL myTime
36     INTEGER myIter
37     INTEGER myThid
38    
39     #ifdef ALLOW_LAND
40    
41     C !LOCAL VARIABLES:
42     C fn :: character buffer for creating filename
43     C prec :: precision of pickup files
44     C lgf :: flag to write "global" files
45 jmc 1.2 c INTEGER prec, iChar, lChar, k
46     INTEGER prec, lChar, k
47 jmc 1.1 CHARACTER*(MAX_LEN_FNAM) fn
48     LOGICAL lgf
49 jmc 1.2
50     INTEGER ILNBLNK
51     EXTERNAL ILNBLNK
52    
53 jmc 1.1 CEOP
54    
55     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
56    
57 jmc 1.2 lChar = ILNBLNK(suff)
58 jmc 1.1 WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
59     prec = precFloat64
60     lgf = globalFiles
61    
62     C-- Write fields as consecutive records
63     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
64 jmc 1.2 & land_enthalp,1,myIter,myThid)
65 jmc 1.1 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
66     & land_groundW,2,myIter,myThid)
67 jmc 1.2 k=2*land_nLev
68     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
69     & land_skinT, k+1,myIter,myThid)
70     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
71     & land_hSnow, k+2,myIter,myThid)
72     CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
73     & land_snowAge,k+3,myIter,myThid)
74 jmc 1.1
75     #endif /* ALLOW_LAND */
76    
77     RETURN
78     END
  ViewVC Help
Powered by ViewVC 1.1.22