/[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.186 by jmc, Fri Jul 7 17:10:30 2006 UTC revision 1.187 by jmc, Thu Jul 13 02:58:03 2006 UTC
# Line 168  C--   Continuous equation parameters Line 168  C--   Continuous equation parameters
168       & no_slip_sides, sideDragFactor,       & no_slip_sides, sideDragFactor,
169       & no_slip_bottom, bottomDragLinear, bottomDragQuadratic,       & no_slip_bottom, bottomDragLinear, bottomDragQuadratic,
170       & momViscosity,  momAdvection, momForcing, useCoriolis,       & momViscosity,  momAdvection, momForcing, useCoriolis,
171       & useConstantF,       & useConstantF, useBetaPlaneF, useSphereF, use3dCoriolis,
172       & momPressureForcing, metricTerms, vectorInvariantMomentum,       & momPressureForcing, metricTerms, vectorInvariantMomentum,
173       & tempDiffusion, tempAdvection, tempForcing,       & tempDiffusion, tempAdvection, tempForcing,
174       & saltDiffusion, saltAdvection, saltForcing,       & saltDiffusion, saltAdvection, saltForcing,
# Line 188  C--   Continuous equation parameters Line 188  C--   Continuous equation parameters
188       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,       & nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO,
189       & allowFreezing, useOldFreezing, ivdc_kappa,       & allowFreezing, useOldFreezing, ivdc_kappa,
190       & usePickupBeforeC35, usePickupBeforeC54, debugMode, debugLevel,       & usePickupBeforeC35, usePickupBeforeC54, debugMode, debugLevel,
191       & tempAdvScheme, tempVertAdvScheme,       & tempAdvScheme, tempVertAdvScheme,
192       & saltAdvScheme, saltVertAdvScheme, tracerAdvScheme,       & saltAdvScheme, saltVertAdvScheme, tracerAdvScheme,
193       & multiDimAdvection, useEnergyConservingCoriolis,       & multiDimAdvection, useEnergyConservingCoriolis,
194       & useCDscheme, useJamartWetPoints, useJamartMomAdv, useNHMTerms,       & useCDscheme, useJamartWetPoints, useJamartMomAdv, useNHMTerms,
# Line 1064  C-     No horizontal grid is specified = Line 1064  C-     No horizontal grid is specified =
1064       &                    SQUEEZE_RIGHT , myThid)       &                    SQUEEZE_RIGHT , myThid)
1065         usingCartesianGrid = .TRUE.         usingCartesianGrid = .TRUE.
1066        ENDIF        ENDIF
1067  C--   Make metric term settings consistent with underlying grid.  C--   Make metric term & Coriolis settings consistent with underlying grid.
1068        IF ( usingCartesianGrid ) THEN        IF ( usingCartesianGrid ) THEN
1069         metricTerms = .FALSE.         metricTerms   = .FALSE.
1070         useNHMTerms = .FALSE.         useNHMTerms   = .FALSE.
1071         useBetaPlaneF = .TRUE.         useBetaPlaneF = .TRUE.
1072        ENDIF        ENDIF
1073        IF ( usingCylindricalGrid) THEN        IF ( usingCylindricalGrid ) THEN
1074         useNHMTerms = .FALSE.         useNHMTerms   = .FALSE.
1075         useBetaPlaneF = .TRUE.         useBetaPlaneF = .TRUE.
1076         WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; Cylinder OK'         WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; Cylinder OK'
1077         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
1078       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
1079        ENDIF        ENDIF
       IF ( usingSphericalPolarGrid ) THEN  
        useSphereF    = .TRUE.  
       ENDIF  
1080        IF ( usingCurvilinearGrid ) THEN        IF ( usingCurvilinearGrid ) THEN
1081         useSphereF    = .TRUE.         metricTerms   = .FALSE.
        metricTerms = .FALSE.  
        useNHMTerms = .FALSE.  
1082        ENDIF        ENDIF
1083          IF ( useConstantF ) useBetaPlaneF = .FALSE.
1084          IF ( useConstantF )  useSphereF   = .FALSE.
1085          IF ( useBetaPlaneF ) useSphereF   = .FALSE.
1086          IF ( usingCartesianGrid .OR. usingCylindricalGrid
1087         &     .OR. .NOT.(nonHydrostatic.OR.quasiHydrostatic) )
1088         &                    use3dCoriolis = .FALSE.
1089    
1090  C--   Set default for latitude-band where relaxation to climatology applies  C--   Set default for latitude-band where relaxation to climatology applies
1091  C     note: done later (once domain size is known) if using CartesianGrid  C     note: done later (once domain size is known) if using CartesianGrid
Legend:
Removed from v.1.186  
changed lines
  Added in v.1.187
  ViewVC Help
Powered by ViewVC 1.1.22