Changeset 3931 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Apr 24, 2019 4:34:28 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r3929 r3931 447 447 USE module_interface, & 448 448 ONLY: module_interface_actions, & 449 module_interface_non_ transport_physics, &449 module_interface_non_advective_processes, & 450 450 module_interface_exchange_horiz, & 451 451 module_interface_prognostic_equations … … 544 544 DO j = nys, nyn 545 545 ! 546 !-- Calculate non transport physics for all other modules547 CALL module_interface_non_ transport_physics( i, j )546 !-- Calculate non advective processes for all other modules 547 CALL module_interface_non_advective_processes( i, j ) 548 548 ENDDO 549 549 ENDDO 550 550 ! 551 !-- Module Inferface for exchange horiz after non_ transport_physics but before552 !-- advection. Therefore, non_ transport_physics must not run for ghost points.551 !-- Module Inferface for exchange horiz after non_advective_processes but before 552 !-- advection. Therefore, non_advective_processes must not run for ghost points. 553 553 CALL module_interface_exchange_horiz() 554 554 !$OMP END PARALLEL … … 1218 1218 1219 1219 ! 1220 !-- Calculate non transport physics for all other modules1221 CALL module_interface_non_ transport_physics1222 ! 1223 !-- Module Inferface for exchange horiz after non_ transport_physics but before1224 !-- advection. Therefore, non_ transport_physics must not run for ghost points.1220 !-- Calculate non advective processes for all other modules 1221 CALL module_interface_non_advective_processes 1222 ! 1223 !-- Module Inferface for exchange horiz after non_advective_processes but before 1224 !-- advection. Therefore, non_advective_processes must not run for ghost points. 1225 1225 CALL module_interface_exchange_horiz() 1226 1226
Note: See TracChangeset
for help on using the changeset viewer.