Changeset 2359

Timestamp:

Aug 21, 2017 7:50:30 AM (7 years ago)

Author:

hellstea

Message:

Minor bugfix in nesting initialization

Location:

palm/trunk/SOURCE

Files:

• Makefile (modified) (1 diff)
• pmc_interface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/Makefile

@@ -425 +425 @@
 # The following line is needed for palm_simple_install, don't remove it!
 #to_be_replaced_by_include
+
+#BOUNDS="-Rbc"  # Array bounds checking. Compromises performance seriously.
+
+F90 = ftn
+#COPT = -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION -D__lc -D__parallel -D__fftw \
+#             -D__netcdf -D__netcdf4 -D__netcdf4_parallel -D__nopointer
+COPT = -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION -D__lc -D__parallel -D__fftw \
+             -D__netcdf -D__netcdf4 -D__netcdf4_parallel
+
+#F90FLAGS = -O2 -e Fm -G2 -rm $(BOUNDS) -hnoomp
+F90FLAGS = -O2 -e F -G2 -rm $(BOUNDS) -hnoomp
+LDFLAGS = $(F90FLAGS) -dynamic
+
+# End of include
 
 .SUFFIXES:

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! A minor indexing error in pmci_init_loglaw_correction is corrected. 
+! 
+! 2351 2017-08-15 12:03:06Z kanani
 ! Removed check (PA0420) for nopointer version
 ! 
@@ -1509 +1512 @@
        nk = 1
        DO  k = 1, nzt_topo_max
-          nk = MAX( nk, CEILING( cg%dzu(kco(k)) / dzu(k) ) )
+          nk = MAX( nk, CEILING( cg%dzu(kco(k)+1) / dzu(k) ) )
        ENDDO
        nk = nk / 2   !  Note that this must be integer division.