Ignore:
Timestamp:
Mar 10, 2016 11:01:04 AM (6 years ago)
Author:
maronga
Message:

added support for water and paved surfaced in land surface model / minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r1787 r1788  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Parameter dewfall removed
    2222!
    2323! Former revisions:
     
    248248   
    249249    USE land_surface_model_mod,                                                &
    250         ONLY:  conserve_water_content, dewfall, land_surface, nzb_soil,        &
     250        ONLY:  conserve_water_content, land_surface, nzb_soil,                 &
    251251               nzt_soil, root_fraction, soil_moisture, soil_temperature,       &
    252252               soil_type, soil_type_name, veg_type, veg_type_name, zs
     
    964964       ELSE
    965965          WRITE( io, 441 )
    966        ENDIF
    967 
    968        IF ( dewfall )  THEN
    969           WRITE( io, 442 )
    970        ELSE
    971           WRITE( io, 443 )
    972966       ENDIF
    973967
     
    23412335            '       Root fraction: ',A,'  '/ &
    23422336            '       Gridpoint:     ',A)
    2343 440 FORMAT (/' --> Dewfall is allowed (default)')
    2344 441 FORMAT (' --> Dewfall is inhibited')
    2345 442 FORMAT (' --> Soil bottom is closed (water content is conserved, default)')
    2346 443 FORMAT (' --> Soil bottom is open (water content is not conserved)')
     2337440 FORMAT (' --> Soil bottom is closed (water content is conserved, default)')
     2338441 FORMAT (' --> Soil bottom is open (water content is not conserved)')
    23472339444 FORMAT (//' Radiation model information:'/                                 &
    23482340              ' ----------------------------'/)
Note: See TracChangeset for help on using the changeset viewer.