Changeset 4004 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- May 24, 2019 11:32:38 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3987 r4004 25 25 ! ----------------- 26 26 ! $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 27 33 ! Introduce switchable DEBUG file output via debug_message routine 28 34 ! … … 1184 1190 REAL(wp), INTENT(IN) :: fill_value !< to be removed 1185 1191 1186 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT( OUT) :: local_pf !< ToDo: can also be kind=sp1192 REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf !< ToDo: can also be kind=sp 1187 1193 1188 1194 … … 1267 1273 INTEGER(iwp), INTENT(IN) :: nzt_do !< vertical output index (top) (usually nz_do3d) 1268 1274 1269 REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT( OUT) :: local_pf1275 REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) :: local_pf 1270 1276 1271 1277
Note: See TracChangeset
for help on using the changeset viewer.