Changeset 13544 for NEMO/branches/2020/SI3-03_VP_rheology/src/ICE/icedyn_rhg.F90

Timestamp:

2020-09-30T09:03:49+02:00 (4 years ago)

Author:

vancop

Message:

now VP rheology compiles

File:

• NEMO/branches/2020/SI3-03_VP_rheology/src/ICE/icedyn_rhg.F90 (modified) (3 diffs)

NEMO/branches/2020/SI3-03_VP_rheology/src/ICE/icedyn_rhg.F90

@@ -17 +17 @@
    USE ice            ! sea-ice: variables
    USE icedyn_rhg_evp ! sea-ice: EVP rheology
+   USE icedyn_rhg_vp  ! sea-ice: VP  rheology
    USE icectl         ! sea-ice: control prints
    !
@@ -82 +83 @@
          !                             !---------------------------------!
          CALL ice_dyn_rhg_evp( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i )
-         !         
-      END SELECT
-
       !                                !---------------------------------------------!
       CASE( np_rhgVP  )                ! Viscous-Plastic rheology                    !
@@ -166 +164 @@
       !
       IF( ln_rhg_EVP  )   CALL rhg_evp_rst( 'READ' )  !* read or initialize all required files
-      IF( ln_rhg_VP   )   CALL rhg_lsr_rst( 'READ' )  !* read or initialize all required files
       !
    END SUBROUTINE ice_dyn_rhg_init