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

Timestamp:

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

Author:

laurent

Message:

LB: cosmetic syntax homogenization.

File:

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

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