Ignore:
Timestamp:
Nov 20, 2018 10:53:14 AM (3 years ago)
Author:
eckhard
Message:

inifor: COSMO-D2 support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_transform.f90

    r3534 r3537  
    271271                k_source = avg_grid % kkk(l, k_profile, m)
    272272
    273                 profile_array(k_profile) = profile_array(k_profile)    &
     273                profile_array(k_profile) = profile_array(k_profile)            &
    274274                   + avg_grid % w(l, k_profile, m)                             &
    275275                   * source_array(i_source, j_source, k_source)
Note: See TracChangeset for help on using the changeset viewer.