Changeset 4664 for palm/trunk/SOURCE


Ignore:
Timestamp:
Sep 2, 2020 3:36:10 PM (4 years ago)
Author:
gronemeier
Message:

Add additional debug messages around MPI-AlltoAllv? calls (radiation_model_mod)

File:
1 edited

Legend:

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

    r4662 r4664  
    2828! -----------------
    2929! $Id$
     30! Add additional debug messages around MPI-AlltoAllv calls
     31!
     32! 4662 2020-09-02 13:40:38Z pavelkrc
    3033! Bugfix of LAD in CSF generation in legacy raytracing
    3134!
     
    5861! - Bugfix: rtm_svf_, rtm_dif_ outputs
    5962! - Bugfix: correct average transparency for MRT factors
    60 ! 
     63!
    6164! 4587 2020-07-06 08:53:45Z pavelkrc
    6265! RTM version 3.1 (see also previous commits):
     
    6467! - plant canopy box count minimized
    6568! - multiple enhancements and bugfixes
    66 ! 
     69!
    6770! 4584 2020-06-29 13:16:14Z pavelkrc
    6871! Consider only boxes with LAD>0 as plant canopy (credit: S. Schubert)
    69 ! 
     72!
    7073! 4576 2020-06-24 17:58:55Z pavelkrc
    7174! Allow the use of rotation_angle in RTM
    72 ! 
     75!
    7376! 4574 2020-06-24 16:33:32Z pavelkrc
    7477! - Restructure code in radiation_check_data_output
    7578! - Move calculation of MPI global array offsets to a subroutine
    76 ! 
     79!
    7780! 4571 2020-06-24 08:59:06Z sebschub
    7881! Bugfix in vertical lad_s coordinate
    79 ! 
     82!
    8083! 4558 2020-06-10 16:27:30Z moh.hefny
    8184! Bugfix: - reset RTM output average values after each averaging timestep to zero
    8285!         - correct calculation of rtm_rad_net_av
    83 ! 
     86!
    8487! 4555 2020-06-05 21:52:00Z moh.hefny
    8588! Bugfix in averaging PC and MRT related quantities
    86 ! 
     89!
    8790! 4552 2020-06-02 20:33:29Z moh.hefny
    8891! Bugfix in IF statement in the emissivity coupling parameter for radiation-RTM
    89 ! 
     92!
    9093! 4535 2020-05-15 12:07:23Z raasch
    9194! bugfix for restart data format query
    92 ! 
     95!
    9396! 4531 2020-05-13 09:52:22Z moh.hefny
    9497! Bugfix in gather flux pabs_pc_lwdif in non_parallel case
     
    101104!      is calculated within its original line and not at the end.
    102105! - minor formatting and comments changes
    103 ! 
     106!
    104107! 4517 2020-05-03 14:29:30Z raasch
    105108! added restart with MPI-IO for reading local arrays
    106 ! 
     109!
    107110! 4495 2020-04-13 20:11:20Z raasch
    108111! restart data handling with MPI-IO added
    109 ! 
     112!
    110113! 4493 2020-04-10 09:49:43Z pavelkrc
    111114! Avoid unstable direct normal radiation near horizon
    112 ! 
     115!
    113116! 4481 2020-03-31 18:55:54Z maronga
    114117! use statement for exchange horiz added
    115 ! 
     118!
    116119! 4452 2020-03-10 20:15:32Z suehring
    117120! Bugfix in calc_albedo
     
    59475950
    59485951!--  First pass of radiation interaction:
    5949 !--   1) direct and diffuse irradiance 
     5952!--   1) direct and diffuse irradiance
    59505953!--   2) thermal emissions
    59515954
     
    65266529!--     emiss1
    65276530        pabs_surf_lwdifl = pabs_surf_lwdifl +                               &
    6528                            emiss_surf(i) * facearea(d) * surfinlwdif(i) 
     6531                           emiss_surf(i) * facearea(d) * surfinlwdif(i)
    65296532     ENDDO
    65306533
     
    66106613
    66116614!-    (3) temperature
    6612 !-     effective horizontal area to account for the effect of vertical 
     6615!-     effective horizontal area to account for the effect of vertical
    66136616!-     surfaces, Eq. * in Krc et al. 2020
    66146617      area_norm = pinlw / rad_lw_in_diff(nyn,nxl)
     
    83478350
    83488351!--         exchange csf fields between processors
    8349             IF ( debug_output )  CALL debug_message( 'Exchange csf fields between processors', 'info' )
     8352            IF ( debug_output )  CALL debug_message( 'Exchange CSF fields between processors', 'start' )
    83508353            udim = max(npcsfl,1)
    83518354            ALLOCATE( pcsflt_l(ndcsf*udim) )
     
    83608363                FLUSH(9)
    83618364            ENDIF
     8365            IF ( debug_output )  CALL debug_message( 'Exchange CSF fields: finished first part', 'info' )
    83628366
    83638367            CALL MPI_AlltoAllv(kcsflt_l, kdcsf*icsflt, kdcsf*dcsflt, MPI_INTEGER, &
     
    83688372                FLUSH(9)
    83698373            ENDIF
     8374            IF ( debug_output )  CALL debug_message( 'Exchange CSF fields between processors', 'end' )
    83708375
    83718376#else
     
    1003510040    INTEGER(iwp) ::  k !<
    1003610041    INTEGER(iwp) ::  l, m !< index of current surface element
    10037    
     10042
    1003810043    INTEGER(iwp)                                       :: ids, idsint, isurf
    1003910044    CHARACTER(LEN=varnamelength)                       :: var
Note: See TracChangeset for help on using the changeset viewer.