Changeset 11207 for NEMO/branches/2019/ENHANCE-03_closea/src/OCE/SBC/sbcmod.F90

Timestamp:

2019-07-02T19:32:41+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-03_closea: closea correction change to match new closea mask in domain_cfg (ticket #2143)

Location:

NEMO/branches/2019/ENHANCE-03_closea

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/SBC/sbcmod.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-03_closea/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
@@ -323 +324 @@
       !                       !**  associated modules : initialization
       !
+      IF( l_sbc_clo   )   CALL sbc_clo_init            ! closed sea surface initialisation
+      !
                           CALL sbc_ssm_init            ! Sea-surface mean fields initialization
       !
@@ -461 +464 @@
       ! 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