/[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.12 by mlosch, Tue Apr 4 07:46:17 2006 UTC revision 1.13 by jmc, Tue Oct 17 19:00:44 2006 UTC
# Line 29  C     === Routine arguments === Line 29  C     === Routine arguments ===
29    
30  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
31    
32    C     === Local variables ===
33    C     msgBuf      - Informational/error meesage buffer
34    C     iUnit       - Work variable for IO unit number
35          CHARACTER*(MAX_LEN_MBUF) msgBuf
36          INTEGER iUnit
37          INTEGER I,J,iTracer
38    
39        NAMELIST /OBCS_PARM01/        NAMELIST /OBCS_PARM01/
40       &          OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,       &          OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest,
41       &          useOrlanskiNorth,useOrlanskiSouth,       &          useOrlanskiNorth,useOrlanskiSouth,
# Line 55  C     === Routine arguments === Line 62  C     === Routine arguments ===
62       &          spongeThickness       &          spongeThickness
63  #endif  #endif
64    
65  C     === Local variables ===        _BEGIN_MASTER(myThid)
 C     msgBuf      - Informational/error meesage buffer  
 C     iUnit       - Work variable for IO unit number  
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
       INTEGER iUnit  
       INTEGER I,J,iTracer  
66    
67  C--   OBCS_READPARMS has been called so we know that  C--   OBCS_READPARMS has been called so we know that
68  C     the package is active.  C     the package is active.
69        OBCSIsOn=.TRUE.        OBCSIsOn=.TRUE.
70    
       _BEGIN_MASTER(myThid)  
   
71        WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs'        WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs'
72        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
73       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
# Line 145  C     Default Orlanski radiation paramet Line 145  C     Default Orlanski radiation paramet
145        IF (useOrlanskiNorth.OR.        IF (useOrlanskiNorth.OR.
146       &    useOrlanskiSouth.OR.       &    useOrlanskiSouth.OR.
147       &    useOrlanskiEast.OR.       &    useOrlanskiEast.OR.
148       &    useOrlanskiWest)       &    useOrlanskiWest)
149       & READ(UNIT=iUnit,NML=OBCS_PARM02)       & READ(UNIT=iUnit,NML=OBCS_PARM02)
150  #endif  #endif
151          
152  #ifdef ALLOW_OBCS_SPONGE  #ifdef ALLOW_OBCS_SPONGE
153  C     Default sponge layer parameters:  C     Default sponge layer parameters:
154  C     sponge layer is turned off by default  C     sponge layer is turned off by default
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22