| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
2207 |
CLDFLX |
_RL ch(m,n),cm(m,n),ct(m,n),flxdn(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2404 |
CLDFLX |
ct(i,j)=cm(i,j)*(1.0-cc(i,j,3)) |
|
./pkg/fizhi/fizhi_swrad.F |
2414 |
CLDFLX |
ct(i,j)=cm(i,j)*cc(i,j,3) |
|
./pkg/fizhi/fizhi_swrad.F |
2483 |
CLDFLX |
fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
2490 |
CLDFLX |
fsdir(i,j)=fsdir(i,j)+fdndir(i,j)*ct(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
2491 |
CLDFLX |
fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j) |
|
./pkg/fizhi/fizhi_turb.F |
2270 |
TRBFLX |
sct(I) = sct(I) + AITR*ct(I) |
|
./model/src/find_alpha.F |
297 |
FIND_ALPHA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
312 |
FIND_ALPHA |
& + ct*(2.*teos(03) + 3.*teos(04)*ct) |
|
./model/src/find_alpha.F |
313 |
FIND_ALPHA |
& + sa*(teos(06) + 2.*teos(07)*ct |
|
./model/src/find_alpha.F |
314 |
FIND_ALPHA |
& + sqrtsa*(teos(09) + ct*(2.*teos(10) + 3.*teos(11)*ct))) |
|
./model/src/find_alpha.F |
315 |
FIND_ALPHA |
& + p*( teos(13) + 2.*teos(14)*ct + sa*2.*teos(16) |
|
./model/src/find_alpha.F |
316 |
FIND_ALPHA |
& + p*(teos(18) + 2.*teos(19)*ct)) |
|
./model/src/find_alpha.F |
319 |
FIND_ALPHA |
& + ct*(2.*teos(23) + ct*(3.*teos(24) + 4.*teos(25)*ct)) |
|
./model/src/find_alpha.F |
321 |
FIND_ALPHA |
& + ct*(2.*teos(28) + ct*(3.*teos(29) + 4.*teos(30)*ct)) |
|
./model/src/find_alpha.F |
323 |
FIND_ALPHA |
& + ct*(2.*teos(33) + ct*(3.*teos(34) + 4.*teos(35)*ct)))) |
|
./model/src/find_alpha.F |
324 |
FIND_ALPHA |
& + p*(teos(38) + ct*(2.*teos(39) + 3.*teos(40)*ct) |
|
./model/src/find_alpha.F |
326 |
FIND_ALPHA |
& + p*(teos(44) + 2.*teos(45)*ct + teos(46)*sa |
|
./model/src/find_alpha.F |
390 |
FIND_BETA |
_RL ct, sa, sqrtsa, p |
|
./model/src/find_alpha.F |
604 |
FIND_BETA |
ct = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
60 |
FIND_ALPHA |
_RL ct, sa, sqrtsa, p |
|
./model/src/find_alpha.F |
618 |
FIND_BETA |
dnum_dsalt = teos(05) + ct*(teos(06) + teos(07)*ct) |
|
./model/src/find_alpha.F |
620 |
FIND_BETA |
& + ct*(teos(09) + ct*(teos(10) + teos(11)*ct))) |
|
./model/src/find_alpha.F |
621 |
FIND_BETA |
& + p*(teos(15) + teos(16)*ct + p*teos(20)) |
|
./model/src/find_alpha.F |
624 |
FIND_BETA |
& + ct*(teos(27) + ct*(teos(28) + ct*(teos(29) + teos(30)*ct))) |
|
./model/src/find_alpha.F |
626 |
FIND_BETA |
& + 1.5*sqrtsa*(teos(31) + ct*(teos(32) + ct*(teos(33) |
|
./model/src/find_alpha.F |
627 |
FIND_BETA |
& + ct*(teos(34) + teos(35)*ct)))) |
|
./model/src/find_alpha.F |
628 |
FIND_BETA |
& + p*(teos(41) + teos(42)*ct + p*teos(46)) |
|
./model/src/find_rho.F |
1105 |
FIND_RHO_SCALAR |
ct = tLoc |
|
./model/src/find_rho.F |
1116 |
FIND_RHO_SCALAR |
& + ct*(teos(02) + ct*(teos(03) + teos(04)*ct)) |
|
./model/src/find_rho.F |
1117 |
FIND_RHO_SCALAR |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*ct) |
|
./model/src/find_rho.F |
1118 |
FIND_RHO_SCALAR |
& + sqrtsa*(teos(08) + ct*(teos(09) |
|
./model/src/find_rho.F |
1119 |
FIND_RHO_SCALAR |
& + ct*(teos(10) + teos(11)*ct)))) |
|
./model/src/find_rho.F |
1120 |
FIND_RHO_SCALAR |
& + p*(teos(12) + ct*(teos(13) + teos(14)*ct) |
|
./model/src/find_rho.F |
1121 |
FIND_RHO_SCALAR |
& + sa*(teos(15) + teos(16)*ct) |
|
./model/src/find_rho.F |
1122 |
FIND_RHO_SCALAR |
& + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa)) |
|
./model/src/find_rho.F |
1125 |
FIND_RHO_SCALAR |
& + ct*(teos(22) + ct*(teos(23) + ct*(teos(24) + teos(25)*ct))) |
|
./model/src/find_rho.F |
1126 |
FIND_RHO_SCALAR |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
|
./model/src/find_rho.F |
1127 |
FIND_RHO_SCALAR |
& + ct*(teos(29) + teos(30)*ct))) |
|
./model/src/find_rho.F |
1129 |
FIND_RHO_SCALAR |
% + sqrtsa*(teos(31) + ct*(teos(32) + ct*(teos(33) |
|
./model/src/find_rho.F |
1130 |
FIND_RHO_SCALAR |
& + ct*(teos(34) + teos(35)*ct))))) |
|
./model/src/find_rho.F |
1131 |
FIND_RHO_SCALAR |
% + p*(teos(37) + ct*(teos(38) + ct*(teos(39) + teos(40)*ct)) |
|
./model/src/find_rho.F |
1132 |
FIND_RHO_SCALAR |
% + sa*(teos(41) + teos(42)*ct) |
|
./model/src/find_rho.F |
1133 |
FIND_RHO_SCALAR |
% + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa) |
|
./model/src/find_rho.F |
1134 |
FIND_RHO_SCALAR |
% + p*(teos(47) + teos(48)*ct))) |
|
./model/src/find_rho.F |
758 |
FIND_RHOTEOS |
_RL ct, sa, sqrtsa, p |
|
./model/src/find_rho.F |
765 |
FIND_RHOTEOS |
ct = tFld(i,j) |
|
./model/src/find_rho.F |
780 |
FIND_RHOTEOS |
& + ct*(teos(02) + ct*(teos(03) + teos(04)*ct)) |
|
./model/src/find_rho.F |
781 |
FIND_RHOTEOS |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*ct) |
|
./model/src/find_rho.F |
782 |
FIND_RHOTEOS |
& + sqrtsa*(teos(08) + ct*(teos(09) |
|
./model/src/find_rho.F |
783 |
FIND_RHOTEOS |
& + ct*(teos(10) + teos(11)*ct)))) |
|
./model/src/find_rho.F |
784 |
FIND_RHOTEOS |
& + p*(teos(12) + ct*(teos(13) + teos(14)*ct) |
|
./model/src/find_rho.F |
785 |
FIND_RHOTEOS |
& + sa*(teos(15) + teos(16)*ct) |
|
./model/src/find_rho.F |
786 |
FIND_RHOTEOS |
& + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa)) |
|
./model/src/find_rho.F |
789 |
FIND_RHOTEOS |
& + ct*(teos(22) + ct*(teos(23) + ct*(teos(24) + teos(25)*ct))) |
|
./model/src/find_rho.F |
790 |
FIND_RHOTEOS |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
|
./model/src/find_rho.F |
791 |
FIND_RHOTEOS |
& + ct*(teos(29) + teos(30)*ct))) |
|
./model/src/find_rho.F |
793 |
FIND_RHOTEOS |
& + sqrtsa*(teos(31) + ct*(teos(32) + ct*(teos(33) |
|
./model/src/find_rho.F |
794 |
FIND_RHOTEOS |
& + ct*(teos(34) + teos(35)*ct))))) |
|
./model/src/find_rho.F |
795 |
FIND_RHOTEOS |
& + p*(teos(37) + ct*(teos(38) + ct*(teos(39) + teos(40)*ct)) |
|
./model/src/find_rho.F |
796 |
FIND_RHOTEOS |
& + sa*(teos(41) + teos(42)*ct) |
|
./model/src/find_rho.F |
797 |
FIND_RHOTEOS |
& + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa) |
|
./model/src/find_rho.F |
798 |
FIND_RHOTEOS |
& + p*(teos(47) + teos(48)*ct))) |
|
./model/src/find_rho.F |
841 |
FIND_RHO_SCALAR |
_RL ct, sa, sqrtsa, p |