Changeset 288 for palm/trunk/SOURCE

Timestamp:

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

Author:

heinze

Message:

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

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (3 diffs)
• modules.f90 (modified) (2 diffs)
• netcdf.f90 (modified) (3 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -28 +28 @@
 Changed:
 -------
+NetCDF unit attribute in timeseries output in case of statistic regions added
+(netcdf.90)
+
 Output of NetCDF messages with aid of message handling routine.
 (check_open, close_file, data_output_2d, data_output_3d, 
@@ -60 +63 @@
 ------
 
+Typographical error: unit of wpt in dots_unit (modules)
+
 Bugfix: error in check, if particles moved further than one subdomain length.
 This check must not be applied for newly released particles. (advec_particles)
@@ -76 +81 @@
 on. (time_integration)
 
-advec_particles, check_parameters, cpu_log, init_particles, time_integration
+advec_particles, check_parameters, cpu_log, init_particles, modules, time_integration

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
+! typographical error in dots_unit fixed
 ! +clip_dvrp_*, cluster_size, color_interval, dvrpsize_interval, dvrp_overlap,
 ! dvrp_total_overlap, groundplate_color, local_dvrserver_running, n*_dvrp,
@@ -857 +858 @@
           (/ 'm2/s2  ', 'm2/s2  ', 's      ', 'm/s    ', 'K      ', 'm/s    ', &
              'm/s    ', 'm/s    ', 's-1    ', 's-1    ', 'm      ', 'm      ', &
-             'm/s    ', 'K m/s  ', 'K m/s  ', 'k m/s  ', 'K      ', 'K      ', &
+             'm/s    ', 'K m/s  ', 'K m/s  ', 'K m/s  ', 'K      ', 'K      ', &
              'm2/s2  ', 'm2/s2  ', 'kg m/s ', 'm      ',                       &
              ( 'unknown', i9 = 1, 78 ) /)

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