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

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

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

revision 1.9 by jmc, Thu Sep 3 22:13:04 2009 UTC revision 1.10 by jmc, Sat Jan 2 23:42:51 2010 UTC
# Line 57  C     nWrFlds     :: number of fields be Line 57  C     nWrFlds     :: number of fields be
57  C     listDim     :: dimension of "wrFldList" local array  C     listDim     :: dimension of "wrFldList" local array
58  C     wrFldList   :: list of written fields  C     wrFldList   :: list of written fields
59  C     msgBuf      :: Informational/error message buffer  C     msgBuf      :: Informational/error message buffer
60        INTEGER iTracer, j, prec, lChar, n, iRec        INTEGER iTracer, j, prec, lChar
61        LOGICAL glf        LOGICAL glf
62        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
63        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
64        PARAMETER( listDim = 3*PTRACERS_num )        PARAMETER( listDim = 3*PTRACERS_num )
65        CHARACTER*(8) wrFldList(listDim)        CHARACTER*(8) wrFldList(listDim)
66        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
67    #ifdef PTRACERS_ALLOW_DYN_STATE
68          INTEGER n, iRec
69    #endif
70  CEOP  CEOP
71    
72  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22