Changeset 3931 for palm


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

renamed module interface from non_transport_physics to non_advective_processes

Location:
palm/trunk/SOURCE
Files:
3 edited

Legend:

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

    r3887 r3931  
    371371           bcm_header, &
    372372           bcm_actions, &
    373            bcm_non_transport_physics, &
     373           bcm_non_advective_processes, &
    374374           bcm_exchange_horiz, &
    375375           bcm_prognostic_equations, &
     
    432432    END INTERFACE bcm_actions
    433433
    434     INTERFACE bcm_non_transport_physics
    435        MODULE PROCEDURE bcm_non_transport_physics
    436        MODULE PROCEDURE bcm_non_transport_physics_ij
    437     END INTERFACE bcm_non_transport_physics
     434    INTERFACE bcm_non_advective_processes
     435       MODULE PROCEDURE bcm_non_advective_processes
     436       MODULE PROCEDURE bcm_non_advective_processes_ij
     437    END INTERFACE bcm_non_advective_processes
    438438
    439439    INTERFACE bcm_exchange_horiz
     
    11901190!> Control of microphysics for all grid points
    11911191!------------------------------------------------------------------------------!
    1192     SUBROUTINE bcm_non_transport_physics
     1192    SUBROUTINE bcm_non_advective_processes
    11931193
    11941194
     
    12511251       CALL cpu_log( log_point(51), 'microphysics', 'stop' )
    12521252
    1253     END SUBROUTINE bcm_non_transport_physics
     1253    END SUBROUTINE bcm_non_advective_processes
    12541254
    12551255
     
    12601260!------------------------------------------------------------------------------!
    12611261
    1262     SUBROUTINE bcm_non_transport_physics_ij( i, j )
     1262    SUBROUTINE bcm_non_advective_processes_ij( i, j )
    12631263
    12641264
     
    13191319       ENDIF
    13201320
    1321     END SUBROUTINE bcm_non_transport_physics_ij
     1321    END SUBROUTINE bcm_non_advective_processes_ij
    13221322   
    13231323   
  • 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!------------------------------------------------------------------------------!
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3929 r3931  
    447447    USE module_interface,                                                      &
    448448        ONLY:  module_interface_actions, &
    449                module_interface_non_transport_physics, &
     449               module_interface_non_advective_processes, &
    450450               module_interface_exchange_horiz, &
    451451               module_interface_prognostic_equations
     
    544544       DO  j = nys, nyn
    545545!
    546 !--       Calculate non transport physics for all other modules
    547           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 )
    548548       ENDDO
    549549    ENDDO
    550550!
    551 !-- Module Inferface for exchange horiz after non_transport_physics but before
    552 !-- 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.
    553553    CALL module_interface_exchange_horiz()
    554554    !$OMP END PARALLEL
     
    12181218
    12191219!
    1220 !-- Calculate non transport physics for all other modules
    1221     CALL module_interface_non_transport_physics
    1222 !
    1223 !-- Module Inferface for exchange horiz after non_transport_physics but before
    1224 !-- 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.     
    12251225    CALL module_interface_exchange_horiz()
    12261226   
Note: See TracChangeset for help on using the changeset viewer.