/[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.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC revision 1.5 by heimbach, Mon May 14 21:36:45 2001 UTC
# Line 28  C     === Routine arguments === Line 28  C     === Routine arguments ===
28        NAMELIST /OBCS_PARM01/        NAMELIST /OBCS_PARM01/
29       &          OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,       &          OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,
30       &          useOrlanskiNorth,useOrlanskiSouth,       &          useOrlanskiNorth,useOrlanskiSouth,
31       &          useOrlanskiEast,useOrlanskiWest       &          useOrlanskiEast,useOrlanskiWest,
32         &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,
33         &          OBSuFile,OBSvFile,OBStFile,OBSsFile,
34         &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,
35         &          OBWuFile,OBWvFile,OBWtFile,OBWsFile
36    
37  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
38        NAMELIST /OBCS_PARM02/        NAMELIST /OBCS_PARM02/
# Line 71  C--   Default flags and values for OBCS Line 75  C--   Default flags and values for OBCS
75        useOrlanskiEast =.FALSE.        useOrlanskiEast =.FALSE.
76        useOrlanskiWest =.FALSE.        useOrlanskiWest =.FALSE.
77    
78          OBNuFile = ' '
79          OBNvFile = ' '
80          OBNtFile = ' '
81          OBNsFile = ' '
82          OBSuFile = ' '
83          OBSvFile = ' '
84          OBStFile = ' '
85          OBSsFile = ' '
86          OBEuFile = ' '
87          OBEvFile = ' '
88          OBEtFile = ' '
89          OBEsFile = ' '
90          OBWuFile = ' '
91          OBWvFile = ' '
92          OBWtFile = ' '
93          OBWsFile = ' '
94    
95  C--   Read parameters from open data file  C--   Read parameters from open data file
96        READ(UNIT=iUnit,NML=OBCS_PARM01)        READ(UNIT=iUnit,NML=OBCS_PARM01)
97    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22