Changeset 1308 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Mar 13, 2014 2:58:42 PM (10 years ago)

Author:

fricke

Message:

Adjustments for parallel NetCDF output for lccrayh/lccrayb (Cray XC30 systems)

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! +do2d_xy_time_count, do2d_xz_time_count, do2d_yz_time_count,
+! +do3d_time_count
 !
 ! Former revisions:
@@ -202 +203 @@
 !-- Make version number check first
     READ ( 13 )  version_on_file
-    binary_version = '3.9a'
+    binary_version = '3.9b'
     IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
        WRITE( message_string, * ) 'version mismatch concerning control ', &
@@ -383 +384 @@
           CASE ( 'dissipation_1d' )
              READ ( 13 )  dissipation_1d
+          CASE ( 'do2d_xy_time_count' )
+             READ ( 13 )  do2d_xy_time_count
+          CASE ( 'do2d_xz_time_count' )
+             READ ( 13 )  do2d_xz_time_count
+          CASE ( 'do2d_yz_time_count' )
+             READ ( 13 )  do2d_yz_time_count
+          CASE ( 'do3d_time_count' )
+             READ ( 13 )  do3d_time_count
           CASE ( 'dp_external' )
              READ ( 13 )  dp_external