Changeset 14029
- Timestamp:
- 2020-12-03T10:24:18+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/ICE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/ICE/icedyn_rdgrft.F90
r14015 r14029 186 186 ! closing_net = rate at which open water area is removed + ice area removed by ridging 187 187 ! - ice area added in new ridges 188 IF( ln_rhg_EVP ) closing_net(ji) = rn_csrdg * 0.5_wp * ( zdelt(ji) - ABS( zdivu(ji) ) ) - MIN( zdivu(ji), 0._wp ) 189 IF( ln_rhg_EAP ) closing_net(ji) = zconv(ji) 188 IF( ln_rhg_EVP .OR. ln_rhg_VP ) & 189 & closing_net(ji) = rn_csrdg * 0.5_wp * ( zdelt(ji) - ABS( zdivu(ji) ) ) - MIN( zdivu(ji), 0._wp ) 190 IF( ln_rhg_EAP ) closing_net(ji) = zconv(ji) 190 191 ! 191 192 IF( zdivu(ji) < 0._wp ) closing_net(ji) = MAX( closing_net(ji), -zdivu(ji) ) ! make sure the closing rate is large enough -
NEMO/branches/2020/dev_r13541_TOP-01_rlod_Antarctic_ice_Sheet_Fe_Source/src/ICE/icedyn_rhg_eap.F90
r14015 r14029 16 16 !! CICE code (Tsamados, Heorton) 17 17 !!---------------------------------------------------------------------- 18 #if defined key_si3 18 #if defined key_si3 && ! defined key_agrif 19 19 !!---------------------------------------------------------------------- 20 20 !! 'key_si3' SI3 sea-ice model … … 1970 1970 !! Default option Empty module NO SI3 sea-ice model 1971 1971 !!---------------------------------------------------------------------- 1972 USE par_kind 1973 USE lib_mpp 1974 CONTAINS 1975 SUBROUTINE ice_dyn_rhg_eap( kt, Kmm, pstress1_i, pstress2_i, pstress12_i, pshear_i, pdivu_i, pdelta_i, paniso_11, paniso_12, prdg_conv ) 1976 INTEGER , INTENT(in ) :: kt ! time step 1977 INTEGER , INTENT(in ) :: Kmm ! ocean time level index 1978 REAL(wp), DIMENSION(:,:), INTENT(in ) :: pstress1_i, pstress2_i, pstress12_i ! 1979 REAL(wp), DIMENSION(:,:), INTENT(in ) :: pshear_i , pdivu_i , pdelta_i ! 1980 REAL(wp), DIMENSION(:,:), INTENT(in ) :: paniso_11 , paniso_12 ! structure tensor components 1981 REAL(wp), DIMENSION(:,:), INTENT(in ) :: prdg_conv ! for ridging 1982 CALL ctl_stop('EAP rheology is currently dsabled due to issues with AGRIF preprocessing') 1983 END SUBROUTINE ice_dyn_rhg_eap 1984 SUBROUTINE rhg_eap_rst( cdrw, kt ) 1985 CHARACTER(len=*) , INTENT(in) :: cdrw ! "READ"/"WRITE" flag 1986 INTEGER, OPTIONAL, INTENT(in) :: kt ! ice time-step 1987 END SUBROUTINE rhg_eap_rst 1972 1988 #endif 1973 1989
Note: See TracChangeset
for help on using the changeset viewer.