/[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.5 by cnh, Mon Apr 27 04:24:22 1998 UTC revision 1.6 by adcroft, Wed May 20 21:29:31 1998 UTC
# Line 55  C--   Continuous equation parameters Line 55  C--   Continuous equation parameters
55       &   viscAh,  viscAz,  viscA4,       &   viscAh,  viscAz,  viscA4,
56       &  diffKhT, diffKzT, diffK4T,       &  diffKhT, diffKzT, diffK4T,
57       &  diffKhS, diffKzS, diffK4S,       &  diffKhS, diffKzS, diffK4S,
58         &  GMmaxslope,GMlength,GMalpha,GMdepth,GMkbackground,
59       &  tRef, sRef,       &  tRef, sRef,
60       & momViscosity,  momAdvection, momForcing, useCoriolis,       & momViscosity,  momAdvection, momForcing, useCoriolis,
61       & tempDiffusion, tempAdvection, tempForcing,       & tempDiffusion, tempAdvection, tempForcing,
# Line 155  C--   Set default "physical" parameters Line 156  C--   Set default "physical" parameters
156        diffKzS=1.d-1        diffKzS=1.d-1
157        diffK4T=0.        diffK4T=0.
158        diffK4S=0.        diffK4S=0.
159          GMmaxslope=1.d-2
160          GMlength=200.d3
161          GMalpha=0.
162          GMdepth=1000.
163          GMkbackground=0.
164        READ(UNIT=iUnit,NML=PARM01,IOSTAT=errIO,err=3)        READ(UNIT=iUnit,NML=PARM01,IOSTAT=errIO,err=3)
165        IF ( errIO .GE. 0 ) GOTO 4        IF ( errIO .GE. 0 ) GOTO 4
166      3 CONTINUE      3 CONTINUE
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22