Ignore:
Timestamp:
Nov 17, 2016 11:22:14 AM (5 years ago)
Author:
maronga
Message:

small bugfix for USM

File:
1 edited

Legend:

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

    r2038 r2071  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Small bugfix (Resler)
    2323!
    2424! Former revisions:
     
    217217       ENDDO
    218218
    219        shf_surf  = shf_surf  * heatflux_input_conversion(nzb)
    220        qsws_surf = qsws_surf * waterflux_input_conversion(nzb)
    221 
    222219       IF ( time_surf(1) > end_time )  THEN
    223220          WRITE ( message_string, * ) 'No time dependent surface variables in ',&
     
    226223          CALL message( 'ls_forcing', 'PA0371', 0, 0, 0, 6, 0 )
    227224          lsf_surf = .FALSE.
     225       ELSE
     226          shf_surf  = shf_surf  * heatflux_input_conversion(nzb)
     227          qsws_surf = qsws_surf * waterflux_input_conversion(nzb)
    228228       ENDIF
    229229
Note: See TracChangeset for help on using the changeset viewer.