Changeset 179 for palm/trunk/UTIL


Ignore:
Timestamp:
Jul 16, 2008 11:47:48 AM (16 years ago)
Author:
raasch
Message:

preliminary adjustments for HLRN-2 system

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/combine_plot_fields.f90

    r139 r179  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix: three misplaced #endif directives
    77!
    88! Former revisions:
     
    298298             ENDDO   ! av = 0, 1
    299299
    300           ENDIF
    301 #endif
     300#endif
     301          ENDIF
    302302
    303303!
     
    420420                ENDIF
    421421
    422              ENDIF
    423 #endif
     422#endif
     423             ENDIF
    424424
    425425          ENDDO
     
    608608          ENDDO    ! av=0,1
    609609
     610#endif
    610611       ENDIF
    611 #endif
    612612
    613613!
     
    736736       INTEGER, INTENT(IN) ::  errno
    737737
     738#if defined( __netcdf )
    738739       IF ( nc_stat /= NF90_NOERR )  THEN
    739740          PRINT*, '+++ combine_plot_fields  netcdf: ', av, errno, &
    740741                  TRIM( nf90_strerror( nc_stat ) )
    741742       ENDIF
     743#endif
    742744
    743745    END SUBROUTINE handle_netcdf_error
Note: See TracChangeset for help on using the changeset viewer.