Changeset 3507 for palm/trunk
- Timestamp:
- Nov 8, 2018 2:28:46 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/bulk_cloud_model_mod.f90
r3452 r3507 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Minor bugfixes for bcm cache version and initializing prr 28 ! 29 ! 3452 2018-10-30 13:13:34Z schwenkel 27 30 ! Bugfix for profiles output 28 31 ! … … 958 961 !-- Liquid water content and precipitation amount 959 962 !-- are zero at beginning of the simulation 960 IF ( bulk_cloud_model ) THEN 961 ql = 0.0_wp 963 ql = 0.0_wp 962 964 ! TODO ??? 963 964 965 ENDIF965 qc = 0.0_wp 966 precipitation_amount = 0.0_wp 967 prr = 0.0_wp 966 968 967 969 ! … … 3469 3471 !-- Predetermine flag to mask topography 3470 3472 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) ) 3471 nc_auto = MERGE ( nc(k,j,i), nc_const, microphysics_morrison ) 3473 IF ( microphysics_morrison ) THEN 3474 nc_auto = nc(k,j,i) 3475 ELSE 3476 nc_auto = nc_const 3477 ENDIF 3472 3478 3473 3479 IF ( qc(k,j,i) > eps_sb .AND. nc_auto > eps_mr ) THEN … … 3619 3625 !-- Predetermine flag to mask topography 3620 3626 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) ) 3621 nc_accr = MERGE ( nc(k,j,i), nc_const, microphysics_morrison ) 3627 IF ( microphysics_morrison ) THEN 3628 nc_accr = nc(k,j,i) 3629 ELSE 3630 nc_accr = nc_const 3631 ENDIF 3622 3632 3623 3633 IF ( ( qc(k,j,i) > eps_sb ) .AND. ( qr(k,j,i) > eps_sb ) .AND. & … … 3859 3869 !-- Predetermine flag to mask topography 3860 3870 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) ) 3861 nc_sedi = MERGE( nc(k,j,i), nc_const, microphysics_morrison ) 3871 IF ( microphysics_morrison ) THEN 3872 nc_sedi = nc(k,j,i) 3873 ELSE 3874 nc_sedi = nc_const 3875 ENDIF 3862 3876 ! 3863 3877 !-- Sedimentation fluxes for number concentration are only calculated
Note: See TracChangeset
for help on using the changeset viewer.