Changeset 14020
- Timestamp:
- 2020-12-02T20:21:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_rhg_eap.F90
r14014 r14020 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 … … 23 23 !! rhg_eap_rst : read/write EVP fields in ice restart 24 24 !!---------------------------------------------------------------------- 25 USE par_oce26 25 USE phycst ! Physical constant 27 26 USE dom_oce ! Ocean domain … … 750 749 751 750 ! convergence test 752 IF( nn_rhg_chkcvg == 2 ) CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice , jpi, jpj)751 IF( nn_rhg_chkcvg == 2 ) CALL rhg_cvg( kt, jter, nn_nevp, u_ice, v_ice, zu_ice, zv_ice ) 753 752 ! 754 753 ! ! ==================== ! … … 987 986 988 987 989 SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb , jpi, jpj)988 SUBROUTINE rhg_cvg( kt, kiter, kitermax, pu, pv, pub, pvb ) 990 989 !!---------------------------------------------------------------------- 991 990 !! *** ROUTINE rhg_cvg *** … … 1001 1000 !!---------------------------------------------------------------------- 1002 1001 INTEGER , INTENT(in) :: kt, kiter, kitermax ! ocean time-step index 1003 INTEGER , INTENT(in) :: jpi, jpj1004 1002 REAL(wp), DIMENSION(:,:), INTENT(in) :: pu, pv, pub, pvb ! now and before velocities 1005 1003 !! … … 1972 1970 !! Default option Empty module NO SI3 sea-ice model 1973 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 1974 1988 #endif 1975 1989
Note: See TracChangeset
for help on using the changeset viewer.