Ignore:
Timestamp:
Feb 15, 2019 6:38:58 PM (2 years ago)
Author:
suehring
Message:

Coupling of indoor model to atmosphere; output of indoor temperatures and waste heat; enable restarts with indoor model; bugfix plant transpiration; bugfix - missing calculation of 10cm temperature

File:
1 edited

Legend:

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

    r3655 r3744  
    2121! Current revisions:
    2222! ------------------
    23 !
     23! +waste_heat
    2424!
    2525! Former revisions:
     
    455455       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  rho_c_total       !< volumetric heat capacity of the actual soil matrix (J/m3/K)
    456456       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  root_fr           !< root fraction within the soil layers
     457       
     458!--    Indoor model variables
     459       REAL(wp), DIMENSION(:), ALLOCATABLE ::  waste_heat          !< waste heat
    457460!
    458461!--    Urban surface variables
     
    12431246!--    Characteristic temperature and surface flux of sensible heat
    12441247       DEALLOCATE ( surfaces%ts )   
    1245        DEALLOCATE ( surfaces%shf )   
     1248       DEALLOCATE ( surfaces%shf )
    12461249!
    12471250!--    surface temperature
     
    13711374!--    Characteristic temperature and surface flux of sensible heat
    13721375       ALLOCATE ( surfaces%ts(1:surfaces%ns)  )   
    1373        ALLOCATE ( surfaces%shf(1:surfaces%ns) )   
     1376       ALLOCATE ( surfaces%shf(1:surfaces%ns) )
    13741377!
    13751378!--    Surface temperature
     
    15371540!
    15381541!--    Sensible heat flux
    1539        DEALLOCATE ( surfaces%shf )   
     1542       DEALLOCATE ( surfaces%shf )
    15401543!
    15411544!--    Latent heat flux
     
    16091612!
    16101613!--    Sensible heat flux
    1611        ALLOCATE ( surfaces%shf(1:surfaces%ns) )   
     1614       ALLOCATE ( surfaces%shf(1:surfaces%ns) )
    16121615!
    16131616!--    Latent heat flux
     
    36373640             CALL wrd_write_string( 'surf_h(' // dum // ')%sasws' )
    36383641             WRITE ( 14 )  surf_h(l)%sasws
    3639           ENDIF     
     3642          ENDIF
    36403643 
    36413644       ENDDO
     
    37813784             WRITE ( 14 )  surf_v(l)%mom_flux_tke
    37823785          ENDIF
    3783 
     3786         
    37843787       ENDDO
    37853788
Note: See TracChangeset for help on using the changeset viewer.