Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Mar 11, 2020 2:20:43 PM (4 years ago)
Author:
raasch
Message:

ghost point exchange modularized, bugfix for wrong 2d-exchange

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/average_3d_data.f90

    r4360 r4457  
    2525! -----------------
    2626! $Id$
     27! use statement for exchange horiz added,
     28! bugfix for call of exchange horiz 2d
     29!
     30! 4360 2020-01-07 11:25:50Z suehring
    2731! Move 2-m potential temperature output to diagnostic_output_quantities
    2832!
    … …  
    6771        ONLY:  cpu_log, log_point
    6872
     73    USE exchange_horiz_mod,                                                    &
     74        ONLY:  exchange_horiz_2d
     75
    6976    USE indices,                                                               &
    70         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
     77        ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
    7178
    7279    USE kinds
    … …  
    123130                   ENDDO
    124131                ENDDO
    125                 CALL exchange_horiz_2d( ghf_av, nbgp )
     132                CALL exchange_horiz_2d( ghf_av )
    126133             ENDIF
    127134
    … …  
    133140                   ENDDO
    134141                ENDDO
    135                 CALL exchange_horiz_2d( qsws_av, nbgp )
     142                CALL exchange_horiz_2d( qsws_av )
    136143             ENDIF
    137144
    … …  
    163170                   ENDDO
    164171                ENDDO
    165                 CALL exchange_horiz_2d( ol_av, nbgp )
     172                CALL exchange_horiz_2d( ol_av )
    166173             ENDIF
    167174
    … …  
    284291                   ENDDO
    285292                ENDDO
    286                 CALL exchange_horiz_2d( r_a_av, nbgp )
     293                CALL exchange_horiz_2d( r_a_av )
    287294             ENDIF
    288295
    … …  
    305312                   ENDDO
    306313                ENDDO
    307                 CALL exchange_horiz_2d( shf_av, nbgp )
     314                CALL exchange_horiz_2d( shf_av )
    308315             ENDIF
    309316
    … …  
    315322                   ENDDO
    316323                ENDDO
    317                 CALL exchange_horiz_2d( ssws_av, nbgp )
     324                CALL exchange_horiz_2d( ssws_av )
    318325             ENDIF
    319326
    … …  
    325332                   ENDDO
    326333                ENDDO
    327                 CALL exchange_horiz_2d( ts_av, nbgp )
     334                CALL exchange_horiz_2d( ts_av )
    328335             ENDIF
    329336
    … …  
    335342                   ENDDO
    336343                ENDDO
    337                 CALL exchange_horiz_2d( tsurf_av, nbgp )
     344                CALL exchange_horiz_2d( tsurf_av )
    338345             ENDIF
    339346
    … …  
    356363                   ENDDO
    357364                ENDDO
    358                 CALL exchange_horiz_2d( us_av, nbgp )
     365                CALL exchange_horiz_2d( us_av )
    359366             ENDIF
    360367
    … …  
    399406                   ENDDO
    400407                ENDDO
    401                 CALL exchange_horiz_2d( z0_av, nbgp )
     408                CALL exchange_horiz_2d( z0_av )
    402409             ENDIF
    403410
    … …  
    409416                   ENDDO
    410417                ENDDO
    411                 CALL exchange_horiz_2d( z0h_av, nbgp )
     418                CALL exchange_horiz_2d( z0h_av )
    412419             ENDIF
    413420
    … …  
    419426                   ENDDO
    420427                ENDDO
    421                 CALL exchange_horiz_2d( z0q_av, nbgp )
     428                CALL exchange_horiz_2d( z0q_av )
    422429             ENDIF
    423430
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |