/[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.1 by jmc, Thu Jun 12 17:54:22 2003 UTC revision 1.2 by jmc, Thu Mar 11 14:42:00 2004 UTC
# Line 42  C     !LOCAL VARIABLES: Line 42  C     !LOCAL VARIABLES:
42  C     fn      :: character buffer for creating filename  C     fn      :: character buffer for creating filename
43  C     prec    :: precision of pickup files  C     prec    :: precision of pickup files
44  C     lgf     :: flag to write "global" files  C     lgf     :: flag to write "global" files
45        INTEGER prec, iChar, lChar  c     INTEGER prec, iChar, lChar, k
46          INTEGER prec, lChar, k
47        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
48        LOGICAL lgf        LOGICAL lgf
49    
50          INTEGER  ILNBLNK
51          EXTERNAL ILNBLNK
52    
53  CEOP  CEOP
54    
55  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
56    
57        lChar = 0        lChar = ILNBLNK(suff)
       DO iChar = 1,len(suff)  
        IF ( suff(iChar:iChar) .NE. ' ') lChar=iChar  
       ENDDO  
58        WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)        WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
59        prec = precFloat64        prec = precFloat64
60        lgf = globalFiles        lgf = globalFiles
61    
62  C--   Write fields as consecutive records  C--   Write fields as consecutive records
63        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
64       &                   land_groundT,1,myIter,myThid)       &                   land_enthalp,1,myIter,myThid)
65        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
66       &                   land_groundW,2,myIter,myThid)       &                   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 */  #endif /* ALLOW_LAND */
76    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22