Changeset 10531 for NEMO/trunk/src/ICE/icedyn_rdgrft.F90

Timestamp:

2019-01-16T14:17:50+01:00 (5 years ago)

Author:

clem

Message:

remove nn_virtual_itd options and replace them by ln_virtual_itd

File:

• NEMO/trunk/src/ICE/icedyn_rdgrft.F90 (modified) (1 diff)

NEMO/trunk/src/ICE/icedyn_rdgrft.F90

@@ -586 +586 @@
                   &                                      + rhos * vsrft(ji) * ( 1._wp - rn_fsnwrft ) ) * r1_rdtice
 
-               ! Put the melt pond water into the ocean
-               ! clem: I think the following lines must be commented since there
-               !       is no net mass flux between melt ponds and the ocean (see icethd_pnd.F90 for ex.)
-               !IF ( ln_pnd_fwb ) THEN
-               !   wfx_pnd_1d(ji) = wfx_pnd_1d(ji) + ( rhow * vprdg(ji) * ( 1._wp - rn_fpndrdg )   &        ! fresh water source for ocean
-               !      &                              + rhow * vprft(ji) * ( 1._wp - rn_fpndrft ) ) * r1_rdtice
-               !ENDIF
-
                ! virtual salt flux to keep salinity constant
                IF( nn_icesal /= 2 )  THEN