Changeset 5676 for branches/2015/dev_r5656_Met_Office_3_diurnalSST/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2015-08-10T17:39:59+02:00 (9 years ago)

Author:

jwhile

Message:

Adding cool skin and warm layer + associated modifications

File:

• branches/2015/dev_r5656_Met_Office_3_diurnalSST/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (2 diffs)

branches/2015/dev_r5656_Met_Office_3_diurnalSST/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -55 +55 @@
    USE bdy_par          ! Require lk_bdy
 
+   USE diurnal_bulk, ONLY: &
+      & ln_diurnal_only 
+
    IMPLICIT NONE
    PRIVATE
@@ -404 +407 @@
       IF( nn_fwb    /= 0 )   CALL sbc_fwb( kt, nn_fwb, nn_fsbc )  ! control the freshwater budget
 
-      IF( nn_closea == 1 )   CALL sbc_clo( kt )                   ! treatment of closed sea in the model domain 
-      !                                                           ! (update freshwater fluxes)
+      ! treatment of closed sea in the model domain 
+      ! (update freshwater fluxes)
+      ! Should not be ran if ln_diurnal_only
+      IF( .NOT.(ln_diurnal_only) .AND. (nn_closea == 1) )   CALL sbc_clo( kt )   
+
 !RBbug do not understand why see ticket 667
 !clem: it looks like it is necessary for the north fold (in certain circumstances). Don't know why.