Ignore:
Timestamp:
Apr 12, 2019 8:47:41 AM (5 years ago)
Author:
schwenkel
Message:

bugfix for chemistry_model_mod via introducing module_interface_exchange_horiz

File:
1 edited

Legend:

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

    r3885 r3887  
    152152               bcm_actions,                                                    &
    153153               bcm_non_transport_physics,                                      &
     154               bcm_exchange_horiz,                                             &               
    154155               bcm_prognostic_equations,                                       &
    155156               bcm_swap_timelevel,                                             &
     
    179180              chem_statistics,                                                 &
    180181              chem_rrd_local,                                                  &
    181                chem_wrd_local
     182              chem_wrd_local
    182183
    183184    USE flight_mod,                                                            &
     
    392393       module_interface_actions,                                               &
    393394       module_interface_non_transport_physics,                                 &
     395       module_interface_exchange_horiz,                                        &
    394396       module_interface_prognostic_equations,                                  &
    395397       module_interface_swap_timelevel,                                        &
     
    458460       MODULE PROCEDURE module_interface_non_transport_physics_ij
    459461    END INTERFACE module_interface_non_transport_physics
    460 
     462   
     463    INTERFACE module_interface_exchange_horiz
     464       MODULE PROCEDURE module_interface_exchange_horiz
     465    END INTERFACE module_interface_exchange_horiz
     466   
    461467    INTERFACE module_interface_prognostic_equations
    462468       MODULE PROCEDURE module_interface_prognostic_equations
     
    972978
    973979 END SUBROUTINE module_interface_non_transport_physics_ij
     980 
     981!------------------------------------------------------------------------------!
     982! Description:
     983! ------------
     984!> Exchange horiz for module-specific quantities
     985!------------------------------------------------------------------------------!
     986 SUBROUTINE module_interface_exchange_horiz()
     987
     988
     989    IF ( bulk_cloud_model    )  CALL bcm_exchange_horiz()
     990
     991
     992 END SUBROUTINE module_interface_exchange_horiz
    974993
    975994
Note: See TracChangeset for help on using the changeset viewer.