Changeset 4355 for palm/trunk
- Timestamp:
- Dec 19, 2019 4:14:21 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_mod.f90
r4354 r4355 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Fix also remaining message calls. 29 ! 30 ! 4354 2019-12-19 16:10:18Z suehring 28 31 ! Bugfix in message call and specify error number 29 32 ! … … 875 878 'surface element at '// & 876 879 'grid point (k,j,i) = ', k, j, i 877 CALL message( 'surface_mod', 'PA0 999', 1, 2, 0, 6, 0 )880 CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 ) 878 881 879 882 ENDIF … … 909 912 'surface element at '// & 910 913 'grid point (k,j,i) = ', k, j, i 911 CALL message( 'surface_mod', 'PA0 999', 1, 2, 0, 6, 0 )914 CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 ) 912 915 913 916 ENDIF … … 943 946 'surface element at '// & 944 947 'grid point (k,j,i) = ', k, j, i 945 CALL message( 'surface_mod', 'PA0 999', 1, 2, 0, 6, 0 )948 CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 ) 946 949 947 950 ENDIF … … 977 980 'surface element at '// & 978 981 'grid point (k,j,i) = ', k, j, i 979 CALL message( 'surface_mod', 'PA0 999', 1, 2, 0, 6, 0 )982 CALL message( 'surface_mod', 'PA0698', 1, 2, myid, 6, 0 ) 980 983 981 984 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.