Ignore:
Timestamp:
Dec 12, 2017 5:27:04 PM (4 years ago)
Author:
Giersch
Message:

Error message PA0476 added. Bugfix in case of coupled runs.

File:
1 edited

Legend:

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

    r2638 r2688  
    2626! -----------------
    2727! $Id$
     28! Allocation and initialization of the latent heat flux (qsws) at the top of
     29! the ocean domain in case of coupled runs. In addtion, a double if-query has
     30! been removed. 
     31!
     32! 2638 2017-11-23 12:44:23Z raasch
    2833! bugfix for constant top momentumflux
    2934!
     
    822827!
    823828!--    Latent heat flux
    824        IF ( humidity )  THEN
     829       IF ( humidity .OR. coupling_mode == 'ocean_to_atmosphere')  THEN
    825830          ALLOCATE ( surfaces%qsws(1:surfaces%ns) )     
    826831       ENDIF
     
    15181523             IF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
    15191524                surf%shf(num_h) = 0.0_wp
     1525                surf%qsws(num_h) = 0.0_wp
    15201526             ENDIF
    15211527!
     
    15401546             IF ( ocean .AND. constant_top_salinityflux)                       &
    15411547                surf%sasws(num_h) = top_salinityflux
    1542 !
    1543 !--          Initialization in case of a coupled model run
    1544              IF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
    1545                 surf%shf(num_h) = 0.0_wp
    1546              ENDIF
    15471548!
    15481549!--          Top momentum fluxes
Note: See TracChangeset for help on using the changeset viewer.