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

Timestamp:

Mar 21, 2014 11:00:16 AM (9 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_tseries.f90 (modified) (4 diffs)

palm/trunk/SOURCE/data_output_tseries.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! -netcdf output queries
 !
 ! Former revisions:
@@ -55 +55 @@
 
     USE control_parameters,                                                    &
-        ONLY:  dots_time_count, netcdf_output, time_since_reference_point
+        ONLY:  dots_time_count, time_since_reference_point
 
     USE cpulog,                                                                &
@@ -90 +90 @@
 !
 !--    Open file for time series output in NetCDF format
-       IF ( netcdf_output )  THEN
-          dots_time_count = dots_time_count + 1
-          CALL check_open( 105 )
+       dots_time_count = dots_time_count + 1
+       CALL check_open( 105 )
 #if defined( __netcdf )
 !
-!--       Update the time series time axis
-          nc_stat = NF90_PUT_VAR( id_set_ts, id_var_time_ts,        &
-                                  (/ time_since_reference_point /), &
-                                  start = (/ dots_time_count /),    &
-                                  count = (/ 1 /) )
-          CALL handle_netcdf_error( 'data_output_tseries', 350 )
+!--    Update the time series time axis
+       nc_stat = NF90_PUT_VAR( id_set_ts, id_var_time_ts,        &
+                               (/ time_since_reference_point /), &
+                               start = (/ dots_time_count /),    &
+                               count = (/ 1 /) )
+       CALL handle_netcdf_error( 'data_output_tseries', 350 )
 #endif
-       ENDIF
 
 !
@@ -110 +108 @@
 
 #if defined( __netcdf )
-          IF ( netcdf_output )  THEN
-             DO  i = 1, dots_num
-                nc_stat = NF90_PUT_VAR( id_set_ts, id_var_dots(i,sr),  &
-                                        (/ ts_value(i,sr) /),          &
-                                        start = (/ dots_time_count /), &
-                                        count = (/ 1 /) )
-                CALL handle_netcdf_error( 'data_output_tseries', 351 )
-             ENDDO
-          ENDIF
+          DO  i = 1, dots_num
+             nc_stat = NF90_PUT_VAR( id_set_ts, id_var_dots(i,sr),  &
+                                     (/ ts_value(i,sr) /),          &
+                                     start = (/ dots_time_count /), &
+                                     count = (/ 1 /) )
+             CALL handle_netcdf_error( 'data_output_tseries', 351 )
+          ENDDO
 #endif