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

Timestamp:

Mar 19, 2008 9:41:30 AM (16 years ago)

Author:

steinfeld

Message:

Update for the plant canopy model

File:

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

palm/trunk/SOURCE/header.f90

@@ -371 +371 @@
 
        WRITE ( io, 280 ) canopy_mode, pch_index, drag_coefficient
+       IF ( passive_scalar ) THEN
+          WRITE ( io, 281 ) scalar_exchange_coefficient,   &
+                            leaf_surface_concentration
+       ENDIF
+
+!
+!--    Heat flux at the top of vegetation
+       WRITE ( io, 282 ) cthf
 
 !
@@ -397 +405 @@
        ENDDO
 
-       WRITE ( io, 281 )  TRIM( coordinates ), TRIM( learde ), &
+       WRITE ( io, 283 )  TRIM( coordinates ), TRIM( learde ), &
                           TRIM( gradients ), TRIM( slices )
 
@@ -1379 +1387 @@
               ' Canopy top: ',I4 / &
               ' Leaf drag coefficient: ',F6.2 /)
-281 FORMAT (/ ' Characteristic levels of the leaf area density:'// &
+281 FORMAT (/ ' Scalar_exchange_coefficient: ',F6.2 / &
+              ' Scalar concentration at leaf surfaces in kg/m**3: ',F6.2 /)
+282 FORMAT (' Predefined constant heatflux at the top of the vegetation: ',F6.2,' K m/s')
+283 FORMAT (/ ' Characteristic levels of the leaf area density:'// &
               ' Height:              ',A,'  m'/ &
               ' Leaf area density:   ',A,'  m**2/m**3'/ &