Ignore:
Timestamp:
2017-08-08T15:58:05+02:00 (3 years ago)
Author:
clem
Message:

continue naming

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r8420 r8422  
    431431   SUBROUTINE lim_var_salprof1d 
    432432      !!------------------------------------------------------------------- 
    433       !!                  ***  ROUTINE lim_thd_salprof1d  *** 
     433      !!                  ***  ROUTINE lim_var_salprof1d  *** 
    434434      !! 
    435435      !! ** Purpose :   1d computation of the sea ice salinity profile 
     
    760760               zht_s(ji,jl) = zht_i(ji,jl) * ( zhts(ji) / zhti(ji) ) 
    761761               ! In case snow load is in excess that would lead to transformation from snow to ice 
    762                ! Then, transfer the snow excess into the ice (different from limthd_dh) 
     762               ! Then, transfer the snow excess into the ice (different from icethd_dh) 
    763763               zdh = MAX( 0._wp, ( rhosn * zht_s(ji,jl) + ( rhoic - rau0 ) * zht_i(ji,jl) ) * r1_rau0 )  
    764764               ! recompute ht_i, ht_s avoiding out of bounds values 
Note: See TracChangeset for help on using the changeset viewer.