Changeset 2688


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.

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r2669 r2688  
    2525! -----------------
    2626! $Id$
     27! Check if humidity is set to TRUE in the _p3d file for coupled runs
     28!
     29! 2669 2017-12-06 16:03:27Z raasch
    2730! mrun-string replaced by palmrun
    2831!
     
    647650
    648651!
     652!-- Check if humidity is set to TRUE in case of the atmospheric run (for coupled runs)
     653    IF ( coupling_mode == 'atmosphere_to_ocean' .AND. humidity == .FALSE.) THEN
     654       message_string = ' Humidity has to be set to .T. in the _p3d file for ' //      &
     655                        'coupled runs between ocean and atmosphere.'
     656       CALL message( 'check_parameters', 'PA0476', 1, 2, 0, 6, 0 )
     657    ENDIF
     658   
     659!
    649660!-- Check dt_coupling, restart_time, dt_restart, end_time, dx, dy, nx and ny
    650661    IF ( coupling_mode /= 'uncoupled'  .AND.                                   &
  • 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.