|
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:
444 bytes
|
| Line | |
|---|
| 1 | interface |
|---|
| 2 | SUBROUTINE COS_SZA(KSTART,KEND,KCOL,PGEMU,PGELAM,LDRADIATIONTIMESTEP,PMU0) |
|---|
| 3 | USE PARKIND1 , ONLY : JPIM, JPRB |
|---|
| 4 | INTEGER(KIND=JPIM),INTENT(IN) :: KSTART |
|---|
| 5 | INTEGER(KIND=JPIM),INTENT(IN) :: KEND |
|---|
| 6 | INTEGER(KIND=JPIM),INTENT(IN) :: KCOL |
|---|
| 7 | REAL(KIND=JPRB), INTENT(IN) :: PGEMU(KCOL) |
|---|
| 8 | REAL(KIND=JPRB), INTENT(IN) :: PGELAM(KCOL) |
|---|
| 9 | LOGICAL, INTENT(IN) :: LDRADIATIONTIMESTEP |
|---|
| 10 | REAL(KIND=JPRB), INTENT(OUT) :: PMU0(KCOL) |
|---|
| 11 | END SUBROUTINE COS_SZA |
|---|
| 12 | end interface |
|---|
Note: See
TracBrowser
for help on using the repository browser.
