| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
519 |
NLOPPS |
subroutine NLOPPS(j,is,ie,ta,sa,gcmdz) |
|
./pkg/opps/opps_calc.F |
551 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
634 |
NLOPPS |
stemp(k)=sa(i,k) |
|
./pkg/opps/opps_calc.F |
644 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
654 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |
|
./pkg/opps/opps_calc.F |
896 |
NLOPPS |
sa(i,k2) = stemp(k2) |
|
./pkg/opps/opps_calc.F |
904 |
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 |
1106 |
FIND_RHO_SCALAR |
sa = sLoc |
|
./model/src/find_rho.F |
1107 |
FIND_RHO_SCALAR |
IF ( sa .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
1108 |
FIND_RHO_SCALAR |
sqrtsa = SQRT(sa) |
|
./model/src/find_rho.F |
1110 |
FIND_RHO_SCALAR |
sa = 0. _d 0 |
|
./model/src/find_rho.F |
1117 |
FIND_RHO_SCALAR |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*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 |
1126 |
FIND_RHO_SCALAR |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
|
./model/src/find_rho.F |
1128 |
FIND_RHO_SCALAR |
& + teos(36)*sa |
|
./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 |
758 |
FIND_RHOTEOS |
_RL ct, sa, sqrtsa, p |
|
./model/src/find_rho.F |
766 |
FIND_RHOTEOS |
sa = sFld(i,j) |
|
./model/src/find_rho.F |
771 |
FIND_RHOTEOS |
IF ( sa .GT. 0. _d 0 ) THEN |
|
./model/src/find_rho.F |
772 |
FIND_RHOTEOS |
sqrtsa = SQRT(sa) |
|
./model/src/find_rho.F |
774 |
FIND_RHOTEOS |
sa = 0. _d 0 |
|
./model/src/find_rho.F |
781 |
FIND_RHOTEOS |
& + sa*(teos(05) + ct*(teos(06) + teos(07)*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 |
790 |
FIND_RHOTEOS |
& + sa*(teos(26) + ct*(teos(27) + ct*(teos(28) |
|
./model/src/find_rho.F |
792 |
FIND_RHOTEOS |
& + teos(36)*sa |
|
./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 |
841 |
FIND_RHO_SCALAR |
_RL ct, sa, sqrtsa, p |