/[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.6 by adcroft, Tue Jul 6 18:25:52 2004 UTC revision 1.7 by heimbach, Mon Sep 20 23:22:57 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
 cc  
3    
4  #include "OBCS_OPTIONS.h"  #include "OBCS_OPTIONS.h"
5    
# Line 33  C     === Routine arguments === Line 32  C     === Routine arguments ===
32       &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,       &          OBNuFile,OBNvFile,OBNtFile,OBNsFile,
33       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,       &          OBSuFile,OBSvFile,OBStFile,OBSsFile,
34       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,
35       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,
36         &          useOBCSsponge
37    
38  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
39        NAMELIST /OBCS_PARM02/        NAMELIST /OBCS_PARM02/
40       & CMAX, cvelTimeScale, CFIX, useFixedCEast, useFixedCWest       & CMAX, cvelTimeScale, CFIX, useFixedCEast, useFixedCWest
41  #endif  #endif
42    
43    #ifdef ALLOW_OBCS_SPONGE
44          NAMELIST /OBCS_PARM03/
45         &          Urelaxobcsinner,Urelaxobcsbound,
46         &          Vrelaxobcsinner,Vrelaxobcsbound,
47         &          spongeThickness
48    #endif
49    
50  C     === Local variables ===  C     === Local variables ===
51  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
52  C     iUnit       - Work variable for IO unit number  C     iUnit       - Work variable for IO unit number
# Line 75  C--   Default flags and values for OBCS Line 82  C--   Default flags and values for OBCS
82        useOrlanskiSouth=.FALSE.        useOrlanskiSouth=.FALSE.
83        useOrlanskiEast =.FALSE.        useOrlanskiEast =.FALSE.
84        useOrlanskiWest =.FALSE.        useOrlanskiWest =.FALSE.
85          useOBCSsponge   =.FALSE.
86    
87        OBNuFile = ' '        OBNuFile = ' '
88        OBNvFile = ' '        OBNvFile = ' '
# Line 122  C     Default Orlanski radiation paramet Line 130  C     Default Orlanski radiation paramet
130       & READ(UNIT=iUnit,NML=OBCS_PARM02)       & READ(UNIT=iUnit,NML=OBCS_PARM02)
131  #endif  #endif
132                
133    #ifdef ALLOW_OBCS_SPONGE
134    C     Default sponge layer parameters
135          spongeThickness = 2
136          Urelaxobcsinner = 5. _d 0
137          Urelaxobcsbound = 1. _d 0
138          Vrelaxobcsinner = 5. _d 0
139          Vrelaxobcsbound = 1. _d 0
140          IF (useOBCSsponge)
141         & READ(UNIT=iUnit,NML=OBCS_PARM03)
142    #endif
143    
144        WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs'        WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs'
145        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
146       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22