|
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:
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.
