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

Timestamp:

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

palm/trunk/SOURCE/data_output_mask.f90

@@ -75 +75 @@
                mask_j, mask_k, mask_size, mask_size_l, mask_start_l,           &
                max_masks, message_string, mid, netcdf_data_format,             &
-               netcdf_output, nz_do3d, simulated_time
+               nz_do3d, simulated_time
     
     USE cpulog,                                                                &
@@ -128 +128 @@
 !
 !-- Open output file.
-    IF ( netcdf_output  .AND.  ( myid == 0  .OR.  netcdf_data_format > 4 ) ) &
-    THEN
+    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
        CALL check_open( 200+mid+av*max_masks )
     ENDIF 
@@ -146 +145 @@
 !-- Update the netCDF time axis.
     domask_time_count(mid,av) = domask_time_count(mid,av) + 1
-    IF ( netcdf_output  .AND.  ( myid == 0  .OR.  netcdf_data_format > 4 ) ) &
-    THEN
+    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
        nc_stat = NF90_PUT_VAR( id_set_mask(mid,av), id_var_time_mask(mid,av), &
                                (/ simulated_time /),                          &