Changeset 3750 for palm/trunk/SOURCE

Timestamp:

Feb 19, 2019 7:29:39 AM (6 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:

• palm/trunk/SOURCE/biometeorology_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -3020 +3020 @@
        reg_a(i) = coeff(i,1) + coeff(i,3) * ta + coeff(i,4) *                  &
                   sqrt_ws + coeff(i,5)*dtmrt 
-       delta_cold(i-1) = reg_a(i) + coeff(i,2) * pmvc
+       delta_cold(i) = reg_a(i) + coeff(i,2) * pmvc
     ENDDO
 !
@@ -3027 +3027 @@
        r_nenner = coeff(i,2) - coeff(i+1,2)
        IF ( ABS ( r_nenner ) > 0.00001_wp )  THEN
-          pmv_cross(i-1) = ( reg_a(i+1) - reg_a(i) ) / r_nenner
+          pmv_cross(i) = ( reg_a(i+1) - reg_a(i) ) / r_nenner
        ELSE
           nerr = 1_iwp
@@ -3036 +3036 @@
     i_bin = 3
     DO  i = 1, 2
-       IF ( pmva > pmv_cross(i-1) )  THEN
+       IF ( pmva > pmv_cross(i) )  THEN
           i_bin = i
           EXIT
@@ -3044 +3044 @@
 !-- Adjust to operative temperature scaled according 
 !-- to classical PMV (Fanger)
-    dpmv_cold_res = delta_cold(i_bin-1) - dpmv_adj(pmva)
+    dpmv_cold_res = delta_cold(i_bin) - dpmv_adj(pmva)
 
  END SUBROUTINE dpmv_cold