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

Contents of /MITgcm/pkg/land/land_write_pickup.F

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

Revision 1.2 - (show annotations) (download)
Thu Mar 11 14:42:00 2004 UTC (20 years, 2 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 C $Header: /u/gcmpack/MITgcm/pkg/land/land_write_pickup.F,v 1.1 2003/06/12 17:54:22 jmc Exp $
2 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 c INTEGER prec, iChar, lChar, k
46 INTEGER prec, lChar, k
47 CHARACTER*(MAX_LEN_FNAM) fn
48 LOGICAL lgf
49
50 INTEGER ILNBLNK
51 EXTERNAL ILNBLNK
52
53 CEOP
54
55 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
56
57 lChar = ILNBLNK(suff)
58 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 & land_enthalp,1,myIter,myThid)
65 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
66 & land_groundW,2,myIter,myThid)
67 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
75 #endif /* ALLOW_LAND */
76
77 RETURN
78 END
  ViewVC Help
Powered by ViewVC 1.1.22