Changeset 3750 for palm


Ignore:
Timestamp:
Feb 19, 2019 7:29:39 AM (3 years ago)
Author:
dom_dwd_user
Message:

biometeorology_mod.f90:
(C) Fixed several ugly/bad style issues. Now compiles with -Wall and -pedantic without errors or notices.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/biometeorology_mod.f90

    r3749 r3750  
    30203020       reg_a(i) = coeff(i,1) + coeff(i,3) * ta + coeff(i,4) *                  &
    30213021                  sqrt_ws + coeff(i,5)*dtmrt
    3022        delta_cold(i-1) = reg_a(i) + coeff(i,2) * pmvc
     3022       delta_cold(i) = reg_a(i) + coeff(i,2) * pmvc
    30233023    ENDDO
    30243024!
     
    30273027       r_nenner = coeff(i,2) - coeff(i+1,2)
    30283028       IF ( ABS ( r_nenner ) > 0.00001_wp )  THEN
    3029           pmv_cross(i-1) = ( reg_a(i+1) - reg_a(i) ) / r_nenner
     3029          pmv_cross(i) = ( reg_a(i+1) - reg_a(i) ) / r_nenner
    30303030       ELSE
    30313031          nerr = 1_iwp
     
    30363036    i_bin = 3
    30373037    DO  i = 1, 2
    3038        IF ( pmva > pmv_cross(i-1) )  THEN
     3038       IF ( pmva > pmv_cross(i) )  THEN
    30393039          i_bin = i
    30403040          EXIT
     
    30443044!-- Adjust to operative temperature scaled according
    30453045!-- to classical PMV (Fanger)
    3046     dpmv_cold_res = delta_cold(i_bin-1) - dpmv_adj(pmva)
     3046    dpmv_cold_res = delta_cold(i_bin) - dpmv_adj(pmva)
    30473047
    30483048 END SUBROUTINE dpmv_cold
Note: See TracChangeset for help on using the changeset viewer.