Changeset 1327 for palm/trunk/SOURCE/data_output_ptseries.f90

Timestamp:

Mar 21, 2014 11:00:16 AM (10 years ago)

Author:

raasch

Message:

Changed:

---

-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:

---

bugfix: duplicate error message 56 removed

File:

• palm/trunk/SOURCE/data_output_ptseries.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_ptseries.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! -netcdf output queries
 !
 ! Former revisions:
@@ -58 +58 @@
 
     USE control_parameters,                                                    &
-        ONLY:  dopts_time_count, netcdf_output, time_since_reference_point
+        ONLY:  dopts_time_count, time_since_reference_point
 
     USE cpulog,                                                                &
@@ -89 +89 @@
     CALL cpu_log( log_point(36), 'data_output_ptseries', 'start' )
 
-    IF ( myid == 0  .AND.  netcdf_output )  THEN
+    IF ( myid == 0 )  THEN
 !
 !--    Open file for time series output in NetCDF format
@@ -330 +330 @@
 !
 !-- Output particle time series quantities in NetCDF format
-    IF ( myid == 0  .AND.  netcdf_output )  THEN
+    IF ( myid == 0 )  THEN
        DO  j = 0, inum
           DO  i = 1, dopts_num