| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
134 |
EBM_ATMOSPHERE |
T2(1) = 2.*(TtS - TmlS)*T_var(1)*T_var(2)/ |
|
./pkg/ebm/ebm_atmosphere.F |
136 |
EBM_ATMOSPHERE |
T0(1) = TtS - 0.5*T2(1)*((T_var(3)/T_var(1)) - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
140 |
EBM_ATMOSPHERE |
T2(2) = 2.*(TtN - TmlN)*T_var(1)*T_var(2)/ |
|
./pkg/ebm/ebm_atmosphere.F |
142 |
EBM_ATMOSPHERE |
T0(2) = TtN - 0.5*T2(2)*((T_var(3)/T_var(1)) - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
148 |
EBM_ATMOSPHERE |
< T2(no_so)*0.5* |
|
./pkg/ebm/ebm_atmosphere.F |
155 |
EBM_ATMOSPHERE |
DTDy35(no_so) = 3.*T2(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
232 |
EBM_ATMOSPHERE |
T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj) |
|
./pkg/ebm/EBM.h |
66 |
NO PROCEDURE |
_RL T_var(4), T0(2), T2(2), T35(2), DTDy35(2) |
|
./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/fizhi/fizhi_clockstuff.F |
935 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./pkg/fizhi/fizhi_clockstuff.F |
969 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
970 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
972 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
976 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./pkg/fizhi/fizhi_clockstuff.F |
977 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./pkg/fizhi/fizhi_clockstuff.F |
980 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
937 |
ASTRO |
_RL TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
971 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
972 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
974 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
978 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
979 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F |
982 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./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 |