Changeset 3930 for palm/trunk
- Timestamp:
- Apr 24, 2019 2:57:18 PM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r3929 r3930 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Changed chem_non_transport_physics to chem_non_advective_processes 30 ! 31 ! 32 ! 3929 2019-04-24 12:52:08Z banzhafs 29 33 ! Correct/complete module_interface introduction for chemistry model 30 34 ! Add subroutine chem_exchange_horiz_bounds … … 523 527 END INTERFACE chem_actions 524 528 525 INTERFACE chem_non_ transport_physics526 MODULE PROCEDURE chem_non_ transport_physics527 MODULE PROCEDURE chem_non_ transport_physics_ij528 END INTERFACE chem_non_ transport_physics529 INTERFACE chem_non_advective_processes 530 MODULE PROCEDURE chem_non_advective_processes 531 MODULE PROCEDURE chem_non_advective_processes_ij 532 END INTERFACE chem_non_advective_processes 529 533 530 534 INTERFACE chem_exchange_horiz_bounds … … 631 635 chem_actions, chem_prognostic_equations, chem_rrd_local, & 632 636 chem_statistics, chem_swap_timelevel, chem_wrd_local, chem_depo, & 633 chem_non_ transport_physics, chem_exchange_horiz_bounds637 chem_non_advective_processes, chem_exchange_horiz_bounds 634 638 635 639 CONTAINS … … 2403 2407 !> Call for all grid points 2404 2408 !------------------------------------------------------------------------------! 2405 SUBROUTINE chem_non_ transport_physics()2409 SUBROUTINE chem_non_advective_processes() 2406 2410 2407 2411 … … 2442 2446 2443 2447 2444 END SUBROUTINE chem_non_ transport_physics2448 END SUBROUTINE chem_non_advective_processes 2445 2449 2446 2450 … … 2450 2454 !> Call for grid points i,j 2451 2455 !------------------------------------------------------------------------------! 2452 SUBROUTINE chem_non_ transport_physics_ij( i, j )2456 SUBROUTINE chem_non_advective_processes_ij( i, j ) 2453 2457 2454 2458 … … 2478 2482 2479 2483 2480 END SUBROUTINE chem_non_ transport_physics_ij2484 END SUBROUTINE chem_non_advective_processes_ij 2481 2485 2482 2486 !------------------------------------------------------------------------------! -
palm/trunk/SOURCE/module_interface.f90
r3929 r3930 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! Changed chem_non_transport_physics to chem_non_advective_processes 22 23 ! 23 24 ! … … 176 177 chem_header, & 177 178 chem_actions, & 178 chem_non_ transport_physics,&179 chem_non_advective_processes, & 179 180 chem_prognostic_equations, & 180 181 chem_swap_timelevel, & … … 959 960 960 961 IF ( bulk_cloud_model ) CALL bcm_non_transport_physics() 961 IF ( air_chemistry ) CALL chem_non_ transport_physics()962 IF ( air_chemistry ) CALL chem_non_advective_processes() 962 963 963 964 … … 977 978 978 979 979 IF ( air_chemistry ) CALL chem_non_ transport_physics( i, j )980 IF ( air_chemistry ) CALL chem_non_advective_processes( i, j ) 980 981 IF ( bulk_cloud_model ) CALL bcm_non_transport_physics( i, j ) 981 982
Note: See TracChangeset
for help on using the changeset viewer.