Changeset 807 for palm/trunk/SOURCE/check_open.f90

Timestamp:

Jan 25, 2012 11:53:51 AM (12 years ago)

Author:

maronga

Message:

new utility check_namelist_files implemented

File:

• palm/trunk/SOURCE/check_open.f90 (modified) (9 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! New cpp directive "__check" implemented which is used by check_namelist_files
+!
 !
 ! Former revisions:
@@ -116 +117 @@
     IF ( openfile(file_id)%opened )  RETURN
 
+#if .NOT. defined ( __check )
 !
 !-- Only certain files are allowed to be re-opened
@@ -138 +140 @@
        END SELECT
     ENDIF
+#endif
 
 !
@@ -189 +192 @@
        CASE ( 11 )
 
+#if defined ( __check )
+!
+!--       In case of a prior parameter file check, the p3d data is stored in 
+!--       PARIN, while the p3df is stored in PARINF. This only applies to
+!--       check_namelist_files!
+          IF ( check_restart == 2 ) THEN
+             OPEN ( 11, FILE='PARINF'//coupling_char, FORM='FORMATTED', &
+                        STATUS='OLD' )
+          ELSE
+             OPEN ( 11, FILE='PARIN'//coupling_char, FORM='FORMATTED', &
+                        STATUS='OLD' )
+          END IF
+#else
+
           OPEN ( 11, FILE='PARIN'//coupling_char, FORM='FORMATTED', &
                      STATUS='OLD' )
+#endif
 
        CASE ( 13 )
@@ -219 +237 @@
                 CALL local_system( 'mkdir  BINOUT' // coupling_char )
              ENDIF
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
 !
 !--          Set a barrier in order to allow that all other processors in the 
@@ -258 +276 @@
                         FORM='UNFORMATTED', POSITION='APPEND' )
           ELSE
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
 !
 !--          Set a barrier in order to allow that all other processors in the 
@@ -639 +657 @@
                 CALL local_system( 'mkdir  PARTICLE_INFOS' // coupling_char )
              ENDIF
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
 !
 !--          Set a barrier in order to allow that thereafter all other
@@ -688 +706 @@
                 CALL local_system( 'mkdir  PARTICLE_DATA' // coupling_char )
              ENDIF
-#if defined( __parallel )
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
 !
 !--          Set a barrier in order to allow that thereafter all other
@@ -1291 +1309 @@
                                        TRIM( coupling_char ) // '/' )
                 ENDIF
-#if defined( __parallel )
-!
+#if defined( __parallel ) .AND. .NOT. defined ( __check )
+! 
 !--             Set a barrier in order to allow that all other processors in the
 !--             directory created by PE0 can open their file