Changeset 13969 for NEMO/branches/2020/SI3_vp_rheology/src/ICE/icedyn_rhg.F90

Timestamp:

2020-12-02T10:53:57+01:00 (4 years ago)

Author:

clem

Message:

change the name of one namelist parameter to make it more compliant with the rest

File:

• NEMO/branches/2020/SI3_vp_rheology/src/ICE/icedyn_rhg.F90 (modified) (2 diffs)

NEMO/branches/2020/SI3_vp_rheology/src/ICE/icedyn_rhg.F90

@@ -118 +118 @@
       !!
       NAMELIST/namdyn_rhg/  ln_rhg_EVP, ln_aEVP, rn_creepl, rn_ecc , nn_nevp, rn_relast, nn_rhg_chkcvg,   &    !-- evp
-    &                       ln_rhg_VP, nn_vp_nout, nn_vp_ninn, nn_vp_cvgchk                                    !-- vp 
+    &                       ln_rhg_VP, nn_vp_nout, nn_vp_ninn, nn_vp_chkcvg                                    !-- vp 
       !!-------------------------------------------------------------------
       !
@@ -142 +142 @@
          WRITE(numout,*) '         number of outer iterations                        nn_vp_nout    = ', nn_vp_nout
          WRITE(numout,*) '         number of inner iterations                        nn_vp_ninn    = ', nn_vp_ninn
-         WRITE(numout,*) '         iteration step for convergence check              nn_vp_cvgchk  = ', nn_vp_cvgchk
+         WRITE(numout,*) '         iteration step for convergence check              nn_vp_chkcvg  = ', nn_vp_chkcvg
          IF( ln_rhg_EVP ) THEN
             IF    ( nn_rhg_chkcvg == 0 ) THEN   ;   WRITE(numout,*) '         no check cvg'