Ignore:
Timestamp:
May 30, 2017 5:47:52 PM (4 years ago)
Author:
suehring
Message:

Adjustments according new topography and surface-modelling concept implemented

File:
1 edited

Legend:

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

    r2101 r2232  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Adjustments to new surface concept - additional ghost point exchange
     23! of surface variable required
    2324!
    2425! Former revisions:
     
    104105
    105106    USE control_parameters,                                                    &
    106         ONLY:  average_count_3d, doav, doav_n, urban_surface, varnamelength
     107        ONLY:  average_count_3d, doav, doav_n, land_surface, urban_surface,    &
     108               varnamelength
    107109
    108110    USE cpulog,                                                                &
     
    110112
    111113    USE indices,                                                               &
    112         ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     114        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
    113115
    114116    USE kinds
    115117
    116118    USE land_surface_model_mod,                                                &
    117         ONLY:  land_surface, lsm_3d_data_averaging
     119        ONLY:  lsm_3d_data_averaging
    118120
    119121    USE radiation_model_mod,                                                   &
     
    171173                ENDDO
    172174             ENDDO
     175             CALL exchange_horiz_2d( qsws_av, nbgp )
    173176
    174177          CASE ( 'lpt' )
     
    203206                ENDDO
    204207             ENDDO
     208             CALL exchange_horiz_2d( ol_av, nbgp )
    205209
    206210          CASE ( 'p' )
     
    354358                ENDDO
    355359             ENDDO
     360             CALL exchange_horiz_2d( shf_av, nbgp )
    356361
    357362          CASE ( 'ssws*' )
     
    361366                ENDDO
    362367             ENDDO
     368             CALL exchange_horiz_2d( ssws_av, nbgp )
    363369
    364370          CASE ( 't*' )
     
    368374                ENDDO
    369375             ENDDO
     376             CALL exchange_horiz_2d( ts_av, nbgp )
    370377
    371378          CASE ( 'u' )
     
    384391                ENDDO
    385392             ENDDO
     393             CALL exchange_horiz_2d( us_av, nbgp )
    386394
    387395          CASE ( 'v' )
     
    418426                ENDDO
    419427             ENDDO
     428             CALL exchange_horiz_2d( z0_av, nbgp )
    420429
    421430          CASE ( 'z0h*' )
     
    425434                ENDDO
    426435             ENDDO
     436             CALL exchange_horiz_2d( z0h_av, nbgp )
    427437!             
    428438!--       Block of urban surface model outputs   
Note: See TracChangeset for help on using the changeset viewer.