/[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.10 by mlosch, Mon Sep 27 08:57:57 2004 UTC revision 1.11 by mlosch, Mon Oct 10 05:53:48 2005 UTC
# Line 19  C     === Global variables === Line 19  C     === Global variables ===
19  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
20  #include "ORLANSKI.h"  #include "ORLANSKI.h"
21  #endif  #endif
22    #ifdef ALLOW_PTRACERS.h
23    #include "PTRACERS_SIZE.h"
24    #include "OBCS_PTRACERS.h"
25    #endif /* ALLOW_PTRACERS */
26    
27  C     === Routine arguments ===  C     === Routine arguments ===
28        INTEGER myThid        INTEGER myThid
# Line 34  C     === Routine arguments === Line 38  C     === Routine arguments ===
38       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,       &          OBEuFile,OBEvFile,OBEtFile,OBEsFile,
39       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,       &          OBWuFile,OBWvFile,OBWtFile,OBWsFile,
40       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe       &          useOBCSsponge, useOBCSbalance, useOBCSprescribe
41    #ifdef ALLOW_PTRACERS
42         &        , OBNptrFile,OBSptrFile,OBEptrFile,OBWptrFile
43    #endif
44    
45  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
46        NAMELIST /OBCS_PARM02/        NAMELIST /OBCS_PARM02/
# Line 52  C     msgBuf      - Informational/error Line 59  C     msgBuf      - Informational/error
59  C     iUnit       - Work variable for IO unit number  C     iUnit       - Work variable for IO unit number
60        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
61        INTEGER iUnit        INTEGER iUnit
62        INTEGER I,J        INTEGER I,J,iTracer
63    
64  C--   OBCS_READPARMS has been called so we know that  C--   OBCS_READPARMS has been called so we know that
65  C     the package is active.  C     the package is active.
# Line 102  C--   Default flags and values for OBCS Line 109  C--   Default flags and values for OBCS
109        OBWvFile = ' '        OBWvFile = ' '
110        OBWtFile = ' '        OBWtFile = ' '
111        OBWsFile = ' '        OBWsFile = ' '
112    #ifdef ALLOW_PTRACERS
113          DO iTracer = 1, PTRACERS_num
114           OBNptrFile(iTracer) = ' '
115           OBSptrFile(iTracer) = ' '
116           OBEptrFile(iTracer) = ' '
117           OBWptrFile(iTracer) = ' '
118          ENDDO
119    #endif
120    
121  C--   Read parameters from open data file  C--   Read parameters from open data file
122        READ(UNIT=iUnit,NML=OBCS_PARM01)        READ(UNIT=iUnit,NML=OBCS_PARM01)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22