Changeset 11329 for NEMO

Timestamp:

2019-07-23T13:24:52+02:00 (5 years ago)

Author:

laurent

Message:

LB: cosmetic syntax homogenization.

Location:

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC

Files:

• sbcblk_algo_coare3p0.F90 (modified) (3 diffs)
• sbcblk_algo_coare3p6.F90 (modified) (3 diffs)
• sbcblk_algo_ecmwf.F90 (modified) (1 diff)

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

@@ -57 +57 @@
       &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      &
       &                      Cdn, Chn, Cen,                      &
-      &                      Qsw, rad_lw, slp, Tsk_b             )
+      &                      Qsw, rad_lw, slp,                   &
+      &                      Tsk_b )
       !!----------------------------------------------------------------------
       !!                      ***  ROUTINE  turb_coare3p0  ***
@@ -64 +65 @@
       !!                fluxes according to Fairall et al. (2003)
       !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu
-      !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas
+      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas
       !!
       !!                Applies the cool-skin warm-layer correction of the SST to T_s
@@ -304 +305 @@
       Ch   = ztmp0*t_star/dt_zu
       Ce   = ztmp0*q_star/dq_zu
-      !
+
       ztmp1 = zu + z0
       Cdn = vkarmn*vkarmn / (log(ztmp1/z0 )*log(ztmp1/z0 ))
       Chn = vkarmn*vkarmn / (log(ztmp1/z0t)*log(ztmp1/z0t))
       Cen = Chn
-      !
+
       IF( .NOT. l_zt_equal_zu ) DEALLOCATE( zeta_t )
-      !
+
    END SUBROUTINE turb_coare3p0
 

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

@@ -57 +57 @@
       &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      &
       &                      Cdn, Chn, Cen,                      &
-      &                      Qsw, rad_lw, slp, Tsk_b             )
+      &                      Qsw, rad_lw, slp,                   &
+      &                      Tsk_b )
       !!----------------------------------------------------------------------
       !!                      ***  ROUTINE  turb_coare3p6  ***
@@ -64 +65 @@
       !!                fluxes according to Fairall et al. (2003)
       !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu
-      !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas
+      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas
       !!
       !!                Applies the cool-skin warm-layer correction of the SST to T_s
@@ -304 +305 @@
       Ch   = ztmp0*t_star/dt_zu
       Ce   = ztmp0*q_star/dq_zu
-      !
+
       ztmp1 = zu + z0
       Cdn = vkarmn*vkarmn / (log(ztmp1/z0 )*log(ztmp1/z0 ))
       Chn = vkarmn*vkarmn / (log(ztmp1/z0t)*log(ztmp1/z0t))
       Cen = Chn
-      !
+
       IF( .NOT. l_zt_equal_zu ) DEALLOCATE( zeta_t )
-      !
+
    END SUBROUTINE turb_coare3p6
 

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

@@ -60 +60 @@
 CONTAINS
 
-   SUBROUTINE TURB_ECMWF( zt, zu, T_s, t_zt, q_s, q_zt, U_zu, &
-      &                   Cd, Ch, Ce, t_zu, q_zu, U_blk,      &
-      &                   Cdn, Chn, Cen,                      &
-      &                   Qsw, rad_lw, slp, Tsk_b             )
-      !!----------------------------------------------------------------------------------
-      !!                      ***  ROUTINE  turb_ecmwf  ***
+   SUBROUTINE turb_ecmwf( zt, zu, T_s, t_zt, q_s, q_zt, U_zu, &
+      &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      &
+      &                      Cdn, Chn, Cen,                      &
+      &                      Qsw, rad_lw, slp,                   &
+      &                      Tsk_b )
+      !!----------------------------------------------------------------------
+       !!                      ***  ROUTINE  turb_ecmwf  ***
       !!
       !! ** Purpose :   Computes turbulent transfert coefficients of surface
       !!                fluxes according to IFS doc. (cycle 40)
       !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu
-      !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas
+      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas
       !!
       !!                Applies the cool-skin warm-layer correction of the SST to T_s