New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5881 – NEMO

Changeset 5881


Ignore:
Timestamp:
2015-11-12T17:08:24+01:00 (8 years ago)
Author:
timgraham
Message:

Added sbcflx_adj and call to it from sbcmod

Location:
branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_flux_adjust/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5880 r5881  
    4141   USE cpl_oasis3       ! OASIS routines for coupling 
    4242   USE sbcssr           ! surface boundary condition: sea surface restoring 
     43   USE sbcflx_adj       ! surface boundary condition: sea surface flux adjustment 
    4344   USE sbcrnf           ! surface boundary condition: runoffs 
    4445   USE sbcisf           ! surface boundary condition: ice shelf 
     
    6768   !!---------------------------------------------------------------------- 
    6869   !! NEMO/OPA 4.0 , NEMO-consortium (2011)  
    69    !! $Id$ 
     70   !! $Id: sbcmod.F90 5501 2015-06-29 10:08:15Z deazer $ 
    7071   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    7172   !!---------------------------------------------------------------------- 
     
    296297 
    297298                               CALL sbc_ssm_init               ! Sea-surface mean fields initialisation 
     299      ! 
     300      ! KY 12/11/2015 
     301                               CALL sbc_flx_adj_init           ! Sea-Surface Flux adjustment 
    298302      ! 
    299303      IF( ln_ssr           )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation 
     
    399403      IF( ln_rnf         )   CALL sbc_rnf( kt )                   ! add runoffs to fresh water fluxes 
    400404  
     405      ! KY 12/11/2015 
     406                             CALL sbc_flx_adj( kt )               ! add flux adjustment term 
     407  
    401408      IF( ln_ssr         )   CALL sbc_ssr( kt )                   ! add SST/SSS damping term 
    402409 
Note: See TracChangeset for help on using the changeset viewer.