Changeset 3401 for palm/trunk/UTIL/inifor/src/inifor.f90
- Timestamp:
- Oct 23, 2018 9:33:31 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/src/inifor.f90
r3395 r3401 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Re-compute geostrophic winds every time step 29 ! 30 ! 3395 2018-10-22 17:32:49Z eckhard 28 31 ! Added main loop support for computation of geostrophic winds and surface 29 32 ! pressure … … 432 435 END DO ! ouput variables 433 436 437 ug_vg_have_been_computed = .FALSE. 434 438 IF ( group % kind == 'thermodynamics' ) THEN 435 439 DEALLOCATE( rho_centre ) 440 DEALLOCATE( ug_arr ) 441 DEALLOCATE( vg_arr ) 436 442 IF ( .NOT. cfg % ug_is_set ) THEN 437 443 DEALLOCATE( rho_north )
Note: See TracChangeset
for help on using the changeset viewer.