/[MITgcm]/MITgcm/pkg/ptracers/ptracers_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_read_pickup.F

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

revision 1.13 by jmc, Thu Sep 3 22:13:04 2009 UTC revision 1.14 by jmc, Sat Jan 2 23:42:51 2010 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "GAD_OPTIONS.h"  #include "GAD_OPTIONS.h"
5  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
6    
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
7  CBOP  CBOP
8  C     !ROUTINE: PTRACERS_READ_PICKUP  C     !ROUTINE: PTRACERS_READ_PICKUP
9    
# Line 49  C     j           :: loop index Line 48  C     j           :: loop index
48  C     nj          :: record number  C     nj          :: record number
49  C     ioUnit      :: temp for writing msg unit  C     ioUnit      :: temp for writing msg unit
50  C     msgBuf      :: Informational/error message buffer  C     msgBuf      :: Informational/error message buffer
51        INTEGER iTracer, iRec, prec, n        INTEGER iTracer, iRec, prec
52        INTEGER filePrec, nbFields        INTEGER filePrec, nbFields
53        INTEGER missFldDim, nMissing        INTEGER missFldDim, nMissing
54        INTEGER nj, ioUnit        INTEGER nj, ioUnit
# Line 57  C     msgBuf      :: Informational/error Line 56  C     msgBuf      :: Informational/error
56        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
57        CHARACTER*(8) fldName, missFldList(missFldDim)        CHARACTER*(8) fldName, missFldList(missFldDim)
58        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
59    #ifdef PTRACERS_ALLOW_DYN_STATE
60          INTEGER n
61    #endif
62  CEOP  CEOP
63    
64        _BARRIER  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
65    
66  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
67        IF ( PTRACERS_pickup_read_mnc ) THEN        IF ( PTRACERS_pickup_read_mnc ) THEN
# Line 286  C        Read 2nd Order moments as conse Line 288  C        Read 2nd Order moments as conse
288          ENDIF          ENDIF
289         ENDDO         ENDDO
290  #endif /* PTRACERS_ALLOW_DYN_STATE */  #endif /* PTRACERS_ALLOW_DYN_STATE */
        _BARRIER  
291    
292  C--   end: pickup_read_mdsio  C--   end: pickup_read_mdsio
293        ENDIF        ENDIF
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22