source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/include/liquid_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: 945 bytes
Line 
1interface
2SUBROUTINE LIQUID_EFFECTIVE_RADIUS &
3 & (YDERAD,KIDIA, KFDIA, KLON, KLEV, &
4 & PPRESSURE, PTEMPERATURE, PCLOUD_FRAC, PQ_LIQ, PQ_RAIN, &
5 & PLAND_FRAC, PCCN_LAND, PCCN_SEA, &
6 & PRE_UM)
7USE PARKIND1 , ONLY : JPIM, JPRB
8USE YOERAD , ONLY : TERAD
9TYPE(TERAD) ,INTENT(IN):: YDERAD
10INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
11INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
12INTEGER(KIND=JPIM),INTENT(IN) :: KLON
13INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
14REAL(KIND=JPRB), INTENT(IN) :: PPRESSURE(KLON,KLEV)
15REAL(KIND=JPRB), INTENT(IN) :: PTEMPERATURE(KLON,KLEV)
16REAL(KIND=JPRB), INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV)
17REAL(KIND=JPRB), INTENT(IN) :: PQ_LIQ(KLON,KLEV)
18REAL(KIND=JPRB), INTENT(IN) :: PQ_RAIN(KLON,KLEV)
19REAL(KIND=JPRB), INTENT(IN) :: PLAND_FRAC(KLON)
20REAL(KIND=JPRB), INTENT(IN) :: PCCN_LAND(KLON)
21REAL(KIND=JPRB), INTENT(IN) :: PCCN_SEA(KLON)
22REAL(KIND=JPRB), INTENT(OUT) :: PRE_UM(KLON,KLEV)
23END SUBROUTINE LIQUID_EFFECTIVE_RADIUS
24end interface
Note: See TracBrowser for help on using the repository browser.