Changeset 167 for trunk/NEMO/OPA_SRC/DOM

Timestamp:

2004-11-05T14:39:09+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX111 : remove all special characters and lines too long for the GYRE configuration part

File:

• trunk/NEMO/OPA_SRC/DOM/domhgr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/domhgr.F90

@@ -309 +309 @@
          !                          ==========
 
-         ! angle 45° and ze1=106.e+3 / jp_cfg forced -> zlam1 = -85°, zphi1 = 29°N
+         ! angle 45deg and ze1=106.e+3 / jp_cfg forced -> zlam1 = -85deg, zphi1 = 29degN
          zlam1 = -85
          zphi1 = 29
-         ze1 = 106000. / FLOAT(jp_cfg)            ! resolution in meters
-         IF( nbench /= 0 )   ze1 = 106000.e0     ! benchmark: forced the resolution to be about 100 km
+         ! resolution in meters
+         ze1 = 106000. / FLOAT(jp_cfg)            
+         ! benchmark: forced the resolution to be about 100 km
+         IF( nbench /= 0 )   ze1 = 106000.e0     
          zsin_alpha = - SQRT( 2. ) / 2.
          zcos_alpha =   SQRT( 2. ) / 2.
          ze1deg = ze1 / (ra * rad)
          IF( nbench /= 0 )   ze1deg = ze1deg / FLOAT(jp_cfg)        ! benchmark: keep the lat/+lon
-         !                                                           ! at the right jp_cfg resolution
+         !                                                          ! at the right jp_cfg resolution
          glam0 = zlam1 + zcos_alpha * ze1deg * FLOAT( jpjglo-2 )
          gphi0 = zphi1 + zsin_alpha * ze1deg * FLOAT( jpjglo-2 )