Ignore:
Timestamp:
Nov 4, 2015 2:47:01 PM (6 years ago)
Author:
maronga
Message:

several bugfixes related to the new surface layer routine and land-surface-radiation interaction

File:
1 edited

Legend:

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

    r1692 r1709  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added rad_lw_out_change_0, increased binary_version
    2222!
    2323! Former revisions:
     
    124124        ONLY: rad_net, rad_net_av, rad_lw_in, rad_lw_in_av, rad_lw_out,        &
    125125              rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av,          &
    126               rad_lw_out_av, rad_sw_in, rad_sw_in_av, rad_sw_out,              &
    127               rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,         &
    128               rad_sw_hr_av
     126              rad_lw_out_av, rad_lw_out_change_0, rad_sw_in, rad_sw_in_av,     &
     127              rad_sw_out, rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av,        &
     128              rad_sw_hr, rad_sw_hr_av
    129129
    130130    USE random_function_mod,                                                   &
     
    348348!--    First compare the version numbers
    349349       READ ( 13 )  version_on_file
    350        binary_version = '4.1'
     350       binary_version = '4.2'
    351351       IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    352352          WRITE( message_string, * ) 'version mismatch concerning data ',      &
     
    877877                   rad_lw_out_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
    878878                             tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     879
     880                CASE ( 'rad_lw_out_change_0' )
     881                   IF ( .NOT. ALLOCATED( rad_lw_out_change_0 ) )  THEN
     882                      ALLOCATE( rad_lw_out_change_0(nysg:nyng,nxlg:nxrg) )
     883                   ENDIF
     884                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     885                   rad_lw_out_change_0(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)&
     886                              = tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    879887
    880888                CASE ( 'rad_lw_cs_hr' )
Note: See TracChangeset for help on using the changeset viewer.