File |
Line number |
Procedure |
Code |
./pkg/opps/opps_calc.F |
534 |
NLOPPS |
subroutine NLOPPS(j,is,ie,ta,sa,gcmdz) |
./pkg/opps/opps_calc.F |
566 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
./pkg/opps/opps_calc.F |
649 |
NLOPPS |
stemp(k)=sa(i,k) |
./pkg/opps/opps_calc.F |
659 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
./pkg/opps/opps_calc.F |
669 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |
./pkg/opps/opps_calc.F |
911 |
NLOPPS |
sa(i,k2) = stemp(k2) |
./pkg/opps/opps_calc.F |
919 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
./model/src/find_alpha.F |
298 |
FIND_ALPHA |
sa = salt(i,j,k,bi,bj) |
./model/src/find_alpha.F |
303 |
FIND_ALPHA |
IF ( sa .GT. 0. _d 0 ) THEN |
./model/src/find_alpha.F |
304 |
FIND_ALPHA |
sqrtsa = SQRT(sa) |
./model/src/find_alpha.F |
306 |
FIND_ALPHA |
sa = 0. _d 0 |
./model/src/find_alpha.F |
313 |
FIND_ALPHA |
& + sa*(teos(06) + 2.*teos(07)*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 |
320 |
FIND_ALPHA |
& + sa*(teos(27) |
./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 |
605 |
FIND_BETA |
sa = salt(i,j,k,bi,bj) |
./model/src/find_alpha.F |
60 |
FIND_ALPHA |
_RL ct, sa, sqrtsa, p |
./model/src/find_alpha.F |
610 |
FIND_BETA |
IF ( sa .GT. 0. _d 0 ) THEN |
./model/src/find_alpha.F |
611 |
FIND_BETA |
sqrtsa = SQRT(sa) |
./model/src/find_alpha.F |
613 |
FIND_BETA |
sa = 0. _d 0 |
./model/src/find_alpha.F |
625 |
FIND_BETA |
& + 2.*teos(36)*sa |
./model/src/find_rho.F |
1128 |
FIND_RHO_SCALAR |
sa = sLoc |
./model/src/find_rho.F |
1129 |
FIND_RHO_SCALAR |
IF ( sa .GT. 0. _d 0 ) THEN |
./model/src/find_rho.F |
1130 |
FIND_RHO_SCALAR |
sqrtsa = SQRT(sa) |
./model/src/find_rho.F |
1132 |
FIND_RHO_SCALAR |
sa = 0. _d 0 |
./model/src/find_rho.F |
1139 |
FIND_RHO_SCALAR |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*ct) |
./model/src/find_rho.F |
1143 |
FIND_RHO_SCALAR |
& + sa*(teos(15) + teos(16)*ct) |
./model/src/find_rho.F |
1144 |
FIND_RHO_SCALAR |
& + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa)) |
./model/src/find_rho.F |
1148 |
FIND_RHO_SCALAR |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
./model/src/find_rho.F |
1150 |
FIND_RHO_SCALAR |
& + teos(36)*sa |
./model/src/find_rho.F |
1154 |
FIND_RHO_SCALAR |
% + sa*(teos(41) + teos(42)*ct) |
./model/src/find_rho.F |
1155 |
FIND_RHO_SCALAR |
% + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa) |
./model/src/find_rho.F |
779 |
FIND_RHOTEOS |
_RL ct, sa, sqrtsa, p |
./model/src/find_rho.F |
787 |
FIND_RHOTEOS |
sa = sFld(i,j) |
./model/src/find_rho.F |
792 |
FIND_RHOTEOS |
IF ( sa .GT. 0. _d 0 ) THEN |
./model/src/find_rho.F |
793 |
FIND_RHOTEOS |
sqrtsa = SQRT(sa) |
./model/src/find_rho.F |
795 |
FIND_RHOTEOS |
sa = 0. _d 0 |
./model/src/find_rho.F |
802 |
FIND_RHOTEOS |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*ct) |
./model/src/find_rho.F |
806 |
FIND_RHOTEOS |
& + sa*(teos(15) + teos(16)*ct) |
./model/src/find_rho.F |
807 |
FIND_RHOTEOS |
& + p*(teos(17) + ct*(teos(18) + teos(19)*ct) + teos(20)*sa)) |
./model/src/find_rho.F |
811 |
FIND_RHOTEOS |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
./model/src/find_rho.F |
813 |
FIND_RHOTEOS |
& + teos(36)*sa |
./model/src/find_rho.F |
817 |
FIND_RHOTEOS |
& + sa*(teos(41) + teos(42)*ct) |
./model/src/find_rho.F |
818 |
FIND_RHOTEOS |
& + p*(teos(43) + ct*(teos(44) + teos(45)*ct + teos(46)*sa) |
./model/src/find_rho.F |
862 |
FIND_RHO_SCALAR |
_RL ct, sa, sqrtsa, p |
./model/src/gsw_teos10.F |
100 |
NO PROCEDURE |
ct_diff = gsw_ct_from_pt(sa,pt) - CT |
./model/src/gsw_teos10.F |
131 |
NO PROCEDURE |
_RL sa, pt |
./model/src/gsw_teos10.F |
144 |
NO PROCEDURE |
x2 = sfac*sa |
./model/src/gsw_teos10.F |
199 |
NO PROCEDURE |
_RL sa, pt0 |
./model/src/gsw_teos10.F |
211 |
NO PROCEDURE |
x2 = sfac*sa |
./model/src/gsw_teos10.F |
92 |
NO PROCEDURE |
ct_diff = gsw_ct_from_pt(sa,pt) - CT |
./model/src/gsw_teos10.F |
97 |
NO PROCEDURE |
dct_dpt = -(ptm + 273.15 _d 0)*gsw_gibbs_pt0_pt0(sa,ptm)/cp0 |