| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
1085 |
NLOPPS |
sa(i,k2) = stemp(k2) |
|
./pkg/opps/opps_calc.F |
1093 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
683 |
NLOPPS |
subroutine NLOPPS(j,is,ie,ta,sa,gcmdz) |
|
./pkg/opps/opps_calc.F |
720 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
811 |
NLOPPS |
stemp(k)=sa(i,k) |
|
./pkg/opps/opps_calc.F |
821 |
NLOPPS |
if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then |
|
./pkg/opps/opps_calc.F |
831 |
NLOPPS |
write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints) |