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:
633 bytes
|
Line | |
---|
1 | interface |
---|
2 | SUBROUTINE CLOUD_OVERLAP_DECORR_LEN & |
---|
3 | & (KIDIA, KFDIA, KLON, PGEMU, KDECOLAT, & |
---|
4 | & PDECORR_LEN_EDGES_KM, PDECORR_LEN_WATER_KM, PDECORR_LEN_RATIO) |
---|
5 | USE PARKIND1 , ONLY : JPIM, JPRB |
---|
6 | INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA |
---|
7 | INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA |
---|
8 | INTEGER(KIND=JPIM),INTENT(IN) :: KLON |
---|
9 | INTEGER(KIND=JPIM),INTENT(IN) :: KDECOLAT |
---|
10 | REAL(KIND=JPRB), INTENT(IN) :: PGEMU(KLON) |
---|
11 | REAL(KIND=JPRB), INTENT(OUT) :: PDECORR_LEN_EDGES_KM(KLON) |
---|
12 | REAL(KIND=JPRB), INTENT(OUT), OPTIONAL :: PDECORR_LEN_WATER_KM(KLON) |
---|
13 | REAL(KIND=JPRB), INTENT(OUT), OPTIONAL :: PDECORR_LEN_RATIO |
---|
14 | END SUBROUTINE CLOUD_OVERLAP_DECORR_LEN |
---|
15 | end interface |
---|
Note: See
TracBrowser
for help on using the repository browser.