Changeset 8863
- Timestamp:
- 2017-11-30T17:19:42+01:00 (7 years ago)
- Location:
- branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/CONFIG/SHARED/namelist_ref
r8706 r8863 856 856 rn_maxfac = 1.0 ! multiplier of theorectical upper limit 857 857 / 858 858 ! 859 859 !!====================================================================== 860 860 !! vertical physics namelists !! -
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90
r8637 r8863 602 602 !!---------------------------------------------------------------------- 603 603 ! 604 zalpha = REAL( Agrif_NbStepint() + Agrif_IRhot() - 1, wp ) / REAL( Agrif_IRhot(), wp )605 IF( zalpha > 1. ) zalpha = 1.604 zalpha = 1._wp ! JC: proper time interpolation impossible 605 ! => use last available value from parent 606 606 ! 607 607 Agrif_SpecialValue = 0.e0 -
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.