Changeset 1218 for trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90

Timestamp:

2008-10-28T10:12:16+01:00 (16 years ago)

Author:

smasson

Message:

first implementation of the new coupling interface in the trunk, see ticket:155

File:

• trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/sbc_oce.F90

@@ -4 +4 @@
    !! Surface module :   variables defined in core memory 
    !!======================================================================
-   !! History :  9.0   !  06-06  (G. Madec)  Original code
+   !! History :  3.0   !  2006-06  (G. Madec)  Original code
+   !!             -    !  2008-08  (G. Madec)  namsbc moved from sbcmod
    !!----------------------------------------------------------------------
    USE par_oce          ! ocean parameters
@@ -11 +12 @@
    PRIVATE
    
+   !!----------------------------------------------------------------------
+   !!           Namelist for the Ocean Surface Boundary Condition
+   !!----------------------------------------------------------------------
+   !                                             !! * namsbc namelist *
+   LOGICAL , PUBLIC ::   ln_ana      = .FALSE.   !: analytical boundary condition flag
+   LOGICAL , PUBLIC ::   ln_flx      = .FALSE.   !: flux      formulation
+   LOGICAL , PUBLIC ::   ln_blk_clio = .FALSE.   !: CLIO bulk formulation
+   LOGICAL , PUBLIC ::   ln_blk_core = .FALSE.   !: CORE bulk formulation
+   LOGICAL , PUBLIC ::   ln_cpl      = .FALSE.   !: coupled   formulation (overwritten by key_sbc_coupled )
+   LOGICAL , PUBLIC ::   ln_dm2dc    = .FALSE.   !: Daily mean to Diurnal Cycle short wave (qsr)
+   LOGICAL , PUBLIC ::   ln_rnf      = .FALSE.   !: runoffs / runoff mouths
+   LOGICAL , PUBLIC ::   ln_ssr      = .FALSE.   !: Sea Surface restoring on SST and/or SSS      
+   INTEGER , PUBLIC ::   nn_ice      = 0         !: flag on ice in the surface boundary condition (=0/1/2/3)
+   INTEGER , PUBLIC ::   nn_fwb      = 0         !: type of FreshWater Budget control (=0/1/2)
+   INTEGER , PUBLIC ::   nn_ico_cpl  = 0         !: ice-ocean coupling indicator
+   !                                             !  = 0   LIM-3 old case
+   !                                             !  = 1   stresses computed using now ocean velocity
+   !                                             !  = 2   combination of 0 and 1 cases
+
    !!----------------------------------------------------------------------
    !!              Ocean Surface Boundary Condition fields
@@ -34 +54 @@
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2006) 
-   !! $Id$
+   !! $ Id: $
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!======================================================================