Changeset 13902 for NEMO/branches/2020/SI3-05_MeltPonds_topo/src/ICE/iceitd.F90

Timestamp:

2020-11-28T10:38:45+01:00 (4 years ago)

Author:

vancop

Message:

fix topo ponds, add pond volume diagsand add modulable drainage for level ponds

File:

• NEMO/branches/2020/SI3-05_MeltPonds_topo/src/ICE/iceitd.F90 (modified) (2 diffs)

NEMO/branches/2020/SI3-05_MeltPonds_topo/src/ICE/iceitd.F90

@@ -305 +305 @@
             IF ( a_i_1d(ji) > epsi10 .AND. h_i_1d(ji) < rn_himin ) THEN
                a_i_1d(ji) = a_i_1d(ji) * h_i_1d(ji) / rn_himin 
-               IF( ln_pnd_LEV )   a_ip_1d(ji) = a_ip_1d(ji) * h_i_1d(ji) / rn_himin
+               IF( ln_pnd_LEV .OR. ln_pnd_TOPO )   a_ip_1d(ji) = a_ip_1d(ji) * h_i_1d(ji) / rn_himin
                h_i_1d(ji) = rn_himin
             ENDIF
@@ -476 +476 @@
                zaTsfn(ji,jl2)  = zaTsfn(ji,jl2) + ztrans
                !  
-               IF ( ln_pnd_LEV ) THEN
+               IF ( ln_pnd_LEV .OR. ln_pnd_TOPO ) THEN
                   ztrans          = a_ip_2d(ji,jl1) * zworka(ji)     ! Pond fraction
                   a_ip_2d(ji,jl1) = a_ip_2d(ji,jl1) - ztrans