Skip to content
Snippets Groups Projects
Commit 2ff066b9 authored by RIETTE Sébastien's avatar RIETTE Sébastien
Browse files

Merge branch 'SR_clean_budget' into main

parents 5aa831ac 162e38c2
No related branches found
No related tags found
No related merge requests found
Showing
with 0 additions and 4816 deletions
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
INTERFACE
SUBROUTINE AROINI_MNHC(OUSECHEM, OORILAM, ODUST, ODEPOS, &
OINITCHEM, OINITDUST, OINITORILAM,&
KDAY,KMONTH, KYEAR, KLUOUT, KPROC)
!!
!!*** *AROINI_MNHC*
!!
!! PURPOSE
!! -------
! initialize chemical variables
! initialize chemical core system
!!
!!
!! AUTHOR
!! ------
!! P. Tulet *CNRM / GMEI* and contributors of MesoNH-C (K. Shure, C. Mari, V. Crassier)
!!
!! MODIFICATIONS
!! -------------
!! Original 02/04/05
!!
!! EXTERNAL
!! --------
!!
!! IMPLICIT ARGUMENTS
!! ------------------
USE PARKIND1 ,ONLY : JPIM
!!
!!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
IMPLICIT NONE
!
!* 0.1 declarations of arguments
!
LOGICAL, INTENT(IN) :: OUSECHEM
LOGICAL, INTENT(IN) :: ODUST
LOGICAL, INTENT(IN) :: OORILAM
LOGICAL, INTENT(IN) :: ODEPOS
LOGICAL, INTENT(IN) :: OINITCHEM
LOGICAL, INTENT(IN) :: OINITDUST
LOGICAL, INTENT(IN) :: OINITORILAM
INTEGER(KIND=JPIM), INTENT(IN) :: KLUOUT ! output listing channel
INTEGER(KIND=JPIM), INTENT(IN) :: KYEAR ! year of initialization
INTEGER(KIND=JPIM), INTENT(IN) :: KMONTH ! month of initialization
INTEGER(KIND=JPIM), INTENT(IN) :: KDAY ! day of initialization
INTEGER(KIND=JPIM), INTENT(IN) :: KPROC ! proc number
!
END SUBROUTINE AROINI_MNHC
END INTERFACE
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment