Changeset 3274 for palm/trunk/SOURCE/pmc_interface_mod.f90
- Timestamp:
- Sep 24, 2018 3:42:55 PM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (20 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface_mod.f90
r3241 r3274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Modularization of all bulk cloud physics code components 28 ! 29 ! 3241 2018-09-12 15:02:00Z raasch 27 30 ! unused variables removed 28 31 ! … … 326 329 USE control_parameters, & 327 330 ONLY: air_chemistry, bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, & 328 bc_dirichlet_s, c loud_physics, child_domain,&331 bc_dirichlet_s, child_domain, & 329 332 constant_diffusion, constant_flux_layer, & 330 333 coupling_char, dt_3d, dz, humidity, message_string, & 331 microphysics_morrison, microphysics_seifert, &332 334 neutral, passive_scalar, rans_mode, rans_tke_e, & 333 335 roughness_length, simulated_time, topography, volume_flow … … 348 350 ONLY: nbgp, nx, nxl, nxlg, nxlu, nxr, nxrg, ny, nyn, nyng, nys, nysg, & 349 351 nysv, nz, nzb, nzt, wall_flags_0 352 353 USE bulk_cloud_model_mod, & 354 ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert 350 355 351 356 USE particle_attributes, & … … 1269 1274 CALL pmc_set_dataarray_name( 'coarse', 'q' ,'fine', 'q', ierr ) 1270 1275 1271 IF ( cloud_physics.AND. microphysics_morrison ) THEN1276 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 1272 1277 CALL pmc_set_dataarray_name( 'coarse', 'qc' ,'fine', 'qc', ierr ) 1273 1278 CALL pmc_set_dataarray_name( 'coarse', 'nc' ,'fine', 'nc', ierr ) 1274 1279 ENDIF 1275 1280 1276 IF ( cloud_physics.AND. microphysics_seifert ) THEN1281 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 1277 1282 CALL pmc_set_dataarray_name( 'coarse', 'qr' ,'fine', 'qr', ierr ) 1278 1283 CALL pmc_set_dataarray_name( 'coarse', 'nr' ,'fine', 'nr', ierr ) … … 3842 3847 r2yo, r1zo, r2zo, 's' ) 3843 3848 3844 IF ( cloud_physics.AND. microphysics_morrison ) THEN3849 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 3845 3850 CALL pmci_interp_tril_all ( qc, qcc, ico, jco, kco, r1xo, r2xo, & 3846 3851 r1yo, r2yo, r1zo, r2zo, 's' ) … … 3849 3854 ENDIF 3850 3855 3851 IF ( cloud_physics.AND. microphysics_seifert ) THEN3856 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 3852 3857 CALL pmci_interp_tril_all ( qr, qrc, ico, jco, kco, r1xo, r2xo, & 3853 3858 r1yo, r2yo, r1zo, r2zo, 's' ) … … 4575 4580 nzt_topo_nestbc_l, 'l', 's' ) 4576 4581 4577 IF ( cloud_physics.AND. microphysics_morrison ) THEN4582 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 4578 4583 CALL pmci_interp_tril_lr( qc, qcc, ico, jco, kco, r1xo, & 4579 4584 r2xo, r1yo, r2yo, r1zo, r2zo, & … … 4589 4594 ENDIF 4590 4595 4591 IF ( cloud_physics.AND. microphysics_seifert ) THEN4596 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 4592 4597 CALL pmci_interp_tril_lr( qr, qrc, ico, jco, kco, r1xo, & 4593 4598 r2xo, r1yo, r2yo, r1zo, r2zo, & … … 4683 4688 nzt_topo_nestbc_r, 'r', 's' ) 4684 4689 4685 IF ( cloud_physics.AND. microphysics_morrison ) THEN4690 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 4686 4691 4687 4692 CALL pmci_interp_tril_lr( qc, qcc, ico, jco, kco, r1xo, & … … 4700 4705 ENDIF 4701 4706 4702 IF ( cloud_physics.AND. microphysics_seifert ) THEN4707 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 4703 4708 4704 4709 … … 4796 4801 nzt_topo_nestbc_s, 's', 's' ) 4797 4802 4798 IF ( cloud_physics.AND. microphysics_morrison ) THEN4803 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 4799 4804 4800 4805 CALL pmci_interp_tril_sn( qc, qcc, ico, jco, kco, r1xo, & … … 4812 4817 ENDIF 4813 4818 4814 IF ( cloud_physics.AND. microphysics_seifert ) THEN4819 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 4815 4820 4816 4821 CALL pmci_interp_tril_sn( qr, qrc, ico, jco, kco, r1xo, & … … 4907 4912 nzt_topo_nestbc_n, 'n', 's' ) 4908 4913 4909 IF ( cloud_physics.AND. microphysics_morrison ) THEN4914 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 4910 4915 4911 4916 CALL pmci_interp_tril_sn( qc, qcc, ico, jco, kco, r1xo, & … … 4923 4928 ENDIF 4924 4929 4925 IF ( cloud_physics.AND. microphysics_seifert ) THEN4930 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 4926 4931 4927 4932 CALL pmci_interp_tril_sn( qr, qrc, ico, jco, kco, r1xo, & … … 4994 4999 r2yo, r1zo, r2zo, 's' ) 4995 5000 4996 IF ( cloud_physics.AND. microphysics_morrison ) THEN5001 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 4997 5002 4998 5003 CALL pmci_interp_tril_t( qc, qcc, ico, jco, kco, r1xo, r2xo, r1yo,& … … 5004 5009 ENDIF 5005 5010 5006 IF ( cloud_physics.AND. microphysics_seifert ) THEN5011 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 5007 5012 5008 5013 … … 5078 5083 kfuo, ijkfc_s, 'q' ) 5079 5084 5080 IF ( cloud_physics.AND. microphysics_morrison ) THEN5085 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 5081 5086 5082 5087 CALL pmci_anterp_tophat( qc, qcc, kctu, iflo, ifuo, jflo, jfuo, & … … 5088 5093 ENDIF 5089 5094 5090 IF ( cloud_physics.AND. microphysics_seifert ) THEN5095 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 5091 5096 5092 5097 CALL pmci_anterp_tophat( qr, qrc, kctu, iflo, ifuo, jflo, jfuo, & … … 5902 5907 ENDDO 5903 5908 ENDIF 5904 IF ( cloud_physics.AND. microphysics_morrison ) THEN5909 IF ( bulk_cloud_model .AND. microphysics_morrison ) THEN 5905 5910 DO m = 1, bc_h(0)%ns 5906 5911 i = bc_h(0)%i(m) … … 5920 5925 ENDIF 5921 5926 5922 IF ( cloud_physics.AND. microphysics_seifert ) THEN5927 IF ( bulk_cloud_model .AND. microphysics_seifert ) THEN 5923 5928 DO m = 1, bc_h(0)%ns 5924 5929 i = bc_h(0)%i(m)
Note: See TracChangeset
for help on using the changeset viewer.
