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/swap_timelevel.f90

    r2001 r2007  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Added swapping of urban surface model quantities,
     23! removed redundance for land surface model
    2324!
    2425! Former revisions:
     
    116117    USE pmc_interface,                                                         &
    117118        ONLY: nested_run, pmci_set_swaplevel
     119
     120    USE urban_surface_mod,                                                     &
     121        ONLY:  urban_surface, usm_swap_timelevel
    118122
    119123
     
    182186    ENDIF
    183187
     188    IF ( urban_surface )  THEN
     189       CALL usm_swap_timelevel ( 0 )
     190    ENDIF
     191
    184192
    185193    CALL cpu_log( log_point(28), 'swap_timelevel (nop)', 'stop' )
     
    214222          ENDIF
    215223
    216           IF ( land_surface )  THEN
    217              CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
    218           ENDIF
    219 
    220224          swap_level = 1
    221225
     
    245249          ENDIF
    246250
    247           IF ( land_surface )  THEN
    248              CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
    249           ENDIF
    250 
    251251          swap_level = 2
    252252
    253253    END SELECT
     254
     255    IF ( land_surface )  THEN
     256       CALL lsm_swap_timelevel ( MOD( timestep_count, 2) )
     257    ENDIF
     258
     259    IF ( urban_surface )  THEN
     260       CALL usm_swap_timelevel ( MOD( timestep_count, 2) )
     261    ENDIF
    254262
    255263!
Note: See TracChangeset for help on using the changeset viewer.