Changeset 1856 for palm/trunk/SOURCE


Ignore:
Timestamp:
Apr 13, 2016 12:56:17 PM (9 years ago)
Author:
maronga
Message:

bugfix in land surface / radiation model

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r1852 r1856  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: for water surfaces, the initial water surface temperature is set equal
     22! to the intital skin temperature. Moreover, the minimum value of r_a is now
     23! 1.0 to avoid too large fluxes at the first model time step
    2224!
    2325! Former revisions:
     
    10741076
    10751077!
    1076 !--          Make sure that the resistance does not drop to zero
    1077              IF ( ABS(r_a(j,i)) < 1.0E-10_wp )  r_a(j,i) = 1.0E-10_wp
     1078!--          Make sure that the resistance does not drop to zero for neutral
     1079!--          stratification
     1080             IF ( ABS(r_a(j,i)) < 1.0_wp )  r_a(j,i) = 1.0_wp
    10781081
    10791082!
     
    18851888             IF ( veg_type_2d(j,i) == 14  .OR.  veg_type_2d(j,i) == 15 )  THEN
    18861889                water_surface(j,i) = .TRUE.
     1890                t_soil(:,j,i) = t_surface(j,i)
    18871891             ELSEIF ( veg_type_2d(j,i) == 20 )  THEN
    18881892                pave_surface(j,i) = .TRUE.
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r1854 r1856  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: allocation of rad_lw_out for radiation_scheme = 'clear-sky'
    2222!
    2323! Former revisions:
     
    806806             ALLOCATE ( rad_lw_in(0:0,nysg:nyng,nxlg:nxrg) )
    807807          ENDIF
     808          IF ( .NOT. ALLOCATED ( rad_lw_out ) )  THEN
     809             ALLOCATE ( rad_lw_out(0:0,nysg:nyng,nxlg:nxrg) )
     810          ENDIF
    808811
    809812          IF ( .NOT. ALLOCATED ( rad_lw_in_av ) )  THEN
Note: See TracChangeset for help on using the changeset viewer.