Changeset 3498 for palm/trunk

Timestamp:

Nov 7, 2018 10:53:03 AM (6 years ago)

Author:

gronemeier

Message:

Bugfix: print error message by processor which encounters the error

Location:

palm/trunk/SOURCE

Files:

• netcdf_data_input_mod.f90 (modified) (2 diffs)
• plant_canopy_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: print error message by processor which encounters the error
+! 
+! 3485 2018-11-03 17:09:40Z gronemeier
 ! - get central meridian from origin_lon if crs does not exist
 ! - set default origin_lon to 0
@@ -6015 +6018 @@
           ENDIF
 
-          CALL message( routine_name, message_identifier, 2, 2, 0, 6, 1 )
+          CALL message( routine_name, message_identifier, 2, 2, myid, 6, 1 )
 
        ENDIF

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! ------------------
-! Remove write statement. 
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! corrected revisions section
+! 
+! 3497 2018-11-06 17:15:18Z suehring
+! Remove write statement. 
+!
+! 3467 2018-10-30 19:05:21Z suehring
 ! Add calculation of transpiration for resolved plant canopy (trees, shrubs)
 ! (V. Fuka, MFF UK Prague, J.Resler, ICS AS, Prague)