/[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.15 by dimitri, Tue Oct 23 08:25:28 2007 UTC revision 1.16 by dimitri, Fri Oct 26 02:00:48 2007 UTC
# Line 46  C     iUnit       - Work variable for IO Line 46  C     iUnit       - Work variable for IO
46       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,OBWaFile,OBWhFile,       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,OBWaFile,OBWhFile,
47       &          OBNslFile,OBSslFile,OBEslFile,OBWslFile,       &          OBNslFile,OBSslFile,OBEslFile,OBWslFile,
48       &          OBNsnFile,OBSsnFile,OBEsnFile,OBWsnFile,       &          OBNsnFile,OBSsnFile,OBEsnFile,OBWsnFile,
49         &          OBNuiceFile,OBSuiceFile,OBEuiceFile,OBWuiceFile,
50         &          OBNviceFile,OBSviceFile,OBEviceFile,OBWviceFile,
51       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,
52       &          OBCSprintDiags       &          OBCSprintDiags
53  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 104  C--   Default flags and values for OBCS Line 106  C--   Default flags and values for OBCS
106        OBNaFile = ' '        OBNaFile = ' '
107        OBNslFile = ' '        OBNslFile = ' '
108        OBNsnFile = ' '        OBNsnFile = ' '
109          OBNuiceFile = ' '
110          OBNviceFile = ' '
111        OBNhFile = ' '        OBNhFile = ' '
112        OBSuFile = ' '        OBSuFile = ' '
113        OBSvFile = ' '        OBSvFile = ' '
# Line 113  C--   Default flags and values for OBCS Line 117  C--   Default flags and values for OBCS
117        OBShFile = ' '        OBShFile = ' '
118        OBSslFile = ' '        OBSslFile = ' '
119        OBSsnFile = ' '        OBSsnFile = ' '
120          OBSuiceFile = ' '
121          OBSviceFile = ' '
122        OBEuFile = ' '        OBEuFile = ' '
123        OBEvFile = ' '        OBEvFile = ' '
124        OBEtFile = ' '        OBEtFile = ' '
# Line 121  C--   Default flags and values for OBCS Line 127  C--   Default flags and values for OBCS
127        OBEhFile = ' '        OBEhFile = ' '
128        OBEslFile = ' '        OBEslFile = ' '
129        OBEsnFile = ' '        OBEsnFile = ' '
130          OBEuiceFile = ' '
131          OBEviceFile = ' '
132        OBWuFile = ' '        OBWuFile = ' '
133        OBWvFile = ' '        OBWvFile = ' '
134        OBWtFile = ' '        OBWtFile = ' '
# Line 129  C--   Default flags and values for OBCS Line 137  C--   Default flags and values for OBCS
137        OBWhFile = ' '        OBWhFile = ' '
138        OBWslFile = ' '        OBWslFile = ' '
139        OBWsnFile = ' '        OBWsnFile = ' '
140          OBWuiceFile = ' '
141          OBWviceFile = ' '
142  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
143        DO iTracer = 1, PTRACERS_num        DO iTracer = 1, PTRACERS_num
144         OBNptrFile(iTracer) = ' '         OBNptrFile(iTracer) = ' '
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22