Changeset 911 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
- Timestamp:
- 2008-04-28T11:31:32+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
r888 r911 11 11 !! " " ! 05-11 (V. Garnier) Surface pressure gradient organization 12 12 !! " " ! 06-07 (S. Masson) distributed restart using iom 13 !! " " ! 05-01 (J.Chanut, A.Sellar) Calls to BDY routines. 13 14 !!---------------------------------------------------------------------- 14 15 #if defined key_dynspg_flt || defined key_esopa … … 36 37 USE obcdyn ! ocean open boundary condition (obc_dyn routines) 37 38 USE obcvol ! ocean open boundary condition (obc_vol routines) 39 USE bdy_oce ! Unstructured open boundaries condition 40 USE bdydyn ! Unstructured open boundaries condition (bdy_dyn routine) 41 USE bdyvol ! Unstructured open boundaries condition (bdy_vol routine) 38 42 USE cla_dynspg ! cross land advection 39 43 USE in_out_manager ! I/O manager … … 249 253 CALL obc_vol( kt ) ! Correction of the barotropic componant velocity to control the volume of the system 250 254 #endif 255 #if defined key_bdy 256 ! Update velocities on unstructured boundary using the Flow Relaxation Scheme 257 CALL bdy_dyn_frs( kt ) 258 259 IF (ln_bdy_vol) THEN 260 ! Correction of the barotropic component velocity to control the volume of the system 261 CALL bdy_vol( kt ) 262 ENDIF 263 #endif 251 264 #if defined key_agrif 252 265 CALL Agrif_dyn( kt ) ! Update velocities on each coarse/fine interfaces … … 377 390 spgu(ji,jj) = z2dt * ztdgu * obcumask(ji,jj) 378 391 spgv(ji,jj) = z2dt * ztdgv * obcvmask(ji,jj) 392 #elif defined key_bdy 393 ! caution : grad D = 0 along open boundaries 394 ! Remark: The filtering force could be reduced here in the FRS zone 395 ! by multiplying spgu/spgv by (1-alpha) ?? 396 spgu(ji,jj) = z2dt * ztdgu * bdyumask(ji,jj) 397 spgv(ji,jj) = z2dt * ztdgv * bdyvmask(ji,jj) 379 398 #else 380 399 spgu(ji,jj) = z2dt * ztdgu
Note: See TracChangeset
for help on using the changeset viewer.