Changeset 288 for palm/trunk/SOURCE/netcdf.f90

Timestamp:

Apr 9, 2009 11:20:12 AM (14 years ago)

Author:

heinze

Message:

NetCDF unit attribute in timeseries output added, typographical error in modules fixed

File:

• palm/trunk/SOURCE/netcdf.f90 (modified) (3 diffs)

palm/trunk/SOURCE/netcdf.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
+! NetCDF unit attribute in timeseries output in case of statistic
+! regions added.
 ! Output of NetCDF messages with aid of message handling routine.
 ! Output of messages replaced by message handling routine.
@@ -2684 +2686 @@
                    CALL handle_netcdf_error( 'netcdf', 257 )
 
+                   nc_stat = NF90_PUT_ATT( id_set_ts, id_var_dots(i,j), &
+                                           'units', TRIM( dots_unit(i) ) )
+                   CALL handle_netcdf_error( 'netcdf', 347 )
+
                    var_list = TRIM(var_list) // TRIM(netcdf_var_name) // &
                               suffix // ';'
@@ -3626 +3632 @@
        message_string = TRIM( NF90_STRERROR( nc_stat ) )
 
-       CALL message( routine_name, message_identifier, 2, 2, -1, 6, 1 )
+       CALL message( routine_name, message_identifier, 2, 2, 0, 6, 1 )
 
     ENDIF