Changeset 4007 for branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

Timestamp:

2013-08-28T10:10:35+02:00 (11 years ago)

Author:

davestorkey

Message:

1. Bug fixes for flagu/flagv calculation in bdyini.F90.
2. Introduce masking of derivatives in radiation velocity calculation in bdylib.F90
3. Change relaxation term in Orlanski implementation to explicit timestepping in bdylib.F90.
4. Remove bdyfmask (redundant).

File:

• branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90 (modified) (1 diff)

branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

@@ -239 +239 @@
       igrd = 2      ! Orlanski bc on u-velocity; 
       !            
-      CALL bdy_orlanski_3d( idx, igrd, ub, ua, dta%u3d, umask, ll_npo )
+      CALL bdy_orlanski_3d( idx, igrd, ub, ua, dta%u3d, ll_npo )
 
       igrd = 3      ! Orlanski bc on v-velocity
       !  
-      CALL bdy_orlanski_3d( idx, igrd, vb, va, dta%v3d, vmask, ll_npo )
+      CALL bdy_orlanski_3d( idx, igrd, vb, va, dta%v3d, ll_npo )
       !
       CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy )    ! Boundary points should be updated