/[MITgcm]/MITgcm/pkg/obcs/obcs_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_readparms.F

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

revision 1.22 by mlosch, Fri Apr 25 12:13:38 2008 UTC revision 1.23 by mlosch, Tue Aug 11 15:46:27 2009 UTC
# Line 51  C     iUnit       - Work variable for IO Line 51  C     iUnit       - Work variable for IO
51       &          OBNviceFile,OBSviceFile,OBEviceFile,OBWviceFile,       &          OBNviceFile,OBSviceFile,OBEviceFile,OBWviceFile,
52       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,
53       &          OBCSprintDiags, useOBCSYearlyFields, OBCSfixTopo       &          OBCSprintDiags, useOBCSYearlyFields, OBCSfixTopo
54    #ifdef NONLIN_FRSURF
55         &        , OBNetaFile, OBSetaFile, OBEetaFile, OBWetaFile
56    #endif /* NONLIN_FRSURF */
57  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
58       &        , OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile       &        , OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile
59  #endif  #endif
# Line 144  C--   Default flags and values for OBCS Line 147  C--   Default flags and values for OBCS
147        OBWsnFile = ' '        OBWsnFile = ' '
148        OBWuiceFile = ' '        OBWuiceFile = ' '
149        OBWviceFile = ' '        OBWviceFile = ' '
150          OBNetaFile = ' '
151          OBSetaFile = ' '
152          OBEetaFile = ' '
153          OBWetaFile = ' '
154  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
155        DO iTracer = 1, PTRACERS_num        DO iTracer = 1, PTRACERS_num
156         OBNptrFile(iTracer) = ' '         OBNptrFile(iTracer) = ' '
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22