Changeset 7506 for branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90

Timestamp:

2016-12-15T20:41:18+01:00 (7 years ago)

Author:

vancop

Message:

Commit a first set of modifications

File:

• branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90 (modified) (1 diff)

branches/2016/v3_6_CMIP6_ice_diagnostics/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90

@@ -180 +180 @@
       ! necessary calls (at least for coupling)
       CALL lim_var_glo2eqv
+
+      ! MV SIMIP 2016 small patch to clean ice age outputs
+      WHERE( ( a_i < 5.0e-3 ) .AND. ( ht_i < 1.5 * rn_himin ) ); oa_i(:,:,:) = a_i(:,:,:); END WHERE
+
       CALL lim_var_agg(2)