| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
912 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y |
|
./pkg/fizhi/fizhi_clockstuff.F |
959 |
ASTRO |
T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
960 |
ASTRO |
T3 = FUN(ZERO+T2/TWO,PI,ECC,YRLEN,PER)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
962 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
966 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
967 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO,PI,ECC,YRLEN,PER) |
|
./pkg/fizhi/fizhi_clockstuff.F |
970 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/aim_v23/phy_shtorh.F |
43 |
SHTORH |
_RL E0, C1, C2, T0, T1, T2, QS1, QS2 |
|
./pkg/aim_v23/phy_shtorh.F |
55 |
SHTORH |
T2= 7.66 _d 0 |
|
./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 |
75 |
SHTORH |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./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/bulk_force/bulkf_sh2rh_aim.F |
43 |
BULKF_SH2RH_AIM |
_RL E0, C1, C2, T0, T1, T2, QS1, QS2 |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
55 |
BULKF_SH2RH_AIM |
T2= 7.66 _d 0 |
|
./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 |
75 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./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)) |
|
./pkg/chronos/chronos.F |
758 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/chronos/chronos.F |
792 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./pkg/chronos/chronos.F |
793 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./pkg/chronos/chronos.F |
795 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/chronos/chronos.F |
799 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./pkg/chronos/chronos.F |
800 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./pkg/chronos/chronos.F |
803 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/ebm/ebm_atmosphere.F |
153 |
EBM_ATMOSPHERE |
T2(1) = 2.*(TtS - TmlS)*T_var(1)*T_var(2)/ |
|
./pkg/ebm/ebm_atmosphere.F |
155 |
EBM_ATMOSPHERE |
T0(1) = TtS - 0.5*T2(1)*((T_var(3)/T_var(1)) - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
159 |
EBM_ATMOSPHERE |
T2(2) = 2.*(TtN - TmlN)*T_var(1)*T_var(2)/ |
|
./pkg/ebm/ebm_atmosphere.F |
161 |
EBM_ATMOSPHERE |
T0(2) = TtN - 0.5*T2(2)*((T_var(3)/T_var(1)) - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
167 |
EBM_ATMOSPHERE |
& T2(no_so)*0.5* |
|
./pkg/ebm/ebm_atmosphere.F |
174 |
EBM_ATMOSPHERE |
DTDy35(no_so) = 3.*T2(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
253 |
EBM_ATMOSPHERE |
T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
79 |
EBM_ATMOSPHERE |
_RL T_var(4), T0(2), T2(2), T35(2), DTDy35(2) |