Changeset 5049

Timestamp:

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

Author:

vancop

Message:

compilation bugs

Location:

branches/2015/dev_r5044_CNRS_LIM3CLEAN/NEMOGCM/NEMO/LIM_SRC_3

Files:

• iceini.F90 (modified) (2 diffs)
• limthd.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 

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

@@ -92 +92 @@
       !
       REAL(wp) :: zvi_b, zsmv_b, zei_b, zfs_b, zfw_b, zft_b 
+      REAL(wp) :: zda
       !
       REAL(wp), POINTER, DIMENSION(:,:) ::  zqsr, zqns
@@ -480 +481 @@
       ! 5.X) Lateral melting
       !----------------------------------
-      !!! declare dh_i_melt (ok), dh_i_melt_1d (ok), nbplm (ok), nplm (ok), zda(ok)
-
       IF ( ( ( nn_monocat .EQ. 1 ) .OR. ( nn_monocat .EQ. 4 ) ) .AND. ( jpl == 1 ) ) THEN