Changeset 12079 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcmod.F90

Timestamp:

2019-12-05T19:47:50+01:00 (4 years ago)

Author:

mathiot

Message:

include ENHANCE-03_closea in UKMO merge branch

File:

• NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcmod.F90 (modified) (4 diffs)

NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/SBC/sbcmod.F90

@@ -24 +24 @@
    USE oce            ! ocean dynamics and tracers
    USE dom_oce        ! ocean space and time domain
+   USE closea         ! closed seas
    USE phycst         ! physical constants
    USE sbc_oce        ! Surface boundary condition: ocean fields
@@ -39 +40 @@
    USE sbccpl         ! surface boundary condition: coupled formulation
    USE cpl_oasis3     ! OASIS routines for coupling
+   USE sbcclo         ! surface boundary condition: closed sea correction
    USE sbcssr         ! surface boundary condition: sea surface restoring
    USE sbcrnf         ! surface boundary condition: runoffs
@@ -323 +325 @@
                           CALL sbc_ssm_init ( Kbb, Kmm ) ! Sea-surface mean fields initialization
       !
+      IF( l_sbc_clo   )   CALL sbc_clo_init              ! closed sea surface initialisation
+      !
       IF( ln_blk      )   CALL sbc_blk_init              ! bulk formulae initialization
 
@@ -453 +457 @@
       ! Special treatment of freshwater fluxes over closed seas in the model domain
       ! Should not be run if ln_diurnal_only
-      IF( l_sbc_clo .AND. (.NOT. ln_diurnal_only) )   CALL sbc_clo( kt )   
+      IF( l_sbc_clo      )   CALL sbc_clo( kt )   
 
 !!$!RBbug do not understand why see ticket 667