Changeset 292 for palm/trunk/SOURCE/header.f90

Timestamp:

Apr 16, 2009 4:10:51 PM (15 years ago)

Author:

letzel

Message:

• Typographical errors (netcdf)
• If the inversion height calculated by the prerun is zero, inflow_damping_height must be explicitly specified (init_3d_model)
• Small bugfix concerning 3d 64bit netcdf output format (header)
• Adjustments for lcsgib and lcsgih (subjob)

File:

• palm/trunk/SOURCE/header.f90 (modified) (9 diffs)

palm/trunk/SOURCE/header.f90

@@ -11 +11 @@
 ! dp_smooth, dpdxy, u_bulk, v_bulk
 ! topography_grid_convention moved from user_header
+! small bugfix concerning 3d 64bit netcdf output format
 !
 ! Former revisions:
@@ -693 +694 @@
           ENDIF
        ENDIF
-       WRITE ( io, 345 )  output_format
+       WRITE ( io, 344 )  output_format
 
        DO  i = 1, dopr_n
@@ -771 +772 @@
              ENDIF
           ENDIF
-          WRITE ( io, 345 )  output_format
+          WRITE ( io, 344 )  output_format
 
           IF ( do2d_xy /= ''  .AND.  section(1,1) /= -9999 )  THEN
@@ -915 +916 @@
           output_format = ''
           IF ( netcdf_output )  THEN
-             IF ( netcdf_64bit .AND. netcdf_64bit_3d )  THEN
+             IF ( netcdf_64bit_3d )  THEN
                 output_format = 'netcdf (64 bit offset)'
              ELSE
@@ -928 +929 @@
              ENDIF
           ENDIF
-          WRITE ( io, 345 )  output_format
+          WRITE ( io, 344 )  output_format
 
           IF ( do3d_at_begin )  THEN
@@ -1005 +1006 @@
           ENDIF
        ENDIF
-       WRITE ( io, 345 )  output_format
+       WRITE ( io, 344 )  output_format
        WRITE ( io, 341 )  dt_dots
     ENDIF
@@ -1061 +1062 @@
           ENDIF
        ENDIF
-       WRITE ( io, 345 )  output_format
+       WRITE ( io, 344 )  output_format
        WRITE ( io, 371 )  dt_dosp
        IF ( skip_time_dosp /= 0.0 )  WRITE ( io, 339 )  skip_time_dosp
@@ -1320 +1321 @@
              output_format = 'binary'
           ENDIF
-          WRITE ( io, 345 )  output_format
+          WRITE ( io, 344 )  output_format
        ENDIF
        IF ( dt_dopts /= 9999999.9 )  WRITE ( io, 494 )  dt_dopts
@@ -1593 +1594 @@
             '       Averaging input every    ',F8.2,' s'/ &
             '       Upper output limit at    ',F8.2,' m  (GP ',I4,')'/)
-345 FORMAT ('       Output format: ',A/)
+344 FORMAT ('       Output format: ',A/)
 #if defined( __dvrp_graphics )
 360 FORMAT ('    Plot-Sequence with dvrp-software:'/ &