File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lwrad.F |
1110 |
IRRAD |
g1=w1*(aig(1,ib)+(aig(2,ib)+(aig(3,ib) |
./pkg/fizhi/fizhi_lwrad.F |
1116 |
IRRAD |
gg=(g1+g2+g3)/(w1+w2+w3) |
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
./pkg/fizhi/fizhi_swrad.F |
1261 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
./pkg/fizhi/fizhi_swrad.F |
1365 |
SOLIR |
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff1)*reff1)*w1 |
./pkg/fizhi/fizhi_swrad.F |
1367 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
./pkg/fizhi/fizhi_swrad.F |
1678 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
./pkg/fizhi/fizhi_swrad.F |
1750 |
SOLUV |
g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1) |
./pkg/fizhi/fizhi_swrad.F |
1752 |
SOLUV |
asyclt(i,j)=(g1+g2)/taux |
./pkg/fizhi/fizhi_utils.F |
225 |
QSAT |
_RL g0, g1, g2, g3, g4, g5, g6 |
./pkg/fizhi/fizhi_utils.F |
308 |
QSAT |
parameter ( g1 = 0.195789002e-01 * esfac ) |
./pkg/fizhi/fizhi_utils.F |
358 |
QSAT |
dqx = g0+t*(g1+t*(g2+t*(g3+t*(g4+t*(g5+t*g6))))) |
./pkg/seaice/seaice_itd_remap.F |
228 |
SEAICE_ITD_REMAP |
O g0(1,1,k), g1(1,1,k), |
./pkg/seaice/seaice_itd_remap.F |
248 |
SEAICE_ITD_REMAP |
da0 = g0(i,j,k)*etaMax + g1(i,j,k)*etaMax*etaMax*0.5 _d 0 |
./pkg/seaice/seaice_itd_remap.F |
284 |
SEAICE_ITD_REMAP |
O g0(1,1,k), g1(1,1,k), |
./pkg/seaice/seaice_itd_remap.F |
314 |
SEAICE_ITD_REMAP |
darea = g0(i,j,kDonor)*etam + g1(i,j,kDonor)*eta2 |
./pkg/seaice/seaice_itd_remap.F |
319 |
SEAICE_ITD_REMAP |
& + g1(i,j,kDonor)*(etaMax**3-etaMin**3)*third |
./pkg/seaice/seaice_itd_remap.F |
372 |
SEAICE_ITD_REMAP_LINEAR |
O g0, g1, |
./pkg/seaice/seaice_itd_remap.F |
409 |
SEAICE_ITD_REMAP_LINEAR |
_RL g1 (1:sNx,1:sNy) |
./pkg/seaice/seaice_itd_remap.F |
445 |
SEAICE_ITD_REMAP_LINEAR |
g1(i,j) = 0. _d 0 |
./pkg/seaice/seaice_itd_remap.F |
467 |
SEAICE_ITD_REMAP_LINEAR |
g1(i,j) = 2. _d 0 * auxCoeff*recip_etaR*( etaNoR - 0.5 _d 0 ) |
./pkg/seaice/seaice_itd_remap.F |
96 |
SEAICE_ITD_REMAP |
_RL g1 (1:sNx,1:sNy,0:nITD) |