New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11329 – NEMO

Changeset 11329


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90

    r11291 r11329  
    5757      &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
    5858      &                      Cdn, Chn, Cen,                      & 
    59       &                      Qsw, rad_lw, slp, Tsk_b             ) 
     59      &                      Qsw, rad_lw, slp,                   & 
     60      &                      Tsk_b ) 
    6061      !!---------------------------------------------------------------------- 
    6162      !!                      ***  ROUTINE  turb_coare3p0  *** 
     
    6465      !!                fluxes according to Fairall et al. (2003) 
    6566      !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu 
    66       !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas 
     67      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas 
    6768      !! 
    6869      !!                Applies the cool-skin warm-layer correction of the SST to T_s 
     
    304305      Ch   = ztmp0*t_star/dt_zu 
    305306      Ce   = ztmp0*q_star/dq_zu 
    306       ! 
     307 
    307308      ztmp1 = zu + z0 
    308309      Cdn = vkarmn*vkarmn / (log(ztmp1/z0 )*log(ztmp1/z0 )) 
    309310      Chn = vkarmn*vkarmn / (log(ztmp1/z0t)*log(ztmp1/z0t)) 
    310311      Cen = Chn 
    311       ! 
     312 
    312313      IF( .NOT. l_zt_equal_zu ) DEALLOCATE( zeta_t ) 
    313       ! 
     314 
    314315   END SUBROUTINE turb_coare3p0 
    315316 
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90

    r11291 r11329  
    5757      &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
    5858      &                      Cdn, Chn, Cen,                      & 
    59       &                      Qsw, rad_lw, slp, Tsk_b             ) 
     59      &                      Qsw, rad_lw, slp,                   & 
     60      &                      Tsk_b ) 
    6061      !!---------------------------------------------------------------------- 
    6162      !!                      ***  ROUTINE  turb_coare3p6  *** 
     
    6465      !!                fluxes according to Fairall et al. (2003) 
    6566      !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu 
    66       !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas 
     67      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas 
    6768      !! 
    6869      !!                Applies the cool-skin warm-layer correction of the SST to T_s 
     
    304305      Ch   = ztmp0*t_star/dt_zu 
    305306      Ce   = ztmp0*q_star/dq_zu 
    306       ! 
     307 
    307308      ztmp1 = zu + z0 
    308309      Cdn = vkarmn*vkarmn / (log(ztmp1/z0 )*log(ztmp1/z0 )) 
    309310      Chn = vkarmn*vkarmn / (log(ztmp1/z0t)*log(ztmp1/z0t)) 
    310311      Cen = Chn 
    311       ! 
     312 
    312313      IF( .NOT. l_zt_equal_zu ) DEALLOCATE( zeta_t ) 
    313       ! 
     314 
    314315   END SUBROUTINE turb_coare3p6 
    315316 
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ecmwf.F90

    r11291 r11329  
    6060CONTAINS 
    6161 
    62    SUBROUTINE TURB_ECMWF( zt, zu, T_s, t_zt, q_s, q_zt, U_zu, & 
    63       &                   Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
    64       &                   Cdn, Chn, Cen,                      & 
    65       &                   Qsw, rad_lw, slp, Tsk_b             ) 
    66       !!---------------------------------------------------------------------------------- 
    67       !!                      ***  ROUTINE  turb_ecmwf  *** 
     62   SUBROUTINE turb_ecmwf( zt, zu, T_s, t_zt, q_s, q_zt, U_zu, & 
     63      &                      Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
     64      &                      Cdn, Chn, Cen,                      & 
     65      &                      Qsw, rad_lw, slp,                   & 
     66      &                      Tsk_b ) 
     67      !!---------------------------------------------------------------------- 
     68       !!                      ***  ROUTINE  turb_ecmwf  *** 
    6869      !! 
    6970      !! ** Purpose :   Computes turbulent transfert coefficients of surface 
    7071      !!                fluxes according to IFS doc. (cycle 40) 
    7172      !!                If relevant (zt /= zu), adjust temperature and humidity from height zt to zu 
    72       !!                Returns the effective bulk wind speed at 10m to be used in the bulk formulas 
     73      !!                Returns the effective bulk wind speed at zu to be used in the bulk formulas 
    7374      !! 
    7475      !!                Applies the cool-skin warm-layer correction of the SST to T_s 
Note: See TracChangeset for help on using the changeset viewer.