- Timestamp:
- 12/17/13 23:03:53 (10 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r7 r84 38 38 LOGICAL , PUBLIC :: ln_rnf = .FALSE. !: runoffs / runoff mouths 39 39 LOGICAL , PUBLIC :: ln_ssr = .FALSE. !: Sea Surface restoring on SST and/or SSS 40 LOGICAL , PUBLIC :: ln_tau = .FALSE. !: Overwrite utau and vtau 40 41 LOGICAL , PUBLIC :: ln_apr_dyn = .FALSE. !: Atmospheric pressure forcing used on dynamics (ocean & ice) 41 42 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
r67 r84 40 40 USE sbcrnf ! surface boundary condition: runoffs 41 41 USE sbcfwb ! surface boundary condition: freshwater budget 42 USE sbctau ! surface boundary condition: read and overwite utau and vtau 42 43 USE closea ! closed sea 43 44 USE bdy_par ! for lk_bdy … … 81 82 INTEGER :: icpt ! local integer 82 83 !! 83 NAMELIST/namsbc/ nn_fsbc , ln_ana , ln_flx , ln_blk_clio, ln_blk_core, ln_cpl, &84 NAMELIST/namsbc/ nn_fsbc , ln_ana , ln_flx , ln_blk_clio, ln_blk_core, ln_cpl, ln_tau, & 84 85 & ln_blk_mfs, ln_apr_dyn, nn_ice , ln_dm2dc, ln_rnf, ln_ssr , nn_fwb, ln_cdgw 85 86 !!---------------------------------------------------------------------- … … 123 124 WRITE(numout,*) ' FreshWater Budget control (=0/1/2) nn_fwb = ', nn_fwb 124 125 WRITE(numout,*) ' closed sea (=0/1) (set in namdom) nn_closea = ', nn_closea 126 WRITE(numout,*) ' overwrite utau and vtau ln_tau = ', ln_tau 125 127 ENDIF 126 128 … … 294 296 IF( nclosea == 1 ) CALL sbc_clo( kt ) ! treatment of closed sea in the model domain 295 297 ! ! (update freshwater fluxes) 298 IF( ln_tau ) CALL sbc_tau( kt ) ! overwrite utau and vtau 299 296 300 !RBbug do not understand why see ticket 667 297 301 CALL lbc_lnk( emp, 'T', 1. )
Note: See TracChangeset
for help on using the changeset viewer.