Changeset 3371 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90

Timestamp:

Oct 18, 2018 1:40:12 PM (6 years ago)

Author:

knoop

Message:

Bugfix: error in placements of CPP statement nopointer fixed

File:

• palm/trunk/SOURCE/bulk_cloud_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -173 +173 @@
 
     USE arrays_3d,                                                             &
+#if defined (__nopointer)
+        ONLY:  ddzu, diss, dzu, dzw, hyp, hyrho,                               &
+               nc,                   nc_p, nr,                   nr_p,         &
+               precipitation_amount, prr, pt, d_exner, pt_init, q, ql,         &
+               qc,                   qc_p, qr,                   qr_p,         &
+               exner, zu, tnc_m, tnr_m, tqc_m, tqr_m
+#else
         ONLY:  ddzu, diss, dzu, dzw, hyp, hyrho,                               &
                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,         &
                exner, zu, tnc_m, tnr_m, tqc_m, tqr_m
+#endif
 
     USE averaging,                                                             &