/[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.9 by cnh, Mon May 25 20:05:55 1998 UTC revision 1.10 by cnh, Mon May 25 21:29:45 1998 UTC
# Line 61  C--   Continuous equation parameters Line 61  C--   Continuous equation parameters
61       & momPressureForcing,       & momPressureForcing,
62       & tempDiffusion, tempAdvection, tempForcing,       & tempDiffusion, tempAdvection, tempForcing,
63       & saltDiffusion, saltAdvection, saltForcing,       & saltDiffusion, saltAdvection, saltForcing,
64       & implicitFreeSurface, rigidLid, freeSurfFac       & implicitFreeSurface, rigidLid, freeSurfFac,
65         & tempStepping, momStepping
66    
67  C--   Elliptic solver parameters  C--   Elliptic solver parameters
68        NAMELIST /PARM02/        NAMELIST /PARM02/
# Line 173  C--   Set default "physical" parameters Line 174  C--   Set default "physical" parameters
174        momForcing          = .TRUE.        momForcing          = .TRUE.
175        useCoriolis         = .TRUE.        useCoriolis         = .TRUE.
176        momPressureForcing  = .TRUE.        momPressureForcing  = .TRUE.
177          momStepping         = .TRUE.
178          tempStepping        = .TRUE.
179        READ(UNIT=iUnit,NML=PARM01,IOSTAT=errIO,err=3)        READ(UNIT=iUnit,NML=PARM01,IOSTAT=errIO,err=3)
180        IF ( errIO .GE. 0 ) GOTO 4        IF ( errIO .GE. 0 ) GOTO 4
181      3 CONTINUE      3 CONTINUE
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22