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

Diff of /MITgcm/pkg/land/land_read_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 36  C     myThid  :: Number of this instance Line 36  C     myThid  :: Number of this instance
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37  C     fn      :: character buffer for creating filename  C     fn      :: character buffer for creating filename
38  C     prec    :: precision of pickup files  C     prec    :: precision of pickup files
 C     lgf     :: flag to write "global" files  
39  C     k       :: loop index  C     k       :: loop index
40        INTEGER prec, iChar, lChar, k        INTEGER prec, k
41        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
       LOGICAL lgf  
42  CEOP  CEOP
43    
44  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 48  C---+----1----+----2----+----3----+----4 Line 46  C---+----1----+----2----+----3----+----4
46        WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter        WRITE(fn,'(A,I10.10)') 'pickup_land.',myIter
47        prec = precFloat64        prec = precFloat64
48    
49          IF ( land_oldPickup ) THEN
50  C-    Read fields as consecutive records  C-    Read fields as consecutive records
51        CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundT,1,myThid)        CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundT,1,myThid)
52        CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid)        CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid)
53    
54          ELSE
55    
56    C-    Read fields as consecutive records
57          CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_enthalp,1,myThid)
58          CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid)
59          k=2*land_nLev
60          CALL MDSREADFIELD(fn,prec,'RL', 1, land_skinT,  k+1, myThid)
61          CALL MDSREADFIELD(fn,prec,'RL', 1, land_hSnow,  k+2, myThid)
62          CALL MDSREADFIELD(fn,prec,'RL', 1, land_snowAge,k+3, myThid)
63    
64          ENDIF
65    
66  C- jmc: exchange is not really necessary for land model  C- jmc: exchange is not really necessary for land model
67  C-      and presently exchange S/R cannot work for 3d array where 3rd dim <> Nr  C-      and presently exchange S/R cannot work for 3d array where 3rd dim <> Nr
68    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22