Changeset 8512 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg_evp.F90

Timestamp:

2017-09-07T20:08:11+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part5 - reaching the end

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg_evp.F90 (modified) (4 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg_evp.F90

@@ -52 +52 @@
 CONTAINS
 
-   SUBROUTINE ice_rhg_evp( stress1_i, stress2_i, stress12_i, u_ice, v_ice, shear_i, divu_i, delta_i )
+   SUBROUTINE ice_rhg_evp( kt, stress1_i, stress2_i, stress12_i, u_ice, v_ice, shear_i, divu_i, delta_i )
       !!-------------------------------------------------------------------
       !!                 ***  SUBROUTINE ice_rhg_evp  ***
@@ -107 +107 @@
       !!              Bouillon et al., Ocean Modelling 2013
       !!-------------------------------------------------------------------
+      INTEGER, INTENT(in) ::   kt      ! time step
       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) ::   stress1_i, stress2_i, stress12_i
       REAL(wp), DIMENSION(jpi,jpj), INTENT(  out) ::   u_ice, v_ice, shear_i, divu_i, delta_i 
@@ -174 +175 @@
       !!-------------------------------------------------------------------
 
+      IF( kt == nit000 .AND. lwp )   WRITE(numout,*) '-- ice_rhg_evp: EVP sea-ice rheology'
+
 #if defined key_agrif 
       CALL agrif_interp_lim3( 'U', 0, nn_nevp )   ! First interpolation of coarse values
@@ -249 +252 @@
 
       ! Ice strength
-      CALL ice_rdgrft_icestrength( nn_icestr )
+      CALL ice_rdgrft_strength
 
       ! scale factors