Changeset 8422 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

Timestamp:

2017-08-08T15:58:05+02:00 (3 years ago)

Author:

clem

Message:

continue naming

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

@@ -431 +431 @@
    SUBROUTINE lim_var_salprof1d
       !!-------------------------------------------------------------------
-      !!                  ***  ROUTINE lim_thd_salprof1d  ***
+      !!                  ***  ROUTINE lim_var_salprof1d  ***
       !!
       !! ** Purpose :   1d computation of the sea ice salinity profile
@@ -760 +760 @@
                zht_s(ji,jl) = zht_i(ji,jl) * ( zhts(ji) / zhti(ji) )
                ! In case snow load is in excess that would lead to transformation from snow to ice
-               ! Then, transfer the snow excess into the ice (different from limthd_dh)
+               ! Then, transfer the snow excess into the ice (different from icethd_dh)
                zdh = MAX( 0._wp, ( rhosn * zht_s(ji,jl) + ( rhoic - rau0 ) * zht_i(ji,jl) ) * r1_rau0 ) 
                ! recompute ht_i, ht_s avoiding out of bounds values