Changeset 5881
- Timestamp:
- 2015-11-12T17:08:24+01:00 (8 years ago)
- 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 41 41 USE cpl_oasis3 ! OASIS routines for coupling 42 42 USE sbcssr ! surface boundary condition: sea surface restoring 43 USE sbcflx_adj ! surface boundary condition: sea surface flux adjustment 43 44 USE sbcrnf ! surface boundary condition: runoffs 44 45 USE sbcisf ! surface boundary condition: ice shelf … … 67 68 !!---------------------------------------------------------------------- 68 69 !! NEMO/OPA 4.0 , NEMO-consortium (2011) 69 !! $Id $70 !! $Id: sbcmod.F90 5501 2015-06-29 10:08:15Z deazer $ 70 71 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 71 72 !!---------------------------------------------------------------------- … … 296 297 297 298 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 298 302 ! 299 303 IF( ln_ssr ) CALL sbc_ssr_init ! Sea-Surface Restoring initialisation … … 399 403 IF( ln_rnf ) CALL sbc_rnf( kt ) ! add runoffs to fresh water fluxes 400 404 405 ! KY 12/11/2015 406 CALL sbc_flx_adj( kt ) ! add flux adjustment term 407 401 408 IF( ln_ssr ) CALL sbc_ssr( kt ) ! add SST/SSS damping term 402 409
Note: See TracChangeset
for help on using the changeset viewer.