Changeset 179 for palm/trunk/UTIL

Timestamp:

Jul 16, 2008 11:47:48 AM (16 years ago)

Author:

raasch

Message:

preliminary adjustments for HLRN-2 system

File:

• palm/trunk/UTIL/combine_plot_fields.f90 (modified) (5 diffs)

palm/trunk/UTIL/combine_plot_fields.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: three misplaced #endif directives
 !
 ! Former revisions:
@@ -298 +298 @@
              ENDDO   ! av = 0, 1
 
-          ENDIF
-#endif
+#endif
+          ENDIF
 
 !
@@ -420 +420 @@
                 ENDIF
 
-             ENDIF
-#endif
+#endif
+             ENDIF
 
           ENDDO
@@ -608 +608 @@
           ENDDO    ! av=0,1
 
+#endif
        ENDIF
-#endif
 
 !
@@ -736 +736 @@
        INTEGER, INTENT(IN) ::  errno
 
+#if defined( __netcdf )
        IF ( nc_stat /= NF90_NOERR )  THEN
           PRINT*, '+++ combine_plot_fields  netcdf: ', av, errno, &
                   TRIM( nf90_strerror( nc_stat ) )
        ENDIF
+#endif
 
     END SUBROUTINE handle_netcdf_error