/[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.5 by jmc, Mon Nov 5 15:40:24 2007 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 59  C---+----1----+----2----+----3----+----4 Line 59  C---+----1----+----2----+----3----+----4
59    
60        lChar = ILNBLNK(suff)        lChar = ILNBLNK(suff)
61    
62    C     Going to really do some IO. Make everyone except master thread wait.
63          _BARRIER
64    
65        IF ( land_pickup_write_mdsio ) THEN        IF ( land_pickup_write_mdsio ) THEN
66    
67  C--   Write fields as consecutive records  C--   Write fields as consecutive records
# Line 66  C--   Write fields as consecutive record Line 69  C--   Write fields as consecutive record
69        prec = precFloat64        prec = precFloat64
70        lgf = globalFiles        lgf = globalFiles
71    
72    #ifdef ALLOW_MDSIO
73        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
74       &                   land_enthalp,1,myIter,myThid)       &                   land_enthalp,1,myIter,myThid)
75        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev,
# Line 77  C--   Write fields as consecutive record Line 81  C--   Write fields as consecutive record
81       &                   land_hSnow,  k+2,myIter,myThid)       &                   land_hSnow,  k+2,myIter,myThid)
82        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,
83       &                   land_snowAge,k+3,myIter,myThid)       &                   land_snowAge,k+3,myIter,myThid)
84    #else /* ALLOW_MDSIO */
85          STOP 'ABNORMAL END: S/R OBCS_READ_CHECKPOINT: NEEDS MSDIO PKG'
86    #endif /* ALLOW_MDSIO */
87    
88        ENDIF        ENDIF
89    
# Line 118  C--   Write fields as consecutive record Line 125  C--   Write fields as consecutive record
125        ENDIF        ENDIF
126  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
127    
128    C--   Every one else must wait until writing is done.
129          _BARRIER
130    
131  #endif /* ALLOW_LAND */  #endif /* ALLOW_LAND */
132    
133        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22