source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/include/ice_effective_radius.intfb.h @ 4999

Last change on this file since 4999 was 4728, checked in by idelkadi, 11 months ago

Update of ecrad in the LMDZ_ECRad branch of LMDZ:

  • version 1.6.1 of ecrad
  • files are no longer grouped in the same ecrad directory.
  • the structure of ecrad offline is preserved to facilitate updating in LMDZ
  • cfg.bld modified to take into account the new added subdirectories.
  • the interface routines and those added in ecrad are moved to the phylmd directory
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.