Changeset 3401 for palm/trunk/UTIL

Timestamp:

Oct 23, 2018 9:33:31 AM (6 years ago)

Author:

eckhard

Message:

inifor: Re-compute geostrophic winds every time step

File:

• palm/trunk/UTIL/inifor/src/inifor.f90 (modified) (2 diffs)

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Re-compute geostrophic winds every time step
+! 
+! 3395 2018-10-22 17:32:49Z eckhard
 ! Added main loop support for computation of geostrophic winds and surface
 !     pressure
@@ -432 +435 @@
              END DO ! ouput variables
 
+             ug_vg_have_been_computed = .FALSE.
              IF ( group % kind == 'thermodynamics' )  THEN
                 DEALLOCATE( rho_centre )
+                DEALLOCATE( ug_arr )
+                DEALLOCATE( vg_arr )
                 IF ( .NOT. cfg % ug_is_set )  THEN
                    DEALLOCATE( rho_north )