Changeset 2957 for palm

Timestamp:

Apr 11, 2018 8:48:06 AM (7 years ago)

Author:

Giersch

Message:

Sky view factors will always be read from file now in case of automatic restarts, corrected error message in case of writing sky view factors

Location:

palm/trunk

Files:

• SCRIPTS/palmrun (modified) (2 diffs)
• SOURCE/check_open.f90 (modified) (2 diffs)

palm/trunk/SCRIPTS/palmrun

@@ -27 +27 @@
 # -----------------
 # $Id: palmrun 2718 2018-01-02 08:49:38Z maronga $
+# svfout in the activation string will be replaced now by svfin in case of 
+# automatic restarts
+# 
+# 2718 2018-01-02 08:49:38Z maronga
 # Introduction of new ENVIRONMENT variables read_svf and write_svf to consider
 # the possible output or input of sky view factors
@@ -2640 +2644 @@
        [[ $(echo $prc | grep -c "\-b") = 0 ]]  &&  prc="$prc -b"
 
+          # REPLACE SVFOUT IN THE ACTIVATION STRINGS (GIVEN WITH OPTION -a)
+          # SO THAT RESTARTS USE SVF DATA CREATED BY THE INITIAL RUN
+       if [[ $(echo $prc | grep -c "svfout") != 0 ]]
+       then
+          prc=`echo $prc | sed 's/svfout/svfin/g'`
+       fi
 
           # REPLACE THE HASH IN THE ACTIVATION STRINGS (GIVEN WITH OPTION -a)

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message has been corrected in case of writing sky view factors
+! 
+! 2906 2018-03-19 08:56:40Z Giersch
 ! CASE 88 and 89 has been added for the input/output of sky view factors
 ! 
@@ -583 +586 @@
                            FORM='UNFORMATTED', STATUS='NEW', IOSTAT=ioerr )
                 IF ( ioerr /= 0 )  THEN
-                   WRITE( 9, * )  '*** could not open "BINOUT'//         &
-                                  TRIM(coupling_char)//'/'//myid_char//  &
+                   WRITE( 9, * )  '*** could not open "SVFOUT'//               &
+                                  TRIM(coupling_char)//'/'//myid_char//        &
                                   '"! Trying again in 1 sec.'
                    CALL fortran_sleep( 1 )