Changeset 3371 for palm/trunk


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

Bugfix: error in placements of CPP statement nopointer fixed

Location:
palm/trunk/SOURCE
Files:
2 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,                                                             &
  • palm/trunk/SOURCE/urban_surface_mod.f90

    r3351 r3371  
    342342 MODULE urban_surface_mod
    343343
     344    USE arrays_3d,                                                             &
    344345#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
    347349#endif
    348350
     
    64536455                                        end_index_on_file ,                    &
    64546456                                        nxlc, nysc,                            &
     6457                                        nxlf, nxrf, nysf, nynf,                &
    64556458                                        nys_on_file, nyn_on_file,              &
    64566459                                        nxl_on_file, nxr_on_file )
     
    66186621                CALL surface_restore_elements(                                 &
    66196622                                        t_green_v(1)%t, tmp_green_v(1)%t,      &
    6620                                         surf_usm_v(1)%start_index,             & 
     6623                                        surf_usm_v(1)%start_index,             &
    66216624                                        start_index_on_file,                   &
    6622                                         end_index_on_file ,                    &
     6625                                        end_index_on_file,                     &
    66236626                                        nxlc, nysc,                            &
     6627                                        nxlf, nxrf, nysf, nynf,                &
    66246628                                        nys_on_file, nyn_on_file,              &
    66256629                                        nxl_on_file,nxr_on_file )
     
    66336637                CALL surface_restore_elements(                                 &
    66346638                                        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,             &
    66366640                                        start_index_on_file,                   &
    66376641                                        end_index_on_file,                     &
     
    67906794                                        surf_usm_v(1)%start_index,             &
    67916795                                        start_index_on_file,                   &
    6792                                         end_index_on_file ,                    &
     6796                                        end_index_on_file,                     &
    67936797                                        nxlc, nysc,                            &
     6798                                        nxlf, nxrf, nysf, nynf,                &
    67946799                                        nys_on_file, nyn_on_file,              &
    67956800                                        nxl_on_file, nxr_on_file )
Note: See TracChangeset for help on using the changeset viewer.