Changeset 6584 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

Timestamp:

2016-05-20T11:54:18+02:00 (8 years ago)

Author:

clem

Message:

LIM3 and Agrif compatibility

File:

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

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

@@ -89 +89 @@
       vt_s (:,:) = SUM( v_s, dim=3 )
       at_i (:,:) = SUM( a_i, dim=3 )
+      et_s(:,:)  = SUM( SUM( e_s(:,:,:,:), dim=4 ), dim=3 )
+      et_i(:,:)  = SUM( SUM( e_i(:,:,:,:), dim=4 ), dim=3 )
 
       ! open water fraction
@@ -98 +100 @@
 
       IF( kn > 1 ) THEN
-         et_s(:,:)  = SUM( SUM( e_s(:,:,:,:), dim=4 ), dim=3 )  ! snow heat content
-         et_i(:,:)  = SUM( SUM( e_i(:,:,:,:), dim=4 ), dim=3 )  ! ice  heat content
 
          ! mean ice/snow thickness