2 |
|
|
3 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
4 |
|
|
|
#ifdef ALLOW_KPP |
|
5 |
C I.Fukumori 8/24/98 |
C I.Fukumori 8/24/98 |
6 |
CStartOfInterface |
CStartOfInterface |
7 |
SUBROUTINE SWFRAC( |
SUBROUTINE SWFRAC( |
40 |
C output arguments |
C output arguments |
41 |
_RS swdk(imax) ! short wave (radiation) fractional decay |
_RS swdk(imax) ! short wave (radiation) fractional decay |
42 |
|
|
43 |
|
#ifdef ALLOW_KPP |
44 |
|
|
45 |
C === Local variables === |
C === Local variables === |
46 |
_RS facz |
_RS facz |
47 |
_RS rfac(nwtype),a1(nwtype),a2(nwtype) |
_RS rfac(nwtype),a1(nwtype),a2(nwtype) |
64 |
ENDIF |
ENDIF |
65 |
ENDDO |
ENDDO |
66 |
|
|
67 |
|
#endif |
68 |
|
|
69 |
RETURN |
RETURN |
70 |
END |
END |
|
#endif |
|