pkg/land/land_write_pickup.F

C $Header:  $
C $Name:  $

#include "LAND_OPTIONS.h"

CBOP
C     !ROUTINE: LAND_WRITE_PICKUP 
C     !INTERFACE:
      SUBROUTINE LAND_WRITE_PICKUP( suff, myTime, myIter, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R LAND_WRITE_PICKUP
C     | o Writes current state of land package to a pickup file
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

C     == Global variables ===
#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     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
C     myTime  :: current time
C     myIter  :: time-step number
C     myThid  :: Number of this instance
      CHARACTER*(*) suff
      _RL myTime
      INTEGER myIter
      INTEGER myThid

#ifdef ALLOW_LAND

C     !LOCAL VARIABLES:
C     fn      :: character buffer for creating filename
C     prec    :: precision of pickup files
C     lgf     :: flag to write "global" files
      INTEGER prec, iChar, lChar
      CHARACTER*(MAX_LEN_FNAM) fn
      LOGICAL lgf
CEOP

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

      lChar = 0
      DO iChar = 1,len(suff)
       IF ( suff(iChar:iChar) .NE. ' ') lChar=iChar
      ENDDO
      WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
      prec = precFloat64
      lgf = globalFiles

C--   Write fields as consecutive records
      CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
     &                   land_groundT,1,myIter,myThid)
      CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
     &                   land_groundW,2,myIter,myThid)

#endif /* ALLOW_LAND */

      RETURN
      END
1	jmc	1.1	C $Header: $
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			INTEGER prec, iChar, lChar
46			CHARACTER*(MAX_LEN_FNAM) fn
47			LOGICAL lgf
48			CEOP
49
50			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
51
52			lChar = 0
53			DO iChar = 1,len(suff)
54			IF ( suff(iChar:iChar) .NE. ' ') lChar=iChar
55			ENDDO
56			WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
57			prec = precFloat64
58			lgf = globalFiles
59
60			C-- Write fields as consecutive records
61			CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
62			& land_groundT,1,myIter,myThid)
63			CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
64			& land_groundW,2,myIter,myThid)
65
66			#endif /* ALLOW_LAND */
67
68			RETURN
69			END