Changeset 464 for palm/trunk

Timestamp:

Feb 3, 2010 8:40:19 AM (15 years ago)

Author:

heinze

Message:

Bugfix concerning the initialisation of var_mod in subsidence.f90

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• subsidence.f90 (modified) (4 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -58 +58 @@
 Bugfix: calculation of collision_efficiency (collision_efficiency)
 
-advec_particles, calc_precipitation, collision_efficiency, disturb_field, header, modules, poisfft_hybrid, sum_up_3d_data, time_integration
+Bugfix: initialisation of var_mod (subsidence)
+
+advec_particles, calc_precipitation, collision_efficiency, disturb_field, header, modules, poisfft_hybrid, subsidence, sum_up_3d_data, time_integration
 
 

palm/trunk/SOURCE/subsidence.f90

@@ -10 +10 @@
 ! $Id$
 !
-!
-! Initial revision
+! Revision 3.7 2009-12-11 14:15:58Z heinze
+! Initial revision 
 !
 ! Description:
@@ -119 +119 @@
        REAL, DIMENSION(nzb:nzt+1) :: var_init, var_mod
 
-       var_mod = pt_surface
+       var_mod = var_init
 
 !
@@ -195 +195 @@
        REAL, DIMENSION(nzb:nzt+1) :: var_init, var_mod
 
-       var_mod = pt_surface
+       var_mod = var_init
 
 !
@@ -246 +246 @@
           ENDIF
 
-          var_init = var_mod(:) 
+          var_init = var_mod 
 
        ENDIF