Changeset 72 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Mar 19, 2007 8:20:46 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r63 r72 8 8 ! ----------------- 9 9 ! New initializing action "by_user" calls user_init_3d_model, 10 ! ts_value isallocated, +module netcdf_control,10 ! precipitation_amount/rate, ts_value are allocated, +module netcdf_control, 11 11 ! initial velocities at nzb+1 are regarded for volume 12 12 ! flow control in case they have been set zero before (to avoid small timesteps) … … 40 40 USE arrays_3d 41 41 USE averaging 42 USE cloud_parameters 42 43 USE constants 43 44 USE control_parameters … … 157 158 !-- Liquid water content 158 159 ALLOCATE ( ql_1(nzb:nzt+1,nys-1:nyn+1,nxl-1:nxr+1) ) 160 ! 161 !-- Precipitation amount and rate (only needed if output is switched) 162 ALLOCATE( precipitation_amount(nys-1:nyn+1,nxl-1:nxr+1), & 163 precipitation_rate(nys-1:nyn+1,nxl-1:nxr+1) ) 159 164 ENDIF 160 165 … … 642 647 643 648 ! 644 !-- Treating cloud physics, liquid water content is zero at beginning of 645 !-- the simulation 646 IF ( cloud_physics ) ql = 0.0 649 !-- Treating cloud physics, liquid water content and precipitation amount 650 !-- are zero at beginning of the simulation 651 IF ( cloud_physics ) THEN 652 ql = 0.0 653 IF ( precipitation ) precipitation_amount = 0.0 654 ENDIF 647 655 648 656 !
Note: See TracChangeset
for help on using the changeset viewer.