Ignore:
Timestamp:
Mar 28, 2019 4:55:58 PM (5 years ago)
Author:
knoop
Message:

Added module_interface for prognostic_equations

File:
1 edited

Legend:

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

    r3806 r3837  
    185185               gust_header,                                                    &
    186186               gust_actions,                                                   &
     187               gust_prognostic_equations,                                      &
    187188               gust_swap_timelevel,                                            &
    188189               gust_3d_data_averaging,                                         &
     
    372373       module_interface_header,                                                &
    373374       module_interface_actions,                                               &
     375       module_interface_prognostic_equations,                                  &
    374376       module_interface_swap_timelevel,                                        &
    375377       module_interface_3d_data_averaging,                                     &
     
    432434       MODULE PROCEDURE module_interface_actions_ij
    433435    END INTERFACE module_interface_actions
     436
     437    INTERFACE module_interface_prognostic_equations
     438       MODULE PROCEDURE module_interface_prognostic_equations
     439       MODULE PROCEDURE module_interface_prognostic_equations_ij
     440    END INTERFACE module_interface_prognostic_equations
    434441
    435442    INTERFACE module_interface_swap_timelevel
     
    894901! Description:
    895902! ------------
     903!> Compute module-specific prognostic_equations (cache-optimized)
     904!------------------------------------------------------------------------------!
     905 SUBROUTINE module_interface_prognostic_equations()
     906
     907
     908    IF ( gust_module_enabled )  CALL gust_prognostic_equations()
     909
     910
     911 END SUBROUTINE module_interface_prognostic_equations
     912
     913
     914!------------------------------------------------------------------------------!
     915! Description:
     916! ------------
     917!> Compute module-specific prognostic_equations (vector-optimized)
     918!------------------------------------------------------------------------------!
     919 SUBROUTINE module_interface_prognostic_equations_ij( i, j, i_omp_start, tn )
     920
     921
     922    INTEGER(iwp), INTENT(IN) ::  i            !< grid index in x-direction
     923    INTEGER(iwp), INTENT(IN) ::  j            !< grid index in y-direction
     924    INTEGER(iwp), INTENT(IN) ::  i_omp_start  !< first loop index of i-loop in prognostic_equations
     925    INTEGER(iwp), INTENT(IN) ::  tn           !< task number of openmp task
     926
     927
     928    IF ( gust_module_enabled )  CALL gust_prognostic_equations( i, j, i_omp_start, tn )
     929
     930
     931 END SUBROUTINE module_interface_prognostic_equations_ij
     932
     933
     934!------------------------------------------------------------------------------!
     935! Description:
     936! ------------
    896937!> Swap the timelevel pointers for module-specific arrays
    897938!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.