| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
_RL tau,ssc,g0,csm |
|
./pkg/fizhi/fizhi_swrad.F |
2005 |
DELEDD |
ff = g0*g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2009 |
DELEDD |
gp = g0/(one+g0) |
|
./pkg/fizhi/fizhi_swrad.F |
2075 |
SAGPOL |
subroutine SAGPOL(tau,ssc,g0,rll,tll) |
|
./pkg/fizhi/fizhi_swrad.F |
2111 |
SAGPOL |
_RL tau,ssc,g0 |
|
./pkg/fizhi/fizhi_swrad.F |
2121 |
SAGPOL |
xx = one-ssc*g0 |
|
./pkg/fizhi/fizhi_utils.F |
225 |
QSAT |
_RL g0, g1, g2, g3, g4, g5, g6 |
|
./pkg/fizhi/fizhi_utils.F |
307 |
QSAT |
parameter ( g0 = 0.312654072e+00 * 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 |
318 |
SEAICE_ITD_REMAP |
dheff = g0(i,j,kDonor)*eta2 |
|
./pkg/seaice/seaice_itd_remap.F |
372 |
SEAICE_ITD_REMAP_LINEAR |
O g0, g1, |
|
./pkg/seaice/seaice_itd_remap.F |
408 |
SEAICE_ITD_REMAP_LINEAR |
_RL g0 (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_itd_remap.F |
444 |
SEAICE_ITD_REMAP_LINEAR |
g0(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_remap.F |
466 |
SEAICE_ITD_REMAP_LINEAR |
g0(i,j) = auxCoeff*( sixth - etaNoR ) |
|
./pkg/seaice/seaice_itd_remap.F |
95 |
SEAICE_ITD_REMAP |
_RL g0 (1:sNx,1:sNy,0:nITD) |