Changeset 3401 for palm/trunk/UTIL


Ignore:
Timestamp:
Oct 23, 2018 9:33:31 AM (5 years ago)
Author:
eckhard
Message:

inifor: Re-compute geostrophic winds every time step

File:
1 edited

Legend:

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

    r3395 r3401  
    2626! -----------------
    2727! $Id$
     28! Re-compute geostrophic winds every time step
     29!
     30! 3395 2018-10-22 17:32:49Z eckhard
    2831! Added main loop support for computation of geostrophic winds and surface
    2932!     pressure
     
    432435             END DO ! ouput variables
    433436
     437             ug_vg_have_been_computed = .FALSE.
    434438             IF ( group % kind == 'thermodynamics' )  THEN
    435439                DEALLOCATE( rho_centre )
     440                DEALLOCATE( ug_arr )
     441                DEALLOCATE( vg_arr )
    436442                IF ( .NOT. cfg % ug_is_set )  THEN
    437443                   DEALLOCATE( rho_north )
Note: See TracChangeset for help on using the changeset viewer.