Ignore:
Timestamp:
Oct 18, 2018 1:40:12 PM (3 years ago)
Author:
knoop
Message:

Bugfix: error in placements of CPP statement nopointer fixed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/bulk_cloud_model_mod.f90

    r3361 r3371  
    173173
    174174    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
    175182        ONLY:  ddzu, diss, dzu, dzw, hyp, hyrho,                               &
    176183               nc, nc_1, nc_2, nc_3, nc_p, nr, nr_1, nr_2, nr_3, nr_p,         &
     
    178185               qc, qc_1, qc_2, qc_3, qc_p, qr, qr_1, qr_2, qr_3, qr_p,         &
    179186               exner, zu, tnc_m, tnr_m, tqc_m, tqr_m
     187#endif
    180188
    181189    USE averaging,                                                             &
Note: See TracChangeset for help on using the changeset viewer.