| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_dyn2aim.F |
10 |
AIM_DYN2AIM |
O TA, QA, ThA, Vsurf2, PSA, dpFac, |
|
./pkg/aim_v23/aim_dyn2aim.F |
172 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(i,j,k,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
180 |
AIM_DYN2AIM |
TA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
191 |
AIM_DYN2AIM |
TA(I2,Katm) = TA(I2,Katm)*pStarFacK(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
220 |
AIM_DYN2AIM |
IF ( TA(I2,Katm).LT.lwTemp1 .OR. |
|
./pkg/aim_v23/aim_dyn2aim.F |
221 |
AIM_DYN2AIM |
& TA(I2,Katm).GT.lwTemp2 ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
225 |
AIM_DYN2AIM |
& 'AIM_DYN2AIM: Temp=', TA(I2,Katm), |
|
./pkg/aim_v23/aim_dyn2aim.F |
55 |
AIM_DYN2AIM |
_RL TA(NGP,NLEV), QA(NGP,NLEV), ThA(NGP,NLEV) |
|
./pkg/aim_v23/phy_radiat.F |
509 |
RADLW |
SUBROUTINE RADLW (IMODE,TA,TS,ST4S, |
|
./pkg/aim_v23/phy_radiat.F |
553 |
RADLW |
_RL TA(NGP,NLEV), TS(NGP), ST4S(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
586 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
593 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
631 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
649 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
700 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
713 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_shtorh.F |
32 |
SHTORH |
_RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*) |
|
./pkg/aim_v23/phy_shtorh.F |
66 |
SHTORH |
IF (TA(J).GE.T0) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
67 |
SHTORH |
tmpQ = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
69 |
SHTORH |
recT = 1. _d 0 / (TA(J)-T1) |
|
./pkg/aim_v23/phy_shtorh.F |
6 |
SHTORH |
SUBROUTINE SHTORH (IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/aim_v23/phy_shtorh.F |
71 |
SHTORH |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
72 |
SHTORH |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_shtorh.F |
74 |
SHTORH |
recT = 1. _d 0 / (TA(J)-T2) |
|
./pkg/aim_v23/phy_shtorh.F |
83 |
SHTORH |
IF (TA(J).GE.T0) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
84 |
SHTORH |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
85 |
SHTORH |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
86 |
SHTORH |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
10 |
SUFLUX_PREP |
I PSA,TA,QA,RH,ThA,Vsurf2,WVS,CLAT,FOROG, |
|
./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 |
81 |
SUFLUX_PREP |
_RL PSA(NGP), TA(NGP,NLEV), QA(NGP,NLEV), RH(NGP,NLEV) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
32 |
BULKF_SH2RH_AIM |
_RL TA(NGP), PS(NGP), QSAT(NGP), QA(*), RH(*) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
66 |
BULKF_SH2RH_AIM |
IF (TA(J).GE.T0) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
67 |
BULKF_SH2RH_AIM |
tmpQ = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
69 |
BULKF_SH2RH_AIM |
recT = 1. _d 0 / (TA(J)-T1) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
6 |
BULKF_SH2RH_AIM |
SUBROUTINE BULKF_SH2RH_AIM(IMODE,NGP,TA,PS,SIG,QA,RH,QSAT,myThid) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
71 |
BULKF_SH2RH_AIM |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
72 |
BULKF_SH2RH_AIM |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
74 |
BULKF_SH2RH_AIM |
recT = 1. _d 0 / (TA(J)-T2) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
83 |
BULKF_SH2RH_AIM |
IF (TA(J).GE.T0) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
84 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
85 |
BULKF_SH2RH_AIM |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
86 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |