Forked from
Méso-NH / Méso-NH code
4389 commits behind the upstream repository.
ch_aer_wetdepn.f90 4.71 KiB
!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 chimie 2006/10/18 12:20:58
!-----------------------------------------------------------------
!! ##############################
MODULE MODI_CH_AER_WETDEP_n
!! ##############################
!!
INTERFACE
!
SUBROUTINE CH_AER_WETDEP_n(PDTMONITOR,PSVT,PCWETDEP,&
PRHODREF,PSEDA)
IMPLICIT NONE
REAL, INTENT(IN) :: PDTMONITOR
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PSVT, PCWETDEP
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF
REAL, DIMENSION(:,:,:,:), INTENT(INOUT) :: PSEDA
END SUBROUTINE CH_AER_WETDEP_n
!!
END INTERFACE
!!
END MODULE MODI_CH_AER_WETDEP_n
!!
!! #######################################
SUBROUTINE CH_AER_WETDEP_n(PDTMONITOR,PSVT,PCWETDEP,&
PRHODREF, PSEDA)
!! #######################################
!!
!! PURPOSE
!! -------
!!
!! REFERENCE
!! ---------
!! none
!!
!! AUTHOR
!! ------
!! Pierre TULET (LACy)
!!
!! MODIFICATIONS
!! -------------
!! Original
!!
! Entry variables:
!
! PM(IN) -Array of moments
!
!************************************************************
!!
!! IMPLICIT ARGUMENTS
!
USE MODD_CH_AEROSOL
USE MODD_NSV
USE MODD_CH_AERO_n, ONLY : GSEDFIX
USE MODE_AERO_PSD
!
!
IMPLICIT NONE
!
!* 0.1 Declarations of arguments