source: LMDZ6/trunk/libf/phylmd/ecrad-acc/include/ice_effective_radius.intfb.h

Last change on this file was 6016, checked in by yann meurdesoif, 3 months ago

Add new ecrad version from DWD ported onto OpenACC, closed from original ecrad ECMWF starting point for LMDZ ecrad version.

Modification from ecrad-lmdz version has been included.

YM
  • Property svn:eol-style set to native
File size: 810 bytes
Line 
1interface
2SUBROUTINE ICE_EFFECTIVE_RADIUS &
3 & (YDERAD,KIDIA, KFDIA, KLON, KLEV, &
4 & PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_ICE, PQ_SNOW, PGEMU, &
5 & PRE_UM)
6USE PARKIND1 , ONLY : JPIM, JPRB
7USE YOERAD , ONLY : TERAD
8TYPE(TERAD) ,INTENT(IN):: YDERAD
9INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
10INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
11INTEGER(KIND=JPIM),INTENT(IN) :: KLON
12INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
13REAL(KIND=JPRB), INTENT(IN) :: PPRESSURE(KLON,KLEV)
14REAL(KIND=JPRB), INTENT(IN) :: PTEMPERATURE(KLON,KLEV)
15REAL(KIND=JPRB), INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV)
16REAL(KIND=JPRB), INTENT(IN) :: PQ_ICE(KLON,KLEV)
17REAL(KIND=JPRB), INTENT(IN) :: PQ_SNOW(KLON,KLEV)
18REAL(KIND=JPRB), INTENT(IN) :: PGEMU(KLON)
19REAL(KIND=JPRB), INTENT(OUT) :: PRE_UM(KLON,KLEV)
20END SUBROUTINE ICE_EFFECTIVE_RADIUS
21end interface
Note: See TracBrowser for help on using the repository browser.