Changeset 13969 for NEMO/branches/2020/SI3_vp_rheology/src/ICE/icedyn_rhg_vp.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_vp.F90 (modified) (3 diffs)

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

@@ -1033 +1033 @@
                zuerr_max = 0._wp
                                
-               IF ( ll_u_iterate .AND. MOD ( i_inn, nn_vp_cvgchk ) == 0 ) THEN
+               IF ( ll_u_iterate .AND. MOD ( i_inn, nn_vp_chkcvg ) == 0 ) THEN
 
                   ! - Maximum U-velocity difference               
@@ -1064 +1064 @@
                zverr_max = 0._wp
                
-               IF ( ll_v_iterate .AND. MOD ( i_inn, nn_vp_cvgchk ) == 0 ) THEN
+               IF ( ll_v_iterate .AND. MOD ( i_inn, nn_vp_chkcvg ) == 0 ) THEN
                
                   ! - Maximum V-velocity difference
@@ -1099 +1099 @@
             !---------------------------------------------------------------------------------------
 
-            IF( nn_rhg_chkcvg/=0 .AND. MOD ( i_inn - 1, nn_vp_cvgchk ) == 0 ) CALL rhg_cvg_vp( kt, jter, nn_nvp, u_ice, v_ice, zmt, zuerr_max, zverr_max, zglob_area, &
+            IF( nn_rhg_chkcvg/=0 .AND. MOD ( i_inn - 1, nn_vp_chkcvg ) == 0 ) CALL rhg_cvg_vp( kt, jter, nn_nvp, u_ice, v_ice, zmt, zuerr_max, zverr_max, zglob_area, &
                       &                         zrhsu, zAU, zBU, zCU, zDU, zEU, zrhsv, zAV, zBV, zCV, zDV, zEV )