- Timestamp:
- 2017-11-30T17:19:42+01:00 (6 years ago)
- Location:
- branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/ZDF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfphy.F90
r8568 r8863 27 27 USE sbc_oce ! surface module (only for nn_isf in the option compatibility test) 28 28 USE sbcrnf ! surface boundary condition: runoff variables 29 #if defined key_agrif 30 USE agrif_opa_interp 31 #endif 29 32 ! 30 33 USE in_out_manager ! I/O manager … … 275 278 IF( ln_zdfiwm ) CALL zdf_iwm( kt, avm, avt, avs ) ! internal wave (de Lavergne et al 2017) 276 279 280 #if defined key_agrif 281 ! interpolation parent grid => child grid for avm_k ( ex : at west border: 282 ! update column 1 and 2) 283 CALL Agrif_tke 284 #endif 277 285 278 286 ! !* Lateral boundary conditions (sign unchanged) -
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r8568 r8863 164 164 !!---------------------------------------------------------------------- 165 165 ! 166 #if defined key_agrif167 ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2)168 IF( .NOT.Agrif_Root() ) CALL Agrif_Tke169 #endif170 !171 166 CALL tke_tke( gdepw_n, e3t_n, e3w_n, p_sh2, p_avm, p_avt ) ! now tke (en) 172 167 ! 173 168 CALL tke_avn( gdepw_n, e3t_n, e3w_n, p_avm, p_avt ) ! now avt, avm, dissl 174 !175 #if defined key_agrif176 ! Update child grid f => parent grid177 IF( .NOT.Agrif_Root() ) CALL Agrif_Update_Tke( kt ) ! children only178 #endif179 169 ! 180 170 END SUBROUTINE zdf_tke
Note: See TracChangeset
for help on using the changeset viewer.