Changeset 13996 for NEMO

Timestamp:

2020-12-02T14:46:55+01:00 (3 years ago)

Author:

acc

Message:

dev_r13787_SI3-10_EAP. Reset ismooth setting in src/ICE/icedyn_rdgrft.F90 to keep SETTE results unchanged

File:

• NEMO/branches/2020/dev_r13787_SI3-10_EAP/src/ICE/icedyn_rdgrft.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13787_SI3-10_EAP/src/ICE/icedyn_rdgrft.F90

@@ -779 +779 @@
       !                              !--------------------------------------------------!
          strength(:,:) = rn_pstar * SUM( v_i(:,:,:), dim=3 ) * EXP( -rn_crhg * ( 1._wp - SUM( a_i(:,:,:), dim=3 ) ) )
-!         ismooth = 1    ! original code
-         ismooth = 0    ! try for EAP stability
+         ismooth = 1    ! original code
+!        ismooth = 0    ! try for EAP stability
          !                           !--------------------------------------------------!
       ELSE                           ! Zero strength                                    !