| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
114 |
SEAICE_SOLVE4TEMP |
_RL C1, C2, C3, C4, C5, QS1 |
|
./pkg/seaice/seaice_solve4temp.F |
165 |
SEAICE_SOLVE4TEMP |
C2= -2.6913393 _d -03 |
|
./pkg/seaice/seaice_solve4temp.F |
378 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
495 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/zonal_filt/fftpack.F |
1143 |
R8ADBG |
SUBROUTINE R8ADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
|
./pkg/zonal_filt/fftpack.F |
1147 |
R8ADBG |
1 C1(IDO,L1,IP) ,C2(IDL1,IP), |
|
./pkg/zonal_filt/fftpack.F |
1212 |
R8ADBG |
C2(IK,L) = CH2(IK,1)+AR1*CH2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
1213 |
R8ADBG |
C2(IK,LC) = AI1*CH2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
1225 |
R8ADBG |
C2(IK,L) = C2(IK,L)+AR2*CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1226 |
R8ADBG |
C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC) |
|
./pkg/zonal_filt/fftpack.F |
1270 |
R8ADBG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
1555 |
R8ADFG |
SUBROUTINE R8ADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
|
./pkg/zonal_filt/fftpack.F |
1559 |
R8ADFG |
1 C1(IDO,L1,IP) ,C2(IDL1,IP), |
|
./pkg/zonal_filt/fftpack.F |
1571 |
R8ADFG |
CH2(IK,1) = C2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
1630 |
R8ADFG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
1648 |
R8ADFG |
CH2(IK,L) = C2(IK,1)+AR1*C2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
1649 |
R8ADFG |
CH2(IK,LC) = AI1*C2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
1661 |
R8ADFG |
CH2(IK,L) = CH2(IK,L)+AR2*C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1662 |
R8ADFG |
CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC) |
|
./pkg/zonal_filt/fftpack.F |
1668 |
R8ADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
214 |
RADBG |
SUBROUTINE RADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
|
./pkg/zonal_filt/fftpack.F |
220 |
RADBG |
1 C1(IDO,L1,IP) ,C2(IDL1,IP), |
|
./pkg/zonal_filt/fftpack.F |
285 |
RADBG |
C2(IK,L) = CH2(IK,1)+AR1*CH2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
286 |
RADBG |
C2(IK,LC) = AI1*CH2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
298 |
RADBG |
C2(IK,L) = C2(IK,L)+AR2*CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
299 |
RADBG |
C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC) |
|
./pkg/zonal_filt/fftpack.F |
343 |
RADBG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
640 |
RADFG |
SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
|
./pkg/zonal_filt/fftpack.F |
646 |
RADFG |
1 C1(IDO,L1,IP) ,C2(IDL1,IP), |
|
./pkg/zonal_filt/fftpack.F |
658 |
RADFG |
CH2(IK,1) = C2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
717 |
RADFG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
735 |
RADFG |
CH2(IK,L) = C2(IK,1)+AR1*C2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
736 |
RADFG |
CH2(IK,LC) = AI1*C2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
748 |
RADFG |
CH2(IK,L) = CH2(IK,L)+AR2*C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
749 |
RADFG |
CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC) |
|
./pkg/zonal_filt/fftpack.F |
755 |
RADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |
|
./pkg/aim_v23/phy_shtorh.F |
43 |
SHTORH |
_RL E0, C1, C2, T0, T1, T2, QS1, QS2 |
|
./pkg/aim_v23/phy_shtorh.F |
52 |
SHTORH |
C2= 21.875 _d 0 |
|
./pkg/aim_v23/phy_shtorh.F |
72 |
SHTORH |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(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 |
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 |
52 |
BULKF_SH2RH_AIM |
C2= 21.875 _d 0 |
|
./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 |
75 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
86 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |