Changeset 8085 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

Timestamp:

2017-05-29T16:58:42+02:00 (7 years ago)

Author:

vancop

Message:

More on melt ponds in LIM

File:

• branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90 (modified) (3 diffs)

branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

@@ -608 +608 @@
             esrdg (ij) = e_s  (ji,jj,1,jl1) * afrac(ij)
             !MV MP 2016
-            IF ( nn_pnd_scheme > 1 ) THEN
+            IF ( nn_pnd_scheme > 0 ) THEN
                vprdg(ij) = v_ip(ji,jj, jl1) * afrac(ij)
             ENDIF
@@ -620 +620 @@
             vsrft (ij) = v_s  (ji,jj,  jl1) * afrft(ij)
             !MV MP 2016
-            IF ( nn_pnd_scheme > 1 ) THEN
+            IF ( nn_pnd_scheme > 0 ) THEN
                vprft(ij) = v_ip(ji,jj,jl1) * afrft(ij)
             ENDIF
@@ -665 +665 @@
             !------------------------------------------            
             !  Place part of the melt pond volume into the ocean. 
-            IF ( ( nn_pnd_scheme > 0 ) .AND. ( ( nn_pnd_cpl == 1 ) .OR. ( nn_pnd_cpl == 3 ) ) )
+            IF ( ( nn_pnd_scheme > 0 ) .AND. ( ( nn_pnd_cpl == 1 ) .OR. ( nn_pnd_cpl == 3 ) ) ) THEN
                wfx_pnd(ji,jj) = wfx_pnd(ji,jj) + ( rhofw * vprdg(ij) * ( 1._wp - rn_fpondrdg )   & 
                &                                 + rhofw * vprft(ij) * ( 1._wp - rn_fpondrft ) ) * r1_rdtice  ! fresh water source for ocean