Changeset 6591

Timestamp:

2016-05-20T15:33:10+02:00 (8 years ago)

Author:

clem

Message:

change lateral melting as it was

File:

• branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_da.F90 (modified) (1 diff)

branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd_da.F90

@@ -139 +139 @@
                
                ! decrease of concentration for the category jl
-               !!                  !    1st option: each category contributes to melting in proportion to its concentration
-               !!                  rswitch = MAX( 0._wp , SIGN( 1._wp, at_i(ji,jj) - epsi10 ) )
-               !!                  zda     = rswitch * zda_tot(ji,jj) * a_i(ji,jj,jl) / MAX( at_i(ji,jj), epsi10 )
+               !    1st option: each category contributes to melting in proportion to its concentration
+               rswitch = MAX( 0._wp , SIGN( 1._wp, at_i(ji,jj) - epsi10 ) )
+               zda     = rswitch * zda_tot(ji,jj) * a_i(ji,jj,jl) / MAX( at_i(ji,jj), epsi10 )
                !    2d option: melting of the upper cat first
-               zda = MAX( zda_tot(ji,jj), - a_i(ji,jj,jl) )
-               zda_tot(ji,jj) = zda_tot(ji,jj) + zda
+               !!zda = MAX( zda_tot(ji,jj), - a_i(ji,jj,jl) )
+               !!zda_tot(ji,jj) = zda_tot(ji,jj) + zda
                
                ! Contribution to salt flux