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

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/osse/codemod/ini_parms.F	2004/06/23 18:55:35	1.3
+++ MITgcm_contrib/osse/codemod/ini_parms.F	2004/06/24 17:52:38	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/osse/codemod/ini_parms.F,v 1.3 2004/06/23 18:55:35 afe Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/osse/codemod/ini_parms.F,v 1.4 2004/06/24 17:52:38 afe Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -193,7 +193,7 @@
       NAMELIST /PARM04/
      & usingCartesianGrid, dxSpacing, dySpacing, delX, delY, delZ,
      & usingSphericalPolarGrid, phiMin, thetaMin, rSphere,
-     & usingCurvilinearGrid,bUseCylindricalGrid,
+     & usingCurvilinearGrid,usingCylindricalGrid,
      & delP, delR, rkFac, Ro_SeaLevel, groundAtK1, delRc,
      & delXfile, delYfile
 
@@ -844,7 +844,7 @@
       IF ( usingCartesianGrid )      goptCount = goptCount+1
       IF ( usingSphericalPolarGrid ) goptCount = goptCount+1
       IF ( usingCurvilinearGrid )    goptCount = goptCount+1
-      IF ( buseCylindricalGrid )    goptCount = goptCount+1
+      IF ( usingCylindricalGrid )    goptCount = goptCount+1
       IF ( goptCount .GT. 1 ) THEN
        WRITE(msgBuf,'(A)')
      &  'S/R INI_PARMS: More than one coordinate system requested'
@@ -872,7 +872,7 @@
        useBetaPlaneF = .TRUE.
       ENDIF
 C--   Make metric term settings consistent with underlying grid.
-      IF ( bUseCylindricalGrid) THEN
+      IF ( usingCylindricalGrid) THEN
        usingSphericalPolarMterms = .FALSE.
        metricTerms = .FALSE.
        useNHMTerms = .FALSE.