Ignore:
Timestamp:
Feb 22, 2016 3:49:32 PM (6 years ago)
Author:
maronga
Message:

some changes in land surface model, radiation model, nudging and some minor updates

File:
1 edited

Legend:

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

    r1710 r1757  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added parameter unscheduled_radiation_calls. Bugfix: interpolation of sounding
     22! profiles for pressure and temperature above the LES domain.
    2223!
    2324! Former revisions:
     
    164165
    165166
    166     LOGICAL ::  constant_albedo = .FALSE.,       & !< flag parameter indicating whether the albedo may change depending on zenith
    167                 force_radiation_call = .FALSE.,  & !< flag parameter for unscheduled radiation calls
    168                 lw_radiation = .TRUE.,           & !< flag parameter indicing whether longwave radiation shall be calculated
    169                 radiation = .FALSE.,             & !< flag parameter indicating whether the radiation model is used
    170                 sun_up    = .TRUE.,              & !< flag parameter indicating whether the sun is up or down
    171                 sw_radiation = .TRUE.              !< flag parameter indicing whether shortwave radiation shall be calculated
     167    LOGICAL ::  unscheduled_radiation_calls = .TRUE., & !< flag parameter indicating whether additional calls of the radiation code are allowed
     168                constant_albedo = .FALSE.,            & !< flag parameter indicating whether the albedo may change depending on zenith
     169                force_radiation_call = .FALSE.,       & !< flag parameter for unscheduled radiation calls
     170                lw_radiation = .TRUE.,                & !< flag parameter indicating whether longwave radiation shall be calculated
     171                radiation = .FALSE.,                  & !< flag parameter indicating whether the radiation model is used
     172                sun_up    = .TRUE.,                   & !< flag parameter indicating whether the sun is up or down
     173                sw_radiation = .TRUE.                   !< flag parameter indicing whether shortwave radiation shall be calculated
    172174
    173175
     
    372374           rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,            &
    373375           rad_sw_hr_av, sigma_sb, skip_time_do_radiation, sw_radiation,       &
    374            time_radiation, time_utc_init
     376           time_radiation, time_utc_init, unscheduled_radiation_calls
    375377
    376378
     
    12291231       q_snd = 0.0_wp
    12301232
    1231        hyp_snd(nzt+2:nzt_rad) = hyp_snd_tmp(nz_snd_start:nz_snd_end)
    1232        t_snd(nzt+2:nzt_rad)   = t_snd_tmp(nz_snd_start:nz_snd_end)
    1233 
    1234        DEALLOCATE ( hyp_snd_tmp )
    1235        DEALLOCATE ( t_snd_tmp )
     1233       hyp_snd(nzt+2:nzt_rad) = hyp_snd_tmp(nz_snd_start+1:nz_snd_end)
     1234       t_snd(nzt+2:nzt_rad)   = t_snd_tmp(nz_snd_start+1:nz_snd_end)
    12361235
    12371236       nc_stat = NF90_CLOSE( id )
Note: See TracChangeset for help on using the changeset viewer.