Changeset 2359


Ignore:
Timestamp:
Aug 21, 2017 7:50:30 AM (7 years ago)
Author:
hellstea
Message:

Minor bugfix in nesting initialization

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r2339 r2359  
    425425# The following line is needed for palm_simple_install, don't remove it!
    426426#to_be_replaced_by_include
     427
     428#BOUNDS="-Rbc"  # Array bounds checking. Compromises performance seriously.
     429
     430F90 = ftn
     431#COPT = -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION -D__lc -D__parallel -D__fftw \
     432#             -D__netcdf -D__netcdf4 -D__netcdf4_parallel -D__nopointer
     433COPT = -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION -D__lc -D__parallel -D__fftw \
     434             -D__netcdf -D__netcdf4 -D__netcdf4_parallel
     435
     436#F90FLAGS = -O2 -e Fm -G2 -rm $(BOUNDS) -hnoomp
     437F90FLAGS = -O2 -e F -G2 -rm $(BOUNDS) -hnoomp
     438LDFLAGS = $(F90FLAGS) -dynamic
     439
     440# End of include
    427441
    428442.SUFFIXES:
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r2351 r2359  
    2626! -----------------
    2727! $Id$
     28! A minor indexing error in pmci_init_loglaw_correction is corrected.
     29!
     30! 2351 2017-08-15 12:03:06Z kanani
    2831! Removed check (PA0420) for nopointer version
    2932!
     
    15091512       nk = 1
    15101513       DO  k = 1, nzt_topo_max
    1511           nk = MAX( nk, CEILING( cg%dzu(kco(k)) / dzu(k) ) )
     1514          nk = MAX( nk, CEILING( cg%dzu(kco(k)+1) / dzu(k) ) )
    15121515       ENDDO
    15131516       nk = nk / 2   !  Note that this must be integer division.
Note: See TracChangeset for help on using the changeset viewer.