Changeset 4361 for palm/trunk


Ignore:
Timestamp:
Jan 7, 2020 12:22:38 PM (5 years ago)
Author:
suehring
Message:

Plant-canopy: Avoid an unnecessary exchange of ghost points; remove unused arrays in pcm_rrd_local

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4360 r4361  
    2525! -----------------
    2626! $Id$
     27! Remove unused arrays in pmc_rrd_local
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Add pcm_rrd_local and pcm_wrd_local
    2831!
     
    17891792                               nynf, nync, nyn_on_file,                        &
    17901793                               nysf, nysc, nys_on_file,                        &
    1791                                tmp_2d, tmp_3d, found                           &
     1794                               found                                           &
    17921795                                           )
    17931796
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r4360 r4361  
    2727! -----------------
    2828! $Id$
     29! - Remove unused arrays in pmc_rrd_local
     30! - Remove one exchange of ghost points
     31!
     32! 4360 2020-01-07 11:25:50Z suehring
    2933! - Bugfix, read restart data for time-averaged pcm output quantities
    3034! - Output of plant-canopy quantities will fill values
     
    11521156       pch_index_ji = 0
    11531157       
    1154        DO  i = nxl, nxr
    1155           DO  j = nys, nyn
     1158       DO  i = nxlg, nxrg
     1159          DO  j = nysg, nyng
    11561160             DO  k = 0, pch_index
    11571161                IF ( lad_s(k,j,i) /= 0 )  pch_index_ji(j,i) = k
     
    11681172          ENDDO
    11691173       ENDDO
    1170 
    1171        CALL exchange_horiz_2d_int( pch_index_ji, nys, nyn, nxl, nxr, nbgp )
    11721174!
    11731175!--    Calculate global pch_index value (index of top of plant canopy from ground)
    11741176       pch_index = MAXVAL( pch_index_ji )
    1175        
    1176        
    11771177!
    11781178!--    Exchange pch_index from all processors
     
    14751475    SUBROUTINE pcm_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,          &
    14761476                              nxr_on_file, nynf, nync, nyn_on_file, nysf,      &
    1477                               nysc, nys_on_file, tmp_2d, tmp_3d, found )
     1477                              nysc, nys_on_file, found )
    14781478
    14791479       INTEGER(iwp) ::  k               !<
     
    14921492
    14931493       LOGICAL, INTENT(OUT)  :: found
    1494 
    1495        REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,                  &
    1496                            nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_2d   !< temporary 2D array
    1497 
    1498        REAL(wp), DIMENSION(nzb:nzt+1,                                          &
    1499                            nys_on_file-nbgp:nyn_on_file+nbgp,                  &
    1500                            nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !< temporary 3D array with entire vertical dimension
    15011494
    15021495       REAL(wp), DIMENSION(0:pch_index,                                        &
Note: See TracChangeset for help on using the changeset viewer.