| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
221 |
RADSW |
INTEGER NL1(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
234 |
RADSW |
NL1(J)=kGrd(J)-1 |
|
./pkg/aim_v23/phy_radiat.F |
270 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
285 |
RADSW |
& QCLOUD(J)= MAX( QA(J,kGrd(J)), QA(J,NL1(J)) ) |
|
./pkg/aim_v23/phy_radiat.F |
290 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
320 |
RADSW |
DO K=2,NL1(J) |
|
./pkg/aim_v23/phy_radiat.F |
560 |
RADLW |
INTEGER NL1(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
567 |
RADLW |
NL1(J)=kGrd(J)-1 |
|
./pkg/aim_v23/phy_radiat.F |
597 |
RADLW |
ST4A(J,K,2)=2.*ST4A(J,K,1)-ST4A(J,NL1(J),2) |
|
./pkg/aim_v23/phy_suflux_prep.F |
130 |
SUFLUX_PREP |
NL1 = Ktmp-1 |
|
./pkg/aim_v23/phy_suflux_prep.F |
134 |
SUFLUX_PREP |
T0(J) = TA(J,Ktmp) + WVS(J)*(TA(J,Ktmp)-TA(J,NL1)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
99 |
SUFLUX_PREP |
INTEGER J, Ktmp, NL1 |
|
./pkg/aim_v23/phy_vdifsc.F |
131 |
VDIFSC |
NL1 = Ktmp - 1 |
|
./pkg/aim_v23/phy_vdifsc.F |
134 |
VDIFSC |
DRH0=RHGRAD*(SIG(Ktmp)-SIG(NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
139 |
VDIFSC |
DRH = RH(J,Ktmp)-RH(J,NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
145 |
VDIFSC |
TTENVD(J,NL1) = FLUXSE*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
150 |
VDIFSC |
QTENVD(J,NL1) = FLUXQ*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
157 |
VDIFSC |
FLUXQ = QSAT(J,NL1)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
158 |
VDIFSC |
QTENVD(J,NL1) = FLUXQ*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
68 |
VDIFSC |
INTEGER J, K, Ktmp, NL1 |
|
./pkg/aim_v23/phy_vdifsc.F |
94 |
VDIFSC |
NL1 = kGrd(J)-1 |
|
./pkg/aim_v23/phy_vdifsc.F |
96 |
VDIFSC |
IF (NL1.GE.2) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
97 |
VDIFSC |
CVDI(J) = (SIGH(NL1)-SIGH(1))/((NL1-1)*3600. _d 0) |