Changeset 4007 for branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.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/bdytra.F90 (modified) (1 diff)

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

@@ -224 +224 @@
       igrd = 1      ! Orlanski bc on temperature; 
       !            
-      CALL bdy_orlanski_3d( idx, igrd, tsb(:,:,:,jp_tem), tsa(:,:,:,jp_tem), dta%tem, tmask, ll_npo )
+      CALL bdy_orlanski_3d( idx, igrd, tsb(:,:,:,jp_tem), tsa(:,:,:,jp_tem), dta%tem, ll_npo )
 
       igrd = 1      ! Orlanski bc on salinity;
       !  
-      CALL bdy_orlanski_3d( idx, igrd, tsb(:,:,:,jp_sal), tsa(:,:,:,jp_sal), dta%sal, tmask, ll_npo )
+      CALL bdy_orlanski_3d( idx, igrd, tsb(:,:,:,jp_sal), tsa(:,:,:,jp_sal), dta%sal, ll_npo )
       !
       IF( nn_timing == 1 ) CALL timing_stop('bdy_tra_orlanski')