/[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.2 by jmc, Thu Mar 11 14:42:00 2004 UTC revision 1.3 by edhill, Sat Sep 10 20:40:27 2005 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  CBOP  CBOP
7  C     !ROUTINE: LAND_WRITE_PICKUP  C     !ROUTINE: LAND_WRITE_PICKUP
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE LAND_WRITE_PICKUP( suff, myTime, myIter, myThid )        SUBROUTINE LAND_WRITE_PICKUP( isperm, suff,
10         &     myTime, myIter, myThid )
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
# Line 27  C     == Global variables === Line 28  C     == Global variables ===
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine Arguments ==  C     == Routine Arguments ==
31    C     isperm  :: flag for permanent or rolling checkpoint
32  C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)  C     suff    :: suffix for pickup file (eg. ckptA or 0000000010)
33  C     myTime  :: current time  C     myTime  :: current time
34  C     myIter  :: time-step number  C     myIter  :: time-step number
35  C     myThid  :: Number of this instance  C     myThid  :: Number of this instance
36          LOGICAL isperm
37        CHARACTER*(*) suff        CHARACTER*(*) suff
38        _RL myTime        _RL myTime
39        INTEGER myIter        INTEGER myIter
# Line 55  CEOP Line 58  CEOP
58  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
59    
60        lChar = ILNBLNK(suff)        lChar = ILNBLNK(suff)
61    
62          IF ( land_pickup_write_mdsio ) THEN
63    
64    C--   Write fields as consecutive records
65        WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)        WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
66        prec = precFloat64        prec = precFloat64
67        lgf = globalFiles        lgf = globalFiles
68    
 C--   Write fields as consecutive records  
69        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
70       &                   land_enthalp,1,myIter,myThid)       &                   land_enthalp,1,myIter,myThid)
71        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
# Line 72  C--   Write fields as consecutive record Line 78  C--   Write fields as consecutive record
78        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
79       &                   land_snowAge,k+3,myIter,myThid)       &                   land_snowAge,k+3,myIter,myThid)
80    
81          ENDIF
82    
83    #ifdef ALLOW_MNC
84          IF ( land_pickup_write_mnc ) THEN
85    
86            DO k = 1,MAX_LEN_FNAM
87              fn(k:k) = ' '
88            ENDDO
89            IF ( isperm ) THEN
90              WRITE(fn,'(A)') 'pickup_land'
91            ELSE
92              WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
93            ENDIF
94            CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)
95            CALL MNC_CW_SET_UDIM(fn, 1, myThid)
96            IF ( isperm ) THEN
97              CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
98            ELSE
99              CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
100            ENDIF
101    
102            CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
103            CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
104    
105            CALL MNC_CW_RL_W('D',fn,0,0,
106         &       'land_enthalp', land_enthalp, myThid)
107            CALL MNC_CW_RL_W('D',fn,0,0,
108         &       'land_groundW', land_groundW, myThid)
109    
110            CALL MNC_CW_RL_W('D',fn,0,0,
111         &       'land_skinT', land_skinT, myThid)
112            CALL MNC_CW_RL_W('D',fn,0,0,
113         &       'land_hSnow', land_hSnow, myThid)
114            CALL MNC_CW_RL_W('D',fn,0,0,
115         &       'land_snAge', land_snowAge, myThid)
116    
117          ENDIF
118    #endif /*  ALLOW_MNC  */
119    
120  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
121    
122        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22