Ignore:
Timestamp:
May 24, 2019 11:32:38 AM (2 years ago)
Author:
suehring
Message:

chemistry: perform basic checks only when anthropenic emissions are switched on; virtual flights: allow arbitrary start/end positions also in return mode; bugfix in 2d data output

File:
1 edited

Legend:

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

    r3987 r4004  
    2525! -----------------
    2626! $Id$
     27! local_pf need INTENT(INOUT) attribute rather than INTENT(OUT). This is
     28! because INTENT(OUT) sets the array to not-defined. Especially for outputs that
     29! are not defined everywhere, e.g. land-surface outputs, this will be
     30! problematic as NaN will be output.   
     31!
     32! 3987 2019-05-22 09:52:13Z kanani
    2733! Introduce switchable DEBUG file output via debug_message routine
    2834!
     
    11841190    REAL(wp),          INTENT(IN)    ::  fill_value !< to be removed
    11851191
    1186     REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(OUT) ::  local_pf !< ToDo: can also be kind=sp
     1192    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) ::  local_pf !< ToDo: can also be kind=sp
    11871193
    11881194
     
    12671273    INTEGER(iwp),      INTENT(IN)    ::  nzt_do     !< vertical output index (top) (usually nz_do3d)
    12681274
    1269     REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(OUT) ::  local_pf
     1275    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) ::  local_pf
    12701276
    12711277
Note: See TracChangeset for help on using the changeset viewer.