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/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.