Ignore:
Timestamp:
Apr 24, 2019 4:34:28 PM (5 years ago)
Author:
schwenkel
Message:

renamed module interface from non_transport_physics to non_advective_processes

File:
1 edited

Legend:

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

    r3930 r3931  
    2020! Current revisions:
    2121! -----------------
    22 ! Changed chem_non_transport_physics to chem_non_advective_processes
    2322!
    2423!
     
    2625! -----------------
    2726! $Id$
     27! Changed non_transport_physics to non_advective_processes
     28!
     29! 3930 2019-04-24 14:57:18Z forkel
    2830! Correct/complete module_interface introduction for chemistry model
    2931!
     
    155157               bcm_header,                                                     &
    156158               bcm_actions,                                                    &
    157                bcm_non_transport_physics,                                      &
     159               bcm_non_advective_processes,                                    &
    158160               bcm_exchange_horiz,                                             &               
    159161               bcm_prognostic_equations,                                       &
     
    397399       module_interface_header,                                                &
    398400       module_interface_actions,                                               &
    399        module_interface_non_transport_physics,                                 &
     401       module_interface_non_advective_processes,                               &
    400402       module_interface_exchange_horiz,                                        &
    401403       module_interface_prognostic_equations,                                  &
     
    461463    END INTERFACE module_interface_actions
    462464
    463     INTERFACE module_interface_non_transport_physics
    464        MODULE PROCEDURE module_interface_non_transport_physics
    465        MODULE PROCEDURE module_interface_non_transport_physics_ij
    466     END INTERFACE module_interface_non_transport_physics
     465    INTERFACE module_interface_non_advective_processes
     466       MODULE PROCEDURE module_interface_non_advective_processes
     467       MODULE PROCEDURE module_interface_non_advective_processes_ij
     468    END INTERFACE module_interface_non_advective_processes
    467469   
    468470    INTERFACE module_interface_exchange_horiz
     
    954956! Description:
    955957! ------------
    956 !> Compute module-specific prognostic_equations (vector-optimized)
    957 !------------------------------------------------------------------------------!
    958  SUBROUTINE module_interface_non_transport_physics()
    959 
    960 
    961     IF ( bulk_cloud_model    )  CALL bcm_non_transport_physics()
     958!> Compute module-specificc non_advective_processes (vector-optimized)
     959!------------------------------------------------------------------------------!
     960 SUBROUTINE module_interface_non_advective_processes()
     961
     962
     963    IF ( bulk_cloud_model    )  CALL bcm_non_advective_processes()
    962964    IF ( air_chemistry       )  CALL chem_non_advective_processes()
    963965
    964966
    965  END SUBROUTINE module_interface_non_transport_physics
    966 
    967 
    968 !------------------------------------------------------------------------------!
    969 ! Description:
    970 ! ------------
    971 !> Compute module-specific prognostic_equations (cache-optimized)
    972 !------------------------------------------------------------------------------!
    973  SUBROUTINE module_interface_non_transport_physics_ij( i, j )
     967 END SUBROUTINE module_interface_non_advective_processes
     968
     969
     970!------------------------------------------------------------------------------!
     971! Description:
     972! ------------
     973!> Compute module-specific non_advective_processes (cache-optimized)
     974!------------------------------------------------------------------------------!
     975 SUBROUTINE module_interface_non_advective_processes_ij( i, j )
    974976
    975977
     
    978980
    979981
     982    IF ( bulk_cloud_model    )  CALL bcm_non_advective_processes( i, j )   
    980983    IF ( air_chemistry       )  CALL chem_non_advective_processes( i, j )
    981     IF ( bulk_cloud_model    )  CALL bcm_non_transport_physics( i, j )
    982 
    983 
    984  END SUBROUTINE module_interface_non_transport_physics_ij
     984
     985
     986 END SUBROUTINE module_interface_non_advective_processes_ij
    985987 
    986988!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.