Changeset 84

Timestamp:

12/17/13 23:03:53 (10 years ago)

Author:

smasson

Message:

introduce sbctau: read and overwite utau and vtau

Location:

trunk/NEMOGCM/NEMO/OPA_SRC/SBC

Files:

• sbc_oce.F90 (modified) (1 diff)
• sbcmod.F90 (modified) (4 diffs)
• sbctau.F90 (added)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

@@ -38 +38 @@
    LOGICAL , PUBLIC ::   ln_rnf      = .FALSE.   !: runoffs / runoff mouths
    LOGICAL , PUBLIC ::   ln_ssr      = .FALSE.   !: Sea Surface restoring on SST and/or SSS      
+   LOGICAL , PUBLIC ::   ln_tau      = .FALSE.   !: Overwrite utau and vtau     
    LOGICAL , PUBLIC ::   ln_apr_dyn  = .FALSE.   !: Atmospheric pressure forcing used on dynamics (ocean & ice)
    INTEGER , PUBLIC ::   nn_ice      = 0         !: flag on ice in the surface boundary condition (=0/1/2/3)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -40 +40 @@
    USE sbcrnf           ! surface boundary condition: runoffs
    USE sbcfwb           ! surface boundary condition: freshwater budget
+   USE sbctau           ! surface boundary condition: read and overwite utau and vtau
    USE closea           ! closed sea
    USE bdy_par          ! for lk_bdy
@@ -81 +82 @@
       INTEGER ::   icpt   ! local integer
       !!
-      NAMELIST/namsbc/ nn_fsbc   , ln_ana , ln_flx  , ln_blk_clio, ln_blk_core, ln_cpl,   &
+      NAMELIST/namsbc/ nn_fsbc   , ln_ana , ln_flx  , ln_blk_clio, ln_blk_core, ln_cpl, ln_tau,   &
          &             ln_blk_mfs, ln_apr_dyn, nn_ice , ln_dm2dc, ln_rnf, ln_ssr     , nn_fwb, ln_cdgw
       !!----------------------------------------------------------------------
@@ -123 +124 @@
          WRITE(numout,*) '              FreshWater Budget control  (=0/1/2)        nn_fwb      = ', nn_fwb
          WRITE(numout,*) '              closed sea (=0/1) (set in namdom)          nn_closea   = ', nn_closea
+         WRITE(numout,*) '              overwrite utau and vtau                    ln_tau      = ', ln_tau
       ENDIF
 
@@ -294 +296 @@
       IF( nclosea == 1 )   CALL sbc_clo( kt )                   ! treatment of closed sea in the model domain 
       !                                                         ! (update freshwater fluxes)
+      IF( ln_tau       )   CALL sbc_tau( kt )                   ! overwrite utau and vtau
+
 !RBbug do not understand why see ticket 667
       CALL lbc_lnk( emp, 'T', 1. )