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

Timestamp:

Oct 13, 2008 2:59:11 PM (16 years ago)

Author:

raasch

Message:

ocean-atmosphere coupling realized with MPI-1, adjustments in mrun, mbuild, subjob for lcxt4

File:

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

palm/trunk/SOURCE/header.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: error in zu index in case of section_xy = -1
 !
 ! Former revisions:
@@ -703 +703 @@
                 slices = TRIM( slices ) // TRIM( section_chr ) // '/'
 
-                WRITE (coor_chr,'(F10.1)')  zu(section(i,1))
+                IF ( section(i,1) == -1 )  THEN
+                   WRITE (coor_chr,'(F10.1)')  -1.0
+                ELSE
+                   WRITE (coor_chr,'(F10.1)')  zu(section(i,1))
+                ENDIF
                 coor_chr = ADJUSTL( coor_chr )
                 coordinates = TRIM( coordinates ) // TRIM( coor_chr ) // '/'