/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by adcroft, Thu May 28 16:19:50 1998 UTC revision 1.12 by adcroft, Mon Jun 1 22:27:14 1998 UTC
# Line 62  C--   Continuous equation parameters Line 62  C--   Continuous equation parameters
62       & tempDiffusion, tempAdvection, tempForcing,       & tempDiffusion, tempAdvection, tempForcing,
63       & saltDiffusion, saltAdvection, saltForcing,       & saltDiffusion, saltAdvection, saltForcing,
64       & implicitFreeSurface, rigidLid, freeSurfFac,       & implicitFreeSurface, rigidLid, freeSurfFac,
65       & tempStepping, momStepping       & tempStepping, momStepping, implicitDiffusion
66    
67  C--   Elliptic solver parameters  C--   Elliptic solver parameters
68        NAMELIST /PARM02/        NAMELIST /PARM02/
# Line 177  C--   Set default "physical" parameters Line 177  C--   Set default "physical" parameters
177        momPressureForcing  = .TRUE.        momPressureForcing  = .TRUE.
178        momStepping         = .TRUE.        momStepping         = .TRUE.
179        tempStepping        = .TRUE.        tempStepping        = .TRUE.
180          implicitDiffusion   = .FALSE.
181        READ(UNIT=iUnit,NML=PARM01,IOSTAT=errIO,err=3)        READ(UNIT=iUnit,NML=PARM01,IOSTAT=errIO,err=3)
182        IF ( errIO .GE. 0 ) GOTO 4        IF ( errIO .GE. 0 ) GOTO 4
183      3 CONTINUE      3 CONTINUE
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22