Changeset 12377 for NEMO/trunk/src/ICE/icedyn_rhg.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/ICE/icedyn_rhg.F90
r11536 r12377 38 38 LOGICAL :: ln_rhg_EVP ! EVP rheology 39 39 ! 40 !! * Substitutions41 # include "vectopt_loop_substitute.h90"42 40 !!---------------------------------------------------------------------- 43 41 !! NEMO/ICE 4.0 , NEMO Consortium (2018) … … 47 45 CONTAINS 48 46 49 SUBROUTINE ice_dyn_rhg( kt )47 SUBROUTINE ice_dyn_rhg( kt, Kmm ) 50 48 !!------------------------------------------------------------------- 51 49 !! *** ROUTINE ice_dyn_rhg *** … … 58 56 !!-------------------------------------------------------------------- 59 57 INTEGER, INTENT(in) :: kt ! ice time step 60 ! 61 INTEGER :: jl ! dummy loop indices 58 INTEGER, INTENT(in) :: Kmm ! ocean time level index 62 59 !!-------------------------------------------------------------------- 63 60 ! controls … … 79 76 CASE( np_rhgEVP ) ! Elasto-Viscous-Plastic ! 80 77 ! !------------------------! 81 CALL ice_dyn_rhg_evp( kt, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i )78 CALL ice_dyn_rhg_evp( kt, Kmm, stress1_i, stress2_i, stress12_i, shear_i, divu_i, delta_i ) 82 79 ! 83 80 END SELECT … … 88 85 ! 89 86 ! controls 90 IF( ln_ctl ) CALL ice_prt3D ('icedyn_rhg') ! prints 87 IF( sn_cfctl%l_prtctl ) & 88 & CALL ice_prt3D ('icedyn_rhg') ! prints 91 89 IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icedyn_rhg', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 92 90 IF( ln_icediachk ) CALL ice_cons2D (1, 'icedyn_rhg', diag_v, diag_s, diag_t, diag_fv, diag_fs, diag_ft) ! conservation … … 113 111 !!------------------------------------------------------------------- 114 112 ! 115 REWIND( numnam_ice_ref ) ! Namelist namdyn_rhg in reference namelist : Ice dynamics116 113 READ ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901) 117 114 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist' ) 118 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rhg in configuration namelist : Ice dynamics119 115 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 120 116 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.