Changeset 3234 for palm/trunk/SOURCE


Ignore:
Timestamp:
Sep 7, 2018 1:46:58 PM (4 years ago)
Author:
schwenkel
Message:

The increase of dots_num in case of radiation or land surface model must be done before user_init is called

File:
1 edited

Legend:

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

    r3183 r3234  
    2525! -----------------
    2626! $Id$
     27! The increase of dots_num in case of radiation or land surface model must
     28! be done before user_init is called
     29!
     30! 3183 2018-07-27 14:25:55Z suehring
    2731! Revise Inifor initialization
    2832!
     
    22362240    rmask(:,nxlg:nxl-1,:) = 0.0_wp;  rmask(:,nxr+1:nxrg,:) = 0.0_wp
    22372241    rmask(nysg:nys-1,:,:) = 0.0_wp;  rmask(nyn+1:nyng,:,:) = 0.0_wp
     2242
     2243!
     2244!-- Temporary solution to add LSM and radiation time series to the default
     2245!-- output
     2246    IF ( land_surface  .OR.  radiation )  THEN
     2247       IF ( TRIM( radiation_scheme ) == 'rrtmg' )  THEN
     2248          dots_num = dots_num + 15
     2249       ELSE
     2250          dots_num = dots_num + 11
     2251       ENDIF
     2252    ENDIF
    22382253!
    22392254!-- User-defined initializing actions
     
    25292544       ENDIF
    25302545    ENDIF
    2531 
    2532 !
    2533 !-- Temporary solution to add LSM and radiation time series to the default
    2534 !-- output
    2535     IF ( land_surface  .OR.  radiation )  THEN
    2536        IF ( TRIM( radiation_scheme ) == 'rrtmg' )  THEN
    2537           dots_num = dots_num + 15
    2538        ELSE
    2539           dots_num = dots_num + 11
    2540        ENDIF
    2541     ENDIF
    2542    
    2543 
    2544 
     2546 
    25452547!
    25462548!-- If required, initialize quantities needed for the wind turbine model
Note: See TracChangeset for help on using the changeset viewer.