/[MITgcm]/MITgcm_contrib/osse/codemod/ini_parms.F
ViewVC logotype

Diff of /MITgcm_contrib/osse/codemod/ini_parms.F

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

revision 1.3 by afe, Wed Jun 23 18:55:35 2004 UTC revision 1.4 by afe, Thu Jun 24 17:52:38 2004 UTC
# Line 193  C--   Gridding parameters Line 193  C--   Gridding parameters
193        NAMELIST /PARM04/        NAMELIST /PARM04/
194       & usingCartesianGrid, dxSpacing, dySpacing, delX, delY, delZ,       & usingCartesianGrid, dxSpacing, dySpacing, delX, delY, delZ,
195       & usingSphericalPolarGrid, phiMin, thetaMin, rSphere,       & usingSphericalPolarGrid, phiMin, thetaMin, rSphere,
196       & usingCurvilinearGrid,bUseCylindricalGrid,       & usingCurvilinearGrid,usingCylindricalGrid,
197       & delP, delR, rkFac, Ro_SeaLevel, groundAtK1, delRc,       & delP, delR, rkFac, Ro_SeaLevel, groundAtK1, delRc,
198       & delXfile, delYfile       & delXfile, delYfile
199    
# Line 844  C--   Check for conflicting grid definit Line 844  C--   Check for conflicting grid definit
844        IF ( usingCartesianGrid )      goptCount = goptCount+1        IF ( usingCartesianGrid )      goptCount = goptCount+1
845        IF ( usingSphericalPolarGrid ) goptCount = goptCount+1        IF ( usingSphericalPolarGrid ) goptCount = goptCount+1
846        IF ( usingCurvilinearGrid )    goptCount = goptCount+1        IF ( usingCurvilinearGrid )    goptCount = goptCount+1
847        IF ( buseCylindricalGrid )    goptCount = goptCount+1        IF ( usingCylindricalGrid )    goptCount = goptCount+1
848        IF ( goptCount .GT. 1 ) THEN        IF ( goptCount .GT. 1 ) THEN
849         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
850       &  'S/R INI_PARMS: More than one coordinate system requested'       &  'S/R INI_PARMS: More than one coordinate system requested'
# Line 872  C--   Make metric term settings consiste Line 872  C--   Make metric term settings consiste
872         useBetaPlaneF = .TRUE.         useBetaPlaneF = .TRUE.
873        ENDIF        ENDIF
874  C--   Make metric term settings consistent with underlying grid.  C--   Make metric term settings consistent with underlying grid.
875        IF ( bUseCylindricalGrid) THEN        IF ( usingCylindricalGrid) THEN
876         usingSphericalPolarMterms = .FALSE.         usingSphericalPolarMterms = .FALSE.
877         metricTerms = .FALSE.         metricTerms = .FALSE.
878         useNHMTerms = .FALSE.         useNHMTerms = .FALSE.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22