- Timestamp:
- 2017-04-26T13:54:55+02:00 (7 years ago)
- Location:
- branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r7971 r7972 210 210 CALL Agrif_Bc_variable(vn_sponge_id,calledweight=1.,procname=interpvn_sponge) 211 211 212 #if defined key_dynspg_ts213 212 Agrif_UseSpecialValue = .TRUE. 214 213 CALL Agrif_Bc_variable(sshn_id,calledweight=1., procname=interpsshn ) 215 214 215 #if defined key_dynspg_ts 216 216 Agrif_UseSpecialValue = ln_spc_dyn 217 217 CALL Agrif_Bc_variable(unb_id,calledweight=1.,procname=interpunb) -
branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r6204 r7972 109 109 ssha(:,:) = ( sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) ) ) * ssmask(:,:) 110 110 111 #if defined key_agrif 112 CALL agrif_ssh( kt ) 113 #endif 114 111 115 #if ! defined key_dynspg_ts 112 116 ! These lines are not necessary with time splitting since 113 117 ! boundary condition on sea level is set during ts loop 114 #if defined key_agrif115 CALL agrif_ssh( kt )116 #endif117 118 #if defined key_bdy 118 119 IF (lk_bdy) THEN
Note: See TracChangeset
for help on using the changeset viewer.