Changeset 11626 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare.F90

Timestamp:

2019-10-01T15:25:19+02:00 (5 years ago)

Author:

laurent

Message:

LB: syntax improved...

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare.F90 (moved) (moved from NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_skin_coare3p6.F90) (9 diffs)

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

@@ -1 @@
-MODULE sbcblk_skin_coare3p6
+MODULE sbcblk_skin_coare
    !!======================================================================
-   !!                   ***  MODULE  sbcblk_skin_coare3p6  ***
+   !!                   ***  MODULE  sbcblk_skin_coare  ***
    !! Computes:
    !!   * the surface skin temperature (aka SSST) based on the cool-skin/warm-layer
@@ -33 +33 @@
    PRIVATE
 
-   PUBLIC :: CS_COARE3P6, WL_COARE3P6
+   PUBLIC :: CS_COARE, WL_COARE
 
    !! Cool-skin related parameters:
@@ -53 +53 @@
 
 
-   SUBROUTINE CS_COARE3P6( pQsw, pQnsol, pustar, pSST, pQlat,  pdT )
+   SUBROUTINE CS_COARE( pQsw, pQnsol, pustar, pSST, pQlat,  pdT )
       !!---------------------------------------------------------------------
       !!
@@ -130 +130 @@
       END DO
 
-   END SUBROUTINE CS_COARE3P6
-
-
-
-
-   SUBROUTINE WL_COARE3P6( kt,  pQsw, pQnsol, pTau, pSST, plon, isd, iwait,  pdT, &
+   END SUBROUTINE CS_COARE
+
+
+
+
+   SUBROUTINE WL_COARE( kt,  pQsw, pQnsol, pTau, pSST, plon, isd, iwait,  pdT, &
       &                    Hwl, mask_wl )
       !!---------------------------------------------------------------------
@@ -222 +222 @@
             !IF (isd_sol <= rdt ) THEN    !re-zero at midnight ! LOLO improve: risky if real midnight (00:00:00) is not a time in vtime...
             IF ( (rhr_sol > 23.5_wp).OR.(rhr_sol < 4._wp) ) THEN
-               !PRINT *, '  [WL_COARE3P6] MIDNIGHT RESET !!!!, isd_sol =>', isd_sol
+               !PRINT *, '  [WL_COARE] MIDNIGHT RESET !!!!, isd_sol =>', isd_sol
                zdz           = H_wl_max
                Tau_ac(ji,jj) = 0._wp
@@ -230 +230 @@
             IF ( rhr_sol > 5._wp ) THEN  ! ( 5am)
 
-               !PRINT *, '  [WL_COARE3P6] WE DO WL !'
-               !PRINT *, '  [WL_COARE3P6] isd_sol, pTau, pSST, pdT =', isd_sol, REAL(pTau(ji,jj),4), REAL(pSST(ji,jj),4), REAL(pdT(ji,jj),4)
+               !PRINT *, '  [WL_COARE] WE DO WL !'
+               !PRINT *, '  [WL_COARE] isd_sol, pTau, pSST, pdT =', isd_sol, REAL(pTau(ji,jj),4), REAL(pSST(ji,jj),4), REAL(pdT(ji,jj),4)
 
                !************************************
@@ -239 +239 @@
                zQabs = zfr*pQsw(ji,jj) + pQnsol(ji,jj)       ! tot heat absorbed in warm layer
 
-               !PRINT *, '  [WL_COARE3P6] rdt,  pQsw, pQnsol, zQabs =', rdt, REAL(pQsw(ji,jj),4), REAL(pQnsol(ji,jj),4), REAL(zQabs,4)
+               !PRINT *, '  [WL_COARE] rdt,  pQsw, pQnsol, zQabs =', rdt, REAL(pQsw(ji,jj),4), REAL(pQnsol(ji,jj),4), REAL(zQabs,4)
 
                IF ( zQabs >= Qabs_thr ) THEN         ! Check for threshold
 
-                  !PRINT *, '  [WL_COARE3P6] Tau_ac, Qnt_ac =', REAL(Tau_ac(ji,jj),4), REAL(Qnt_ac(ji,jj),4)
+                  !PRINT *, '  [WL_COARE] Tau_ac, Qnt_ac =', REAL(Tau_ac(ji,jj),4), REAL(Qnt_ac(ji,jj),4)
 
                   !Tau_ac(ji,jj) = Tau_ac(ji,jj) + MAX(.002_wp , pTau(ji,jj))*rdt      ! momentum integral
@@ -281 +281 @@
             IF ( iwait == 0 ) THEN
                IF ( (zQabs >= Qabs_thr).AND.(rhr_sol >= 5._wp) ) THEN
-                  !PRINT *, '  [WL_COARE3P6] WE UPDATE ACCUMULATED FLUXES !!!'
+                  !PRINT *, '  [WL_COARE] WE UPDATE ACCUMULATED FLUXES !!!'
                   Qnt_ac(ji,jj) = zqac ! Updating Qnt_ac, heat integral
                   Tau_ac(ji,jj) = ztac !
@@ -295 +295 @@
       END DO
       
-   END SUBROUTINE WL_COARE3P6
+   END SUBROUTINE WL_COARE
 
 
    !!======================================================================
-END MODULE sbcblk_skin_coare3p6
+END MODULE sbcblk_skin_coare