Changeset 4039 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r4028 r4039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Introduce diagnostic output 28 ! 29 ! 4028 2019-06-13 12:21:37Z schwenkel 27 30 ! Further modularization of particle code components 28 31 ! … … 210 213 chem_rrd_local, & 211 214 chem_wrd_local 215 216 USE diagnostic_output_quantities_mod, & 217 ONLY: doq_3d_data_averaging, & 218 doq_check_data_output, & 219 doq_define_netcdf_grid, & 220 doq_output_2d, & 221 doq_output_3d, & 222 doq_wrd_local 223 ! doq_rrd_local, & 212 224 213 225 USE flight_mod, & … … 751 763 CALL chem_check_data_output( variable, unit, i, ilen, k ) 752 764 ENDIF 765 766 IF ( unit == 'illegal' ) THEN 767 CALL doq_check_data_output( variable, unit ) 768 ENDIF 753 769 754 770 IF ( unit == 'illegal' .AND. gust_module_enabled ) THEN … … 1179 1195 IF ( bulk_cloud_model ) CALL bcm_3d_data_averaging( mode, variable ) 1180 1196 IF ( air_chemistry ) CALL chem_3d_data_averaging( mode, variable ) 1197 CALL doq_3d_data_averaging( mode, variable ) 1181 1198 IF ( gust_module_enabled ) CALL gust_3d_data_averaging( mode, variable ) 1182 1199 IF ( land_surface ) CALL lsm_3d_data_averaging( mode, variable ) … … 1234 1251 ) 1235 1252 ENDIF 1253 1254 IF ( .NOT. found ) THEN 1255 CALL doq_output_2d( & 1256 av, variable, found, grid, mode, local_pf, two_d, & 1257 nzb_do, nzt_do, fill_value ) 1258 ENDIF 1236 1259 1237 1260 IF ( .NOT. found .AND. gust_module_enabled ) THEN … … 1314 1337 resorted = .TRUE. 1315 1338 ENDIF 1316 1339 1340 IF ( .NOT. found ) THEN 1341 CALL doq_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do ) 1342 resorted = .TRUE. 1343 ENDIF 1344 1317 1345 IF ( .NOT. found .AND. gust_module_enabled ) THEN 1318 1346 CALL gust_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do ) … … 1466 1494 LOGICAL, INTENT(INOUT) :: found !< flag if variable was found 1467 1495 1468 REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp), INTENT(OUT) :: tmp_2d !< 1469 REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp), INTENT(OUT) :: tmp_3d !< 1496 REAL(wp), & 1497 DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp), & 1498 INTENT(OUT) :: tmp_2d !< 1499 REAL(wp), & 1500 DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp), & 1501 INTENT(OUT) :: tmp_3d !< 1470 1502 1471 1503 1472 1504 IF ( debug_output ) CALL debug_message( 'module-specific read local restart data', 'start' ) 1473 1505 1474 IF ( .NOT. found ) CALL bio_rrd_local(&1506 IF ( .NOT. found ) CALL bio_rrd_local( & 1475 1507 found & 1476 1508 ) 1477 1509 1478 IF ( .NOT. found ) CALL bcm_rrd_local(&1510 IF ( .NOT. found ) CALL bcm_rrd_local( & 1479 1511 map_index, & 1480 1512 nxlf, nxlc, nxl_on_file, & … … 1485 1517 ) ! ToDo: change interface to pass variable 1486 1518 1487 IF ( .NOT. found ) CALL chem_rrd_local(&1519 IF ( .NOT. found ) CALL chem_rrd_local( & 1488 1520 map_index, & 1489 1521 nxlf, nxlc, nxl_on_file, & … … 1493 1525 tmp_3d, found & 1494 1526 ) ! ToDo: change interface to pass variable 1495 1496 IF ( .NOT. found ) CALL gust_rrd_local( & 1527 1528 ! IF ( .NOT. found ) CALL doq_rrd_local( & 1529 ! map_index, & 1530 ! nxlf, nxlc, nxl_on_file, & 1531 ! nxrf, nxrc, nxr_on_file, & 1532 ! nynf, nync, nyn_on_file, & 1533 ! nysf, nysc, nys_on_file, & 1534 ! tmp_3d_non_standard, found & 1535 ! ) ! ToDo: change interface to pass variable CALL doq_wrd_local 1536 1537 IF ( .NOT. found ) CALL gust_rrd_local( & 1497 1538 map_index, & 1498 1539 nxlf, nxlc, nxl_on_file, & … … 1503 1544 ) ! ToDo: change interface to pass variable 1504 1545 1505 IF ( .NOT. found ) CALL lpm_rrd_local(&1546 IF ( .NOT. found ) CALL lpm_rrd_local( & 1506 1547 map_index, & 1507 1548 nxlf, nxlc, nxl_on_file, & … … 1512 1553 ) ! ToDo: change interface to pass variable 1513 1554 1514 IF ( .NOT. found ) CALL lsm_rrd_local(&1555 IF ( .NOT. found ) CALL lsm_rrd_local( & 1515 1556 map_index, & 1516 1557 nxlf, nxlc, nxl_on_file, & … … 1521 1562 ) ! ToDo: change interface to pass variable 1522 1563 1523 IF ( .NOT. found ) CALL ocean_rrd_local(&1564 IF ( .NOT. found ) CALL ocean_rrd_local( & 1524 1565 map_index, & 1525 1566 nxlf, nxlc, nxl_on_file, & … … 1530 1571 ) ! ToDo: change interface to pass variable 1531 1572 1532 IF ( .NOT. found ) CALL radiation_rrd_local(&1573 IF ( .NOT. found ) CALL radiation_rrd_local( & 1533 1574 map_index, & 1534 1575 nxlf, nxlc, nxl_on_file, & … … 1539 1580 ) ! ToDo: change interface to pass variable 1540 1581 1541 IF ( .NOT. found ) CALL salsa_rrd_local(&1582 IF ( .NOT. found ) CALL salsa_rrd_local( & 1542 1583 map_index, & 1543 1584 nxlf, nxlc, nxl_on_file, & … … 1548 1589 ) ! ToDo: change interface to pass variable 1549 1590 1550 IF ( .NOT. found ) CALL usm_rrd_local(&1591 IF ( .NOT. found ) CALL usm_rrd_local( & 1551 1592 map_index, & 1552 1593 nxlf, nxlc, nxl_on_file, & … … 1558 1599 ! 1559 1600 !-- Surface data do not need overlap data, so do not pass these information. 1560 IF ( .NOT. found ) CALL surface_data_output_rrd_local( found )1601 IF ( .NOT. found ) CALL surface_data_output_rrd_local( found ) 1561 1602 1562 IF ( .NOT. found ) CALL user_rrd_local(&1603 IF ( .NOT. found ) CALL user_rrd_local( & 1563 1604 map_index, & 1564 1605 nxlf, nxlc, nxl_on_file, & … … 1588 1629 IF ( bulk_cloud_model ) CALL bcm_wrd_local 1589 1630 IF ( air_chemistry ) CALL chem_wrd_local 1631 CALL doq_wrd_local 1590 1632 IF ( gust_module_enabled ) CALL gust_wrd_local 1591 1633 IF ( particle_advection ) CALL lpm_wrd_local
Note: See TracChangeset
for help on using the changeset viewer.