Ignore:
Timestamp:
2019-07-18T12:41:59+02:00 (15 months ago)
Author:
laurent
Message:

LB: more appropriated use of constant "emiss_w": emissivity of sea water.

File:
1 edited

Legend:

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

    r11284 r11291  
    144144      REAL(wp), DIMENSION(jpi,jpj) :: zsst    ! to back up the initial bulk SST 
    145145      !!---------------------------------------------------------------------------------- 
    146       ! 
     146 
    147147      ! Cool skin ? 
    148148      IF( PRESENT(Qsw) .AND. PRESENT(rad_lw) .AND. PRESENT(slp) ) THEN 
     
    285285            ztmp2 = T_s*T_s 
    286286            ztmp1 = ztmp1 * ( Ce*L_vap(T_s)*(q_zu - q_s) + Ch*cp_air(q_zu)*(t_zu - T_s) ) & ! Total turb. heat flux 
    287                &       +      rad_lw - emiss_w*stefan*ztmp2*ztmp2                           ! Net longwave flux 
     287               &       +      emiss_w*(rad_lw - stefan*ztmp2*ztmp2)                         ! Net longwave flux 
    288288            !!         => "ztmp1" is the net non-solar surface heat flux ! 
    289289            !! Updating the values of the skin temperature T_s and q_s : 
Note: See TracChangeset for help on using the changeset viewer.