/[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.17 by jmc, Wed Oct 31 21:53:49 2007 UTC revision 1.18 by mlosch, Thu Jan 24 18:39:38 2008 UTC
# Line 49  C     iUnit       - Work variable for IO Line 49  C     iUnit       - Work variable for IO
49       &          OBNuiceFile,OBSuiceFile,OBEuiceFile,OBWuiceFile,       &          OBNuiceFile,OBSuiceFile,OBEuiceFile,OBWuiceFile,
50       &          OBNviceFile,OBSviceFile,OBEviceFile,OBWviceFile,       &          OBNviceFile,OBSviceFile,OBEviceFile,OBWviceFile,
51       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe,
52       &          OBCSprintDiags       &          OBCSprintDiags, useOBCSYearlyFields
53  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
54       &        , OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile       &        , OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile
55  #endif  #endif
# Line 90  C--   Default flags and values for OBCS Line 90  C--   Default flags and values for OBCS
90         OB_Ieast(J)=0         OB_Ieast(J)=0
91         OB_Iwest(J)=0         OB_Iwest(J)=0
92        ENDDO        ENDDO
93        useOrlanskiNorth=.FALSE.        useOrlanskiNorth   =.FALSE.
94        useOrlanskiSouth=.FALSE.        useOrlanskiSouth   =.FALSE.
95        useOrlanskiEast =.FALSE.        useOrlanskiEast    =.FALSE.
96        useOrlanskiWest =.FALSE.        useOrlanskiWest    =.FALSE.
97        useOBCSsponge   =.FALSE.        useOBCSsponge      =.FALSE.
98        useOBCSbalance  =.FALSE.        useOBCSbalance     =.FALSE.
99        useOBCSprescribe=.FALSE.        useOBCSprescribe   =.FALSE.
100        OBCSprintDiags  =.TRUE.        OBCSprintDiags     =.TRUE.
101          useOBCSYearlyFields=.FALSE.
102    
103        OBNuFile = ' '        OBNuFile = ' '
104        OBNvFile = ' '        OBNvFile = ' '
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22