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

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

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

revision 1.4 by edhill, Sat Sep 17 03:17:06 2005 UTC revision 1.6 by jmc, Thu Aug 27 18:00:01 2009 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "LAND_OPTIONS.h"  #include "LAND_OPTIONS.h"
5    
6  CBOP  CBOP
7  C     !ROUTINE: LAND_WRITE_PICKUP  C     !ROUTINE: LAND_WRITE_PICKUP
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE LAND_WRITE_PICKUP( isperm, suff,        SUBROUTINE LAND_WRITE_PICKUP( isperm, suff,
10       &     myTime, myIter, myThid )       I                              myTime, myIter, myThid )
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
# Line 41  C     myThid  :: Number of this instance Line 41  C     myThid  :: Number of this instance
41    
42  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
43    
44    C     !FUNCTIONS:
45          INTEGER  ILNBLNK
46          EXTERNAL ILNBLNK
47    
48  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
49  C     fn      :: character buffer for creating filename  C     fn      :: character buffer for creating filename
50  C     prec    :: precision of pickup files  C     prec    :: precision of pickup files
 C     lgf     :: flag to write "global" files  
51  c     INTEGER prec, iChar, lChar, k  c     INTEGER prec, iChar, lChar, k
52        INTEGER prec, lChar, k        INTEGER prec, lChar, k
53        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
       LOGICAL lgf  
   
       INTEGER  ILNBLNK  
       EXTERNAL ILNBLNK  
   
54  CEOP  CEOP
55    
56  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 62  C---+----1----+----2----+----3----+----4 Line 60  C---+----1----+----2----+----3----+----4
60        IF ( land_pickup_write_mdsio ) THEN        IF ( land_pickup_write_mdsio ) THEN
61    
62  C--   Write fields as consecutive records  C--   Write fields as consecutive records
63        WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)          WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
64        prec = precFloat64          prec = precFloat64
65        lgf = globalFiles  
66            CALL WRITE_REC_3D_RL( fn, prec, land_nLev,
67        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,       &                        land_enthalp,  1, myIter, myThid )
68       &                   land_enthalp,1,myIter,myThid)          CALL WRITE_REC_3D_RL( fn, prec, land_nLev,
69        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,       &                        land_groundW,  2, myIter, myThid )
70       &                   land_groundW,2,myIter,myThid)          k=2*land_nLev
71        k=2*land_nLev          CALL WRITE_REC_3D_RL( fn, prec, 1,
72        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,       &                        land_skinT,  k+1, myIter, myThid )
73       &                   land_skinT,  k+1,myIter,myThid)          CALL WRITE_REC_3D_RL( fn, prec, 1,
74        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,       &                        land_hSnow,  k+2, myIter, myThid )
75       &                   land_hSnow,  k+2,myIter,myThid)          CALL WRITE_REC_3D_RL( fn, prec, 1,
76        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,       &                        land_snowAge,k+3, myIter, myThid )
      &                   land_snowAge,k+3,myIter,myThid)  
77    
78        ENDIF        ENDIF
79    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22