Changeset 11266 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin.F90

Timestamp:

2019-07-15T12:09:30+02:00 (5 years ago)

Author:

laurent

Message:

LB: CSWL param now uses NEMO time step (rdt) and previous-t value of t_skin as first guess.

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin.F90

@@ -34 +34 @@
    IMPLICIT NONE
    PRIVATE
-   
-   PUBLIC :: CSWL_ECMWF   ! called by sbcblk_algo_*.F90
+
+   PUBLIC :: CSWL_ECMWF   ! called by sbcblk_algo_coare.F90 and sbcblk_algo_ecmwf.F90
 
    !! Cool-Skin / Warm-Layer related parameters:
-   REAL(wp), PARAMETER :: rdt0 = 3600.*1.5 !: time step
+   !LB: we use "rdt" instead !!! REAL(wp), PARAMETER :: rdt0 = 3600.*1.5 !: time step
    REAL(wp), PARAMETER :: rd0  = 3.        !: Depth scale [m], "d" in Eq.11 (Zeng & Beljaars 2005)
    REAL(wp), PARAMETER :: rNu0 = 0.5       !: Nu (exponent of temperature profile) Eq.11
@@ -162 +162 @@
       IF( nbi > 1 ) THEN
          !! Itterating for warm-layer solution
-         zdt   = rdt0/REAL(nbi)
+         zdt   = rdt/REAL(nbi)
          rmult = 1._wp
       ELSE