| File |
Line number |
Procedure |
Code |
|
./pkg/aim/aim_calc_diags.F |
67 |
AIM_CALC_DIAGS |
& + CLOUDC(I2,myThid)*DDTT |
|
./pkg/aim/com_physvar.h |
39 |
NO PROCEDURE |
COMMON /PHYGR3/ PSG, TS, TSKIN, CLOUDC, PNLEVW |
|
./pkg/aim/com_physvar.h |
43 |
NO PROCEDURE |
_RL CLOUDC(NGP,MAX_NO_THREADS) |
|
./pkg/aim/phy_radiat.F |
129 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP), DFABS(NGP,NLEV) |
|
./pkg/aim/phy_radiat.F |
167 |
RADSW |
CLOUDC(J)=0. |
|
./pkg/aim/phy_radiat.F |
178 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),(RH(J,K)-RHCL1)) |
|
./pkg/aim/phy_radiat.F |
183 |
RADSW |
CLOUDC(J)=MIN(CLOUDC(J),DRHCL)*MIN(QA(J,NL1(J)),QACL)*RCL |
|
./pkg/aim/phy_radiat.F |
206 |
RADSW |
* +ABCSW*CLOUDC(J)*QA(J,NL1(J)))*PSA(J)*DSIG(K)) |
|
./pkg/aim/phy_radiat.F |
233 |
RADSW |
FREFL(J)=ALBCL*CLOUDC(J)*FLUX(J) |
|
./pkg/aim/phy_radiat.F |
306 |
RADSW |
* +ABCLW*CLOUDC(J)*QA(J,NL1(J)))*PSA(J)*DSIG(K)) |
|
./pkg/aim/phy_radiat.F |
85 |
RADSW |
* CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim/phy_driver.F |
165 |
PDRIVER |
* CLOUDC(1,myThid),TSR(1,myThid),SSR(1,myThid), |
|
./pkg/aim_v23/com_physvar.h |
45 |
NO PROCEDURE |
COMMON /PHYGR3/ TS, TSKIN, T0, Q0, CLOUDC, CLTOP |
|
./pkg/aim_v23/com_physvar.h |
53 |
NO PROCEDURE |
_RL CLOUDC(NGP,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_radiat.F |
111 |
RADSW |
O ICLTOP,CLOUDC,FTOP,FSFC,DFABS, |
|
./pkg/aim_v23/phy_radiat.F |
155 |
RADSW |
_RL CLOUDC(NGP), FTOP(NGP), FSFC(NGP,0:3), DFABS(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
205 |
RADSW |
CLOUDC(J)=0. |
|
./pkg/aim_v23/phy_radiat.F |
226 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
235 |
RADSW |
CLOUDC(J)=MIN(1. _d 0,CLOUDC(J)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
236 |
RADSW |
IF (CLOUDC(J).GT.0.0) THEN |
|
./pkg/aim_v23/phy_radiat.F |
237 |
RADSW |
CLOUDC(J)=CLOUDC(J)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
238 |
RADSW |
ALBTOP(J,ICLTOP(J))=ALBCL*CLOUDC(J) |
|
./pkg/aim_v23/phy_radiat.F |
254 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABSCL1+ABSCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
380 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/aim_diagnostics.F |
124 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,CLOUDC(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
160 |
AIM_DIAGNOSTICS |
CLTOP(J,myThid)=CLTOP(J,mythid)*CLOUDC(J,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
189 |
AIM_DIAGNOSTICS |
& + CLOUDC(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
275 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( CLOUDC(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
279 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( CLOUDC(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
205 |
PHY_DRIVER |
O ICLTOP,CLOUDC(1,myThid), |