Ignore:
Timestamp:
Aug 24, 2016 3:47:17 PM (5 years ago)
Author:
kanani
Message:

changes in the course of urban surface model implementation

File:
1 edited

Legend:

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

    r2001 r2007  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Temporarily added CALL for writing of restart data for urban surface model
    2323!
    2424! Former revisions:
     
    144144!>
    145145!> @todo create routine last_actions instead of calling lsm_last_actions etc.
     146!> @todo eventually move CALL usm_write_restart_data to suitable location
    146147!------------------------------------------------------------------------------!
    147148 PROGRAM palm
     
    201202    USE surface_layer_fluxes_mod,                                              &
    202203        ONLY:  pt1, qv1, uv_total
     204       
     205    USE urban_surface_mod,                                                     &
     206        ONLY:  urban_surface, usm_write_restart_data       
    203207
    204208#if defined( __openacc )
     
    455459!--    If required, write particle data
    456460       IF ( particle_advection )  CALL lpm_write_restart_file
     461!
     462!--    If required, write urban surface data
     463       IF (urban_surface)  CALL usm_write_restart_data
     464       
    457465    ENDIF
    458466
Note: See TracChangeset for help on using the changeset viewer.