/[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.14 by dimitri, Thu Oct 11 01:29:16 2007 UTC revision 1.15 by dimitri, Tue Oct 23 08:25:28 2007 UTC
# Line 44  C     iUnit       - Work variable for IO Line 44  C     iUnit       - Work variable for IO
44       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,OBSaFile,OBShFile,       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,OBSaFile,OBShFile,
45       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,OBEaFile,OBEhFile,       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,OBEaFile,OBEhFile,
46       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,OBWaFile,OBWhFile,       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,OBWaFile,OBWhFile,
47         &          OBNslFile,OBSslFile,OBEslFile,OBWslFile,
48         &          OBNsnFile,OBSsnFile,OBEsnFile,OBWsnFile,
49       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,
50       &          OBCSprintDiags       &          OBCSprintDiags
51  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 100  C--   Default flags and values for OBCS Line 102  C--   Default flags and values for OBCS
102        OBNtFile = ' '        OBNtFile = ' '
103        OBNsFile = ' '        OBNsFile = ' '
104        OBNaFile = ' '        OBNaFile = ' '
105          OBNslFile = ' '
106          OBNsnFile = ' '
107        OBNhFile = ' '        OBNhFile = ' '
108        OBSuFile = ' '        OBSuFile = ' '
109        OBSvFile = ' '        OBSvFile = ' '
# Line 107  C--   Default flags and values for OBCS Line 111  C--   Default flags and values for OBCS
111        OBSsFile = ' '        OBSsFile = ' '
112        OBSaFile = ' '        OBSaFile = ' '
113        OBShFile = ' '        OBShFile = ' '
114          OBSslFile = ' '
115          OBSsnFile = ' '
116        OBEuFile = ' '        OBEuFile = ' '
117        OBEvFile = ' '        OBEvFile = ' '
118        OBEtFile = ' '        OBEtFile = ' '
119        OBEsFile = ' '        OBEsFile = ' '
120        OBEaFile = ' '        OBEaFile = ' '
121        OBEhFile = ' '        OBEhFile = ' '
122          OBEslFile = ' '
123          OBEsnFile = ' '
124        OBWuFile = ' '        OBWuFile = ' '
125        OBWvFile = ' '        OBWvFile = ' '
126        OBWtFile = ' '        OBWtFile = ' '
127        OBWsFile = ' '        OBWsFile = ' '
128        OBWaFile = ' '        OBWaFile = ' '
129        OBWhFile = ' '        OBWhFile = ' '
130          OBWslFile = ' '
131          OBWsnFile = ' '
132  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
133        DO iTracer = 1, PTRACERS_num        DO iTracer = 1, PTRACERS_num
134         OBNptrFile(iTracer) = ' '         OBNptrFile(iTracer) = ' '
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22