/[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.13 by jmc, Tue Oct 17 19:00:44 2006 UTC revision 1.14 by dimitri, Thu Oct 11 01:29:16 2007 UTC
# Line 40  C     iUnit       - Work variable for IO Line 40  C     iUnit       - Work variable for IO
40       &          OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,       &          OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,
41       &          useOrlanskiNorth,useOrlanskiSouth,       &          useOrlanskiNorth,useOrlanskiSouth,
42       &          useOrlanskiEast,useOrlanskiWest,       &          useOrlanskiEast,useOrlanskiWest,
43       &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,       &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,OBNaFile,OBNhFile,
44       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,OBSaFile,OBShFile,
45       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,OBEaFile,OBEhFile,
46       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,OBWaFile,OBWhFile,
47       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,
48       &          OBCSprintDiags       &          OBCSprintDiags
49  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 99  C--   Default flags and values for OBCS Line 99  C--   Default flags and values for OBCS
99        OBNvFile = ' '        OBNvFile = ' '
100        OBNtFile = ' '        OBNtFile = ' '
101        OBNsFile = ' '        OBNsFile = ' '
102          OBNaFile = ' '
103          OBNhFile = ' '
104        OBSuFile = ' '        OBSuFile = ' '
105        OBSvFile = ' '        OBSvFile = ' '
106        OBStFile = ' '        OBStFile = ' '
107        OBSsFile = ' '        OBSsFile = ' '
108          OBSaFile = ' '
109          OBShFile = ' '
110        OBEuFile = ' '        OBEuFile = ' '
111        OBEvFile = ' '        OBEvFile = ' '
112        OBEtFile = ' '        OBEtFile = ' '
113        OBEsFile = ' '        OBEsFile = ' '
114          OBEaFile = ' '
115          OBEhFile = ' '
116        OBWuFile = ' '        OBWuFile = ' '
117        OBWvFile = ' '        OBWvFile = ' '
118        OBWtFile = ' '        OBWtFile = ' '
119        OBWsFile = ' '        OBWsFile = ' '
120          OBWaFile = ' '
121          OBWhFile = ' '
122  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
123        DO iTracer = 1, PTRACERS_num        DO iTracer = 1, PTRACERS_num
124         OBNptrFile(iTracer) = ' '         OBNptrFile(iTracer) = ' '
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22