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

Added module_interface for prognostic_equations

File:
1 edited

Legend:

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

    r3767 r3837  
    8585       gust_header, &
    8686       gust_actions, &
     87       gust_prognostic_equations, &
    8788       gust_swap_timelevel, &
    8889       gust_3d_data_averaging, &
     
    137138    END INTERFACE gust_actions
    138139
     140    INTERFACE gust_prognostic_equations
     141       MODULE PROCEDURE gust_prognostic_equations
     142       MODULE PROCEDURE gust_prognostic_equations_ij
     143    END INTERFACE gust_prognostic_equations
     144
    139145    INTERFACE gust_swap_timelevel
    140146       MODULE PROCEDURE gust_swap_timelevel
     
    380386
    381387    END SUBROUTINE gust_actions_ij
     388
     389
     390!------------------------------------------------------------------------------!
     391! Description:
     392! ------------
     393!> Call for all grid points
     394!------------------------------------------------------------------------------!
     395    SUBROUTINE gust_prognostic_equations()
     396
     397!
     398!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     399       IF ( dummy_logical )  idum = 1
     400
     401    END SUBROUTINE gust_prognostic_equations
     402
     403
     404!------------------------------------------------------------------------------!
     405! Description:
     406! ------------
     407!> Call for grid point i,j
     408!------------------------------------------------------------------------------!
     409    SUBROUTINE gust_prognostic_equations_ij( i, j, i_omp_start, tn )
     410
     411
     412       INTEGER(iwp), INTENT(IN) ::  i            !< grid index in x-direction
     413       INTEGER(iwp), INTENT(IN) ::  j            !< grid index in y-direction
     414       INTEGER(iwp), INTENT(IN) ::  i_omp_start  !< first loop index of i-loop in prognostic_equations
     415       INTEGER(iwp), INTENT(IN) ::  tn           !< task number of openmp task
     416
     417!
     418!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     419       IF ( dummy_logical )  idum = i + j + i_omp_start + tn
     420
     421    END SUBROUTINE gust_prognostic_equations_ij
    382422
    383423
Note: See TracChangeset for help on using the changeset viewer.