Changeset 464 for palm


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r438 r464  
    5858Bugfix: calculation of collision_efficiency (collision_efficiency)
    5959
    60 advec_particles, calc_precipitation, collision_efficiency, disturb_field, header, modules, poisfft_hybrid, sum_up_3d_data, time_integration
     60Bugfix: initialisation of var_mod (subsidence)
     61
     62advec_particles, calc_precipitation, collision_efficiency, disturb_field, header, modules, poisfft_hybrid, subsidence, sum_up_3d_data, time_integration
    6163
    6264
  • palm/trunk/SOURCE/subsidence.f90

    r411 r464  
    1010! $Id$
    1111!
    12 !
    13 ! Initial revision
     12! Revision 3.7 2009-12-11 14:15:58Z heinze
     13! Initial revision 
    1414!
    1515! Description:
     
    119119       REAL, DIMENSION(nzb:nzt+1) :: var_init, var_mod
    120120
    121        var_mod = pt_surface
     121       var_mod = var_init
    122122
    123123!
     
    195195       REAL, DIMENSION(nzb:nzt+1) :: var_init, var_mod
    196196
    197        var_mod = pt_surface
     197       var_mod = var_init
    198198
    199199!
     
    246246          ENDIF
    247247
    248           var_init = var_mod(:)
     248          var_init = var_mod
    249249
    250250       ENDIF
Note: See TracChangeset for help on using the changeset viewer.