Changeset 14549 for NEMO/branches/2021/dev_r14318_RK3_stage1/src
- Timestamp:
- 2021-02-26T11:03:18+01:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DYN/dynspg_ts.F90
r14547 r14549 247 247 248 248 !!gm ==>>> !!ts ISSUe her on en discute changer les cas ENS ENE et triad ? 249 IF( kt == nit000 . AND. .NOT. ln_linssh ) CALL dyn_cor_2D_init( Kmm ) ! Set zwz, the barotropic Coriolis force coefficient249 IF( kt == nit000 .OR. .NOT. ln_linssh ) CALL dyn_cor_2D_init( Kmm ) ! Set zwz, the barotropic Coriolis force coefficient 250 250 ! ! recompute zwz = f/depth at every time step for (.NOT.ln_linssh) as the water colomn height changes 251 251 ! … … 287 287 zhV(:,:) = pvv_b(:,:,Kmm) * hv(:,:,Kmm) * e1v(:,:) ! NB: FULL domain : put a value in last row and column 288 288 ! 289 CALL dyn_cor_2 d( ht(:,:), hu(:,:,Kmm), hv(:,:,Kmm), puu_b(:,:,Kmm), pvv_b(:,:,Kmm), zhU, zhV, & ! <<== in289 CALL dyn_cor_2D( ht(:,:), hu(:,:,Kmm), hv(:,:,Kmm), puu_b(:,:,Kmm), pvv_b(:,:,Kmm), zhU, zhV, & ! <<== in 290 290 & zu_trd, zv_trd ) ! ==>> out 291 291 ! … … 612 612 ! at each time step. We however keep them constant here for optimization. 613 613 ! Recall that zhU and zhV hold fluxes at jn+0.5 (extrapolated not backward interpolated) 614 CALL dyn_cor_2 d( zhtp2_e, zhup2_e, zhvp2_e, ua_e, va_e, zhU, zhV, zu_trd, zv_trd )614 CALL dyn_cor_2D( zhtp2_e, zhup2_e, zhvp2_e, ua_e, va_e, zhU, zhV, zu_trd, zv_trd ) 615 615 ! 616 616 ! Add tidal astronomical forcing if defined … … 1207 1207 END SELECT 1208 1208 ! 1209 END SUBROUTINE dyn_cor_2 d_init1210 1211 1212 SUBROUTINE dyn_cor_2 d( pht, phu, phv, punb, pvnb, zhU, zhV, zu_trd, zv_trd )1209 END SUBROUTINE dyn_cor_2D_init 1210 1211 1212 SUBROUTINE dyn_cor_2D( pht, phu, phv, punb, pvnb, zhU, zhV, zu_trd, zv_trd ) 1213 1213 !!--------------------------------------------------------------------- 1214 !! *** ROUTINE dyn_cor_2 d***1214 !! *** ROUTINE dyn_cor_2D *** 1215 1215 !! 1216 1216 !! ** Purpose : Compute u and v coriolis trends -
NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/stprk3_stg.F90
r14547 r14549 138 138 ! !== ssh/h0 ratio at Kaa ==! 139 139 ! 140 CALL dom_qco_r3c( ssh(:,:,Kaa), r3t(:,:,Kaa), r3u(:,:,Kaa), r3v(:,:,Kaa), r3f(:,:) ) ! "after" ssh/h_0 ratio at t,u,v-column140 IF( .NOT.lk_linssh ) CALL dom_qco_r3c( ssh(:,:,Kaa), r3t(:,:,Kaa), r3u(:,:,Kaa), r3v(:,:,Kaa), r3f(:,:) ) ! "after" ssh/h_0 ratio at t,u,v-column 141 141 ! 142 142 !
Note: See TracChangeset
for help on using the changeset viewer.