Changeset 3667

Timestamp:

Jan 10, 2019 2:26:24 PM (6 years ago)

Author:

schwenkel

Message:

Modified rrtmg input files check

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Modified check for rrtmg input files
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! nopointer option removed
 ! 
@@ -2605 +2608 @@
 !
 !--       Initialize RRTMG, before check if files are existent
-          INQUIRE( FILE='rrtmg_lw.nc' // TRIM( coupling_char ), EXIST=lw_exists )
+          INQUIRE( FILE='rrtmg_lw.nc', EXIST=lw_exists )
           IF ( .NOT. lw_exists )  THEN
              message_string = 'Input file rrtmg_lw.nc' //                &
-                            TRIM( coupling_char ) // ' for rrtmg missing. ' // &
+                            '&for rrtmg missing. ' // &
                             '&Please provide <jobname>_lsw file in the INPUT directory.'
              CALL message( 'radiation_init', 'PA0583', 1, 2, 0, 6, 0 )
           ENDIF         
-          INQUIRE( FILE='rrtmg_sw.nc' // TRIM( coupling_char ), EXIST=sw_exists )
+          INQUIRE( FILE='rrtmg_sw.nc', EXIST=sw_exists )
           IF ( .NOT. sw_exists )  THEN
              message_string = 'Input file rrtmg_sw.nc' //                &
-                            TRIM( coupling_char ) // ' for rrtmg missing. ' // &
+                            '&for rrtmg missing. ' // &
                             '&Please provide <jobname>_rsw file in the INPUT directory.'
              CALL message( 'radiation_init', 'PA0584', 1, 2, 0, 6, 0 )