Changeset 5049 for branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

2015-02-02T12:02:16+01:00 (9 years ago)

Author:

vancop

Message:

compilation bugs

File:

• branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90 (modified) (2 diffs)

branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

@@ -193 +193 @@
       !  Clem - je sais pas encore dans quelle namelist les mettre, ca depend des chgts liés à bdy
       nn_hibnd  = 2                !  thickness category boundaries: tanh function (1) h^(-alpha) (2)
-      rn_himean = 2.5              !  mean thickness of the domain (used to compute category boundaries, nn_hibnd = 2 only)
+      rn_hibnd  = 2.5              !  mean thickness of the domain (used to compute category boundaries, nn_hibnd = 2 only)
 
       hi_max(:) = 0._wp
 
-      SELECT CASE ( nn_hbnd  )       
+      SELECT CASE ( nn_hibnd  )       
                                    !----------------------
          CASE (1)                  ! tanh function (CICE)
@@ -217 +217 @@
          zalpha = 0.05             ! exponent of the transform function
 
-         zhmax  = 3.*rn_himean
+         zhmax  = 3.*rn_hibnd
 
          DO jl = 1, jpl