File |
Line number |
Procedure |
Code |
./pkg/opps/opps_calc.F |
577 |
NLOPPS |
real ttemp(km),stemp(km),taa(km),saa(km) |
./pkg/opps/opps_calc.F |
650 |
NLOPPS |
ttemp(k)=ta(i,k) |
./pkg/opps/opps_calc.F |
677 |
NLOPPS |
Td(k)=ttemp(k) |
./pkg/opps/opps_calc.F |
678 |
NLOPPS |
Dd(k)=state1(stemp(k),ttemp(k),k) |
./pkg/opps/opps_calc.F |
703 |
NLOPPS |
D2=state1(stemp(k2+1),ttemp(k2+1),k2+1) |
./pkg/opps/opps_calc.F |
738 |
NLOPPS |
thmix=(dz1*ttemp(k2)+dz2*ttemp(k2+1))/(dz1+dz2) |
./pkg/opps/opps_calc.F |
843 |
NLOPPS |
taa(k2) = ttemp(k2+1) |
./pkg/opps/opps_calc.F |
859 |
NLOPPS |
ttemp(k) = ttemp(k)- |
./pkg/opps/opps_calc.F |
870 |
NLOPPS |
ttemp(k2) = ttemp(k2) + |
./pkg/opps/opps_calc.F |
882 |
NLOPPS |
ttemp(kmx+1) = ttemp(kmx+1)+ |
./pkg/opps/opps_calc.F |
893 |
NLOPPS |
taa(k2) = ttemp(k2+1) |
./pkg/opps/opps_calc.F |
909 |
NLOPPS |
convadj(i,j,k2) = convadj(i,j,k2) + (ttemp(k2)- |
./pkg/opps/opps_calc.F |
912 |
NLOPPS |
ta(i,k2) = ttemp(k2) |
./pkg/bling/bling_airseaflux.F |
104 |
BLING_AIRSEAFLUX |
_RL ttemp |
./pkg/bling/bling_airseaflux.F |
250 |
BLING_AIRSEAFLUX |
ttemp = theta(i,j,1,bi,bj) |
./pkg/bling/bling_airseaflux.F |
255 |
BLING_AIRSEAFLUX |
& + sox2 * ttemp |
./pkg/bling/bling_airseaflux.F |
256 |
BLING_AIRSEAFLUX |
& + sox3 * ttemp*ttemp |
./pkg/bling/bling_airseaflux.F |
257 |
BLING_AIRSEAFLUX |
& + sox4 * ttemp*ttemp*ttemp |
./pkg/bling/bling_airseaflux.F |
268 |
BLING_AIRSEAFLUX |
aTT = 298.15 _d 0 -ttemp |
./pkg/bling/bling_airseaflux.F |
269 |
BLING_AIRSEAFLUX |
aTK = 273.15 _d 0 +ttemp |
./pkg/bling/bling_carbon_chem.F |
478 |
CARBON_COEFFS |
I ttemp,stemp, |
./pkg/bling/bling_carbon_chem.F |
532 |
CARBON_COEFFS |
_RL ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/bling/bling_carbon_chem.F |
577 |
CARBON_COEFFS |
t = ttemp(i,j) |
./pkg/bling/bling_carbon_chem.F |
731 |
CARBON_COEFFS_PRESSURE_DEP |
I ttemp,stemp, |
./pkg/bling/bling_carbon_chem.F |
790 |
CARBON_COEFFS_PRESSURE_DEP |
_RL ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/bling/bling_carbon_chem.F |
871 |
CARBON_COEFFS_PRESSURE_DEP |
t = ttemp(i,j) |
./pkg/cfc/cfc11_surfforcing.F |
63 |
CFC11_SURFFORCING |
_RL ttemp, ttemp2 |
./pkg/cfc/cfc11_surfforcing.F |
79 |
CFC11_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
./pkg/cfc/cfc11_surfforcing.F |
80 |
CFC11_SURFFORCING |
ttemp2=( B3_11 * ttemp + B2_11 )*ttemp + B1_11 |
./pkg/cfc/cfc11_surfforcing.F |
83 |
CFC11_SURFFORCING |
& + A2_11 / ttemp |
./pkg/cfc/cfc11_surfforcing.F |
84 |
CFC11_SURFFORCING |
& + A3_11 * log( ttemp ) |
./pkg/cfc/cfc11_surfforcing.F |
85 |
CFC11_SURFFORCING |
& + A4_11 * ttemp * ttemp |
./pkg/cfc/cfc12_surfforcing.F |
63 |
CFC12_SURFFORCING |
_RL ttemp, ttemp2 |
./pkg/cfc/cfc12_surfforcing.F |
79 |
CFC12_SURFFORCING |
ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0 |
./pkg/cfc/cfc12_surfforcing.F |
80 |
CFC12_SURFFORCING |
ttemp2=( B3_12 * ttemp + B2_12 )*ttemp + B1_12 |
./pkg/cfc/cfc12_surfforcing.F |
83 |
CFC12_SURFFORCING |
& + A2_12 / ttemp |
./pkg/cfc/cfc12_surfforcing.F |
84 |
CFC12_SURFFORCING |
& + A3_12 * log( ttemp ) |
./pkg/cfc/cfc12_surfforcing.F |
85 |
CFC12_SURFFORCING |
& + A4_12 * ttemp * ttemp |
./pkg/dic/carbon_chem.F |
496 |
CARBON_COEFFS |
I ttemp,stemp, |
./pkg/dic/carbon_chem.F |
544 |
CARBON_COEFFS |
_RL ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/dic/carbon_chem.F |
589 |
CARBON_COEFFS |
t = ttemp(i,j) |
./pkg/dic/carbon_chem.F |
738 |
CARBON_COEFFS_PRESSURE_DEP |
I ttemp,stemp, |
./pkg/dic/carbon_chem.F |
792 |
CARBON_COEFFS_PRESSURE_DEP |
_RL ttemp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/dic/carbon_chem.F |
869 |
CARBON_COEFFS_PRESSURE_DEP |
t = ttemp(i,j) |
./pkg/dic/o2_surfforcing.F |
61 |
O2_SURFFORCING |
_RL ttemp |
./pkg/dic/o2_surfforcing.F |
73 |
O2_SURFFORCING |
ttemp = theta(i,j,k,bi,bj) |
./pkg/dic/o2_surfforcing.F |
78 |
O2_SURFFORCING |
& + sox2 * ttemp |
./pkg/dic/o2_surfforcing.F |
79 |
O2_SURFFORCING |
& + sox3 * ttemp*ttemp |
./pkg/dic/o2_surfforcing.F |
80 |
O2_SURFFORCING |
& + sox4 * ttemp*ttemp*ttemp |
./pkg/dic/o2_surfforcing.F |
91 |
O2_SURFFORCING |
aTT = 298.15 _d 0 -ttemp |
./pkg/dic/o2_surfforcing.F |
92 |
O2_SURFFORCING |
aTK = 273.15 _d 0 +ttemp |