Changeset 8061 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90

Timestamp:

2017-05-24T10:02:23+02:00 (7 years ago)

Author:

vancop

Message:

Quick commit on empirical melt ponds

File:

• branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90 (modified) (2 diffs)

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

@@ -358 +358 @@
             a_i (ii,ij,1) = a_i(ii,ij,1) * ht_i(ii,ij,1) / rn_himin 
             ! MV MP 2016
-            IF ( ln_limMP ) THEN
+            IF ( nn_pnd_scheme > 0 ) THEN
                a_ip(ii,ij,1) = a_ip(ii,ij,1) * ht_i(ii,ij,1) / rn_himin
             ENDIF
@@ -587 +587 @@
 
             ! MV MP 2016 
-            IF ( ln_limMP ) THEN
+            IF ( nn_pnd_scheme > 0 ) THEN
             !---------------------
             ! Pond fraction