Changeset 3537 for palm/trunk/UTIL/inifor/src/inifor_transform.f90

Timestamp:

Nov 20, 2018 10:53:14 AM (6 years ago)

Author:

eckhard

Message:

inifor: COSMO-D2 support

File:

• palm/trunk/UTIL/inifor/src/inifor_transform.f90 (modified) (1 diff)

palm/trunk/UTIL/inifor/src/inifor_transform.f90

@@ -271 +271 @@
                 k_source = avg_grid % kkk(l, k_profile, m)
 
-                profile_array(k_profile) = profile_array(k_profile)    &
+                profile_array(k_profile) = profile_array(k_profile)            &
                    + avg_grid % w(l, k_profile, m)                             &
                    * source_array(i_source, j_source, k_source)