*** SRTM_SPCVRT - SPECTRAL LOOP TO COMPUTE THE SHORTWAVE RADIATION FLUXES.
INTERFACE. ----------
0.1 ARGUMENTS ---------
if (JG.EQ.IGT) THEN
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=JPIM) | :: | KLEV | ||||
| integer(kind=JPIM) | :: | KMOL | ||||
| integer(kind=JPIM), | intent(in) | :: | KSW | |||
| real(kind=JPRB) | :: | PONEMINUS | ||||
| real(kind=JPRB) | :: | PAVEL(JPLAY) | ||||
| real(kind=JPRB) | :: | PTAVEL(JPLAY) | ||||
| real(kind=JPRB) | :: | PZ(0:JPLAY) | ||||
| real(kind=JPRB) | :: | PTZ(0:JPLAY) | ||||
| real(kind=JPRB) | :: | PTBOUND | ||||
| real(kind=JPRB), | intent(in) | :: | PALBD(KSW) | |||
| real(kind=JPRB), | intent(in) | :: | PALBP(KSW) | |||
| real(kind=JPRB), | intent(in) | :: | PFRCL(JPLAY) | |||
| real(kind=JPRB), | intent(in) | :: | PTAUC(JPLAY,KSW) | |||
| real(kind=JPRB), | intent(in) | :: | PASYC(JPLAY,KSW) | |||
| real(kind=JPRB), | intent(in) | :: | POMGC(JPLAY,KSW) | |||
| real(kind=JPRB), | intent(in) | :: | PTAUA(JPLAY,KSW) | |||
| real(kind=JPRB), | intent(in) | :: | PASYA(JPLAY,KSW) | |||
| real(kind=JPRB), | intent(in) | :: | POMGA(JPLAY,KSW) | |||
| real(kind=JPRB) | :: | PRMU0 | ||||
| real(kind=JPRB) | :: | PCOLDRY(JPLAY) | ||||
| real(kind=JPRB) | :: | PWKL(35,JPLAY) | ||||
| integer(kind=JPIM) | :: | KLAYTROP | ||||
| integer(kind=JPIM) | :: | KLAYSWTCH | ||||
| integer(kind=JPIM) | :: | KLAYLOW | ||||
| real(kind=JPRB) | :: | PCO2MULT(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLCH4(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLCO2(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLH2O(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLMOL(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLN2O(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLO2(JPLAY) | ||||
| real(kind=JPRB) | :: | PCOLO3(JPLAY) | ||||
| real(kind=JPRB) | :: | PFORFAC(JPLAY) | ||||
| real(kind=JPRB) | :: | PFORFRAC(JPLAY) | ||||
| integer(kind=JPIM) | :: | KINDFOR(JPLAY) | ||||
| real(kind=JPRB) | :: | PSELFFAC(JPLAY) | ||||
| real(kind=JPRB) | :: | PSELFFRAC(JPLAY) | ||||
| integer(kind=JPIM) | :: | KINDSELF(JPLAY) | ||||
| real(kind=JPRB) | :: | PFAC00(JPLAY) | ||||
| real(kind=JPRB) | :: | PFAC01(JPLAY) | ||||
| real(kind=JPRB) | :: | PFAC10(JPLAY) | ||||
| real(kind=JPRB) | :: | PFAC11(JPLAY) | ||||
| integer(kind=JPIM) | :: | KJP(JPLAY) | ||||
| integer(kind=JPIM) | :: | KJT(JPLAY) | ||||
| integer(kind=JPIM) | :: | KJT1(JPLAY) | ||||
| real(kind=JPRB), | intent(inout) | :: | PBBFD(JPLAY+1) | |||
| real(kind=JPRB), | intent(inout) | :: | PBBFU(JPLAY+1) | |||
| real(kind=JPRB) | :: | PUVFD(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PUVFU(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PVSFD(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PVSFU(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PNIFD(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PNIFU(JPLAY+1) | ||||
| real(kind=JPRB), | intent(inout) | :: | PBBCD(JPLAY+1) | |||
| real(kind=JPRB), | intent(inout) | :: | PBBCU(JPLAY+1) | |||
| real(kind=JPRB) | :: | PUVCD(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PUVCU(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PVSCD(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PVSCU(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PNICD(JPLAY+1) | ||||
| real(kind=JPRB) | :: | PNICU(JPLAY+1) |