Changeset 7293 for branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

Timestamp:

2016-11-21T16:27:53+01:00 (7 years ago)

Author:

vancop

Message:

Commit infrastructure for melt pond impletation

File:

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

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

@@ -91 +91 @@
       et_i(:,:)  = SUM( SUM( e_i(:,:,:,:), dim=4 ), dim=3 )
 
+      ! MV MP 2016
+      IF ( ln_limMP )
+         at_i_p(:,:) = SUM( a_ip, dim=3 )
+         vt_i_p(:,:) = SUM( v_ip, dim=3 )
+      ENDIF
+      ! END MP 2016
+
       ! open water fraction
       DO jj = 1, jpj
@@ -244 +251 @@
       END DO
 
-      ! integrated values
+      ! integrated values 
       vt_i (:,:) = SUM( v_i, dim=3 )
       vt_s (:,:) = SUM( v_s, dim=3 )
       at_i (:,:) = SUM( a_i, dim=3 )
+
+      ! MV MP 2016
+      ! probably should resum for melt ponds ???
 
       !