Changeset 38 in lmdz_wrf

Timestamp:

Jul 23, 2014, 1:14:54 PM (10 years ago)

Author:

lfita

Message:

Fixing string concatenation... This is Fortran not python!!!!

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90 (modified) (2 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

@@ -160 +160 @@
       IF (fs_bound .NE. fs_bound .OR. ABS(fs_bound) > largest) THEN
         PRINT *,TRIM(errmsg)
-        PRINT *,'  ' + TRIM(fname) + ': Wrong fs_bound= ',fs_bound,' !!!'
+        PRINT *,'  ' // TRIM(fname) // ': Wrong fs_bound= ',fs_bound,' !!!'
         PRINT *,'    fs_bound: Heat flux at atm. boundaries'
         PRINT *,'    fs_bound = stops-stopl - (ssols+ssoll)+ssens+sfront'
@@ -209 +209 @@
       IF (fq_bound .NE. fq_bound .OR. ABS(fq_bound) > 100000.) THEN
         PRINT *,TRIM(errmsg)
-        PRINT *,'  ' + TRIM(fname) + ': Wrong fs_bound= ',fs_bound,' !!!'
+        PRINT *,'  ' // TRIM(fname) // ': Wrong fq_bound= ',fs_bound,' !!!'
         PRINT *,'    fq_bound: Watter flux at atm. boundaries'
         PRINT *,'    fq_bound = evap_tot - rain_fall_tot -snow_fall_tot'