Changeset 13346 for NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_rhg_evp.F90

Timestamp:

2020-07-27T14:52:36+02:00 (4 years ago)

Author:

clem

Message:

change namelist parameter ln_rhg_chkcvg into nn_rhg_chkcvg to ensure more flexibility

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_rhg_evp.F90 (modified) (3 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/ICE/icedyn_rhg_evp.F90

@@ -362 +362 @@
          !
          ! convergence test
-         IF( ln_rhg_chkcvg ) THEN
+         IF( nn_rhg_chkcvg == 1 .OR. nn_rhg_chkcvg == 2  ) THEN
             DO jj = 1, jpj
                DO ji = 1, jpi
@@ -715 +715 @@
 
          ! convergence test
-         IF( ln_rhg_chkcvg )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice )
+         IF( nn_rhg_chkcvg == 2 )   CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice )
          !
          !                                                ! ==================== !
@@ -890 +890 @@
       !
       ! --- convergence tests --- !
-      IF( ln_rhg_chkcvg ) THEN
+      IF( nn_rhg_chkcvg == 1 .OR. nn_rhg_chkcvg == 2 ) THEN
          IF( iom_use('uice_cvg') ) THEN
             IF( ln_aEVP ) THEN   ! output: beta * ( u(t=nn_nevp) - u(t=nn_nevp-1) )