Changeset 3097 for branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/DOM

Timestamp:

2011-11-14T16:58:22+01:00 (13 years ago)

Author:

cetlod

Message:

dev_LOCEAN_CMCC_2011:Move one namelist parameter from dynvor to dommsk

File:

• branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (3 diffs)

branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -38 +38 @@
 
    !                            !!* Namelist namlbc : lateral boundary condition *
-   REAL(wp) ::   rn_shlat = 2.   ! type of lateral boundary condition on velocity
+   REAL(wp)        :: rn_shlat   = 2.   ! type of lateral boundary condition on velocity
+   LOGICAL, PUBLIC :: ln_vorlat  = .false.   !  consistency of vorticity boundary condition 
+   !                                            with analytical eqs.
+
 
    INTEGER, ALLOCATABLE, SAVE, DIMENSION(:,:) ::  icoord ! Workspace for dom_msk_nsa()
@@ -133 +136 @@
       INTEGER  ::   ijf, ijl, ij0, ij1       !   -       -
       !!
-      NAMELIST/namlbc/ rn_shlat
+      NAMELIST/namlbc/ rn_shlat, ln_vorlat
       !!---------------------------------------------------------------------
       
@@ -148 +151 @@
          WRITE(numout,*) '~~~~~~'
          WRITE(numout,*) '   Namelist namlbc'
-         WRITE(numout,*) '      lateral momentum boundary cond.    rn_shlat = ',rn_shlat
+         WRITE(numout,*) '      lateral momentum boundary cond.    rn_shlat  = ',rn_shlat
+         WRITE(numout,*) '      consistency with analytical form   ln_vorlat = ',ln_vorlat 
       ENDIF