Changeset 3371 for palm/trunk/SOURCE
- Timestamp:
- Oct 18, 2018 1:40:12 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/bulk_cloud_model_mod.f90
r3361 r3371 173 173 174 174 USE arrays_3d, & 175 #if defined (__nopointer) 176 ONLY: ddzu, diss, dzu, dzw, hyp, hyrho, & 177 nc, nc_p, nr, nr_p, & 178 precipitation_amount, prr, pt, d_exner, pt_init, q, ql, & 179 qc, qc_p, qr, qr_p, & 180 exner, zu, tnc_m, tnr_m, tqc_m, tqr_m 181 #else 175 182 ONLY: ddzu, diss, dzu, dzw, hyp, hyrho, & 176 183 nc, nc_1, nc_2, nc_3, nc_p, nr, nr_1, nr_2, nr_3, nr_p, & … … 178 185 qc, qc_1, qc_2, qc_3, qc_p, qr, qr_1, qr_2, qr_3, qr_p, & 179 186 exner, zu, tnc_m, tnr_m, tqc_m, tqr_m 187 #endif 180 188 181 189 USE averaging, & -
palm/trunk/SOURCE/urban_surface_mod.f90
r3351 r3371 342 342 MODULE urban_surface_mod 343 343 344 USE arrays_3d, & 344 345 #if ! defined( __nopointer ) 345 USE arrays_3d, & 346 ONLY: dzu, hyp, zu, pt, pt_1, pt_2, p, u, v, w, hyp, tend, exner 346 ONLY: hyp, zu, pt, p, u, v, w, tend, exner 347 #else 348 ONLY: hyp, pt, u, v, w, tend, exner 347 349 #endif 348 350 … … 6453 6455 end_index_on_file , & 6454 6456 nxlc, nysc, & 6457 nxlf, nxrf, nysf, nynf, & 6455 6458 nys_on_file, nyn_on_file, & 6456 6459 nxl_on_file, nxr_on_file ) … … 6618 6621 CALL surface_restore_elements( & 6619 6622 t_green_v(1)%t, tmp_green_v(1)%t, & 6620 surf_usm_v(1)%start_index, & 6623 surf_usm_v(1)%start_index, & 6621 6624 start_index_on_file, & 6622 end_index_on_file ,&6625 end_index_on_file, & 6623 6626 nxlc, nysc, & 6627 nxlf, nxrf, nysf, nynf, & 6624 6628 nys_on_file, nyn_on_file, & 6625 6629 nxl_on_file,nxr_on_file ) … … 6633 6637 CALL surface_restore_elements( & 6634 6638 t_green_v_1(1)%t, tmp_green_v(1)%t, & 6635 surf_usm_v(1)%start_index, & 6639 surf_usm_v(1)%start_index, & 6636 6640 start_index_on_file, & 6637 6641 end_index_on_file, & … … 6790 6794 surf_usm_v(1)%start_index, & 6791 6795 start_index_on_file, & 6792 end_index_on_file ,&6796 end_index_on_file, & 6793 6797 nxlc, nysc, & 6798 nxlf, nxrf, nysf, nynf, & 6794 6799 nys_on_file, nyn_on_file, & 6795 6800 nxl_on_file, nxr_on_file )
Note: See TracChangeset
for help on using the changeset viewer.