Changeset 3900 for branches/2013/dev_r3891_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90

Timestamp:

2013-05-03T11:51:52+02:00 (11 years ago)

Author:

davestorkey

Message:

First sketch of Orlanski implementation (untested).

File:

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

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

@@ -52 +52 @@
       DO ib_bdy=1, nb_bdy
 
-!!$         IF ( using Orlanski radiation conditions ) THEN 
-!!$            CALL bdy_rad( kt,  bdyidx(ib_bdy) )
-!!$         ENDIF
-
-         SELECT CASE( nn_dyn3d(ib_bdy) )
-         CASE(jp_none)
+         SELECT CASE( cn_dyn3d(ib_bdy) )
+         CASE('none')
             CYCLE
-         CASE(jp_frs)
+         CASE('frs')
             CALL bdy_dyn3d_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy )
-         CASE(2)
+         CASE('specified')
             CALL bdy_dyn3d_spe( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy )
-         CASE(3)
+         CASE('zero')
             CALL bdy_dyn3d_zro( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy )
          CASE DEFAULT