Changeset 841 for palm/trunk/SOURCE

Timestamp:

Feb 28, 2012 12:29:49 PM (12 years ago)

Author:

maronga

Message:

further adjustments and bugfixes for the namelist file check

Location:

palm/trunk/SOURCE

Files:

• Makefile_check (modified) (5 diffs)
• exchange_horiz.f90 (modified) (3 diffs)
• exchange_horiz_2d.f90 (modified) (5 diffs)
• user_parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/Makefile_check

@@ -4 +4 @@
 # Current revisions:
 # ------------------
+# Added: exchange_horiz, exchange_horiz_2d, random_function
 #
 # Former revisions:
@@ -25 +26 @@
 
 RCS = check_open.f90 check_namelist_files.f90 check_parameters.f90 \
-      close_file.f90 cpu_log.f90 fft_xy.f90 init_grid.f90 init_masks.f90 \
+      close_file.f90 cpu_log.f90 exchange_horiz.f90 exchange_horiz_2d.f90 \
+      fft_xy.f90 init_grid.f90 init_masks.f90 \
       init_pegrid.f90 local_flush.f90 local_stop.f90 local_system.f90 \
       message.f90 modules.f90 package_parin.f90 parin.f90 poisfft.f90 \
-      poisfft_hybrid.f90 singleton.f90 subsidence.f90 temperton_fft.f90 \
+      poisfft_hybrid.f90 random_function.f90 singleton.f90 subsidence.f90 \
+      temperton_fft.f90 \
       user_3d_data_averaging.f90 user_actions.f90 \
       user_additional_routines.f90 user_advec_particles.f90 \
@@ -45 +48 @@
 
 OBJS = check_open.o check_namelist_files.o check_parameters.o close_file.o \
-      cpu_log.o fft_xy.o init_grid.o init_masks.o init_pegrid.o \
+      cpu_log.o exchange_horiz.o exchange_horiz_2d.o fft_xy.o init_grid.o \
+      init_masks.o init_pegrid.o \
       local_flush.o local_stop.o local_system.o message.o \
       modules.o package_parin.o parin.o poisfft.o \
-      poisfft_hybrid.o singleton.o subsidence.o temperton_fft.o \
+      poisfft_hybrid.o random_function.o singleton.o subsidence.o temperton_fft.o \
       user_3d_data_averaging.o user_actions.o user_additional_routines.o \
       user_advec_particles.o user_check_data_output.o \
@@ -90 +94 @@
 close_file.o: modules.o
 cpu_log.o: modules.o
+exchange_horiz.o: modules.o
+exchange_horiz_2d.o: modules.o
 fft_xy.o: modules.o singleton.o temperton_fft.o
 init_grid.o: modules.o
@@ -101 +107 @@
 poisfft.o: modules.o fft_xy.o
 poisfft_hybrid.o: modules.o fft_xy.o
+random_function.o: modules.o
 singleton.o: singleton.f90
 subsidence.o: modules.o

palm/trunk/SOURCE/exchange_horiz.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Excluded routine from compilation of namelist_file_check
 !
 ! Former revisions:
@@ -59 +59 @@
     IMPLICIT NONE
 
+
+    INTEGER ::  nbgp_local
+    REAL, DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local, &
+                    nxl-nbgp_local:nxr+nbgp_local) ::  ar
+
+#if ! defined( __check )
 #if defined( __parallel )
     INTEGER, DIMENSION(4)                 ::  req
     INTEGER, DIMENSION(MPI_STATUS_SIZE,4) ::  wait_stat
 #endif
-    INTEGER ::  nbgp_local
-    REAL, DIMENSION(nzb:nzt+1,nys-nbgp_local:nyn+nbgp_local, &
-                    nxl-nbgp_local:nxr+nbgp_local) ::  ar
+
 
     CALL cpu_log( log_point_s(2), 'exchange_horiz', 'start' )
@@ -187 +191 @@
     CALL cpu_log( log_point_s(2), 'exchange_horiz', 'stop' )
 
-
+#endif
  END SUBROUTINE exchange_horiz

palm/trunk/SOURCE/exchange_horiz_2d.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Excluded routine from compilation of namelist_file_check
 !
 ! Former revisions:
@@ -48 +48 @@
     IMPLICIT NONE
 
+
     REAL ::  ar(nysg:nyng,nxlg:nxrg)
     INTEGER :: i
 
-
+#if ! defined( __check )
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'start' )
 
@@ -146 +147 @@
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' )
 
+#endif
  END SUBROUTINE exchange_horiz_2d
 
@@ -170 +172 @@
     INTEGER :: i
 
+#if ! defined( __check )
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'start' )
 
@@ -239 +242 @@
     CALL cpu_log( log_point_s(13), 'exchange_horiz_2d', 'stop' )
 
+#endif
  END SUBROUTINE exchange_horiz_2d_int

palm/trunk/SOURCE/user_parin.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: disable max_pr_user check during prior namelist file check
 !
 ! Former revisions:
@@ -83 +83 @@
 !-- restart file (already stored in max_pr_user) has to match the one given
 !-- for the current run
+#if ! defined ( __check )
     IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
        IF ( max_pr_user /= max_pr_user_tmp )  THEN
@@ -95 +96 @@
        max_pr_user = max_pr_user_tmp
     ENDIF
+#endif
 
 100 RETURN