| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
2517 |
TABLUP |
_RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2 |
|
./pkg/fizhi/fizhi_lwrad.F |
2563 |
TABLUP |
t1 = ba*(1.-fw) + bb*fw |
|
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1019 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1020 |
CLDSCALE |
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) |
|
./pkg/fizhi/fizhi_swrad.F |
1097 |
CLDSCALE |
ft=(log10(taux)-t1)/dt |
|
./pkg/opps/opps_calc.F |
472 |
OPPS_CALC |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
|
./pkg/opps/opps_calc.F |
516 |
OPPS_CALC |
t1 = tLoc |
|
./pkg/opps/opps_calc.F |
517 |
OPPS_CALC |
t2 = t1*t1 |
|
./pkg/opps/opps_calc.F |
518 |
OPPS_CALC |
t3 = t2*t1 |
|
./pkg/opps/opps_calc.F |
519 |
OPPS_CALC |
t4 = t3*t1 |
|
./pkg/opps/opps_calc.F |
552 |
OPPS_CALC |
& + eosJMDCFw(2)*t1 |
|
./pkg/opps/opps_calc.F |
556 |
OPPS_CALC |
& + eosJMDCFw(6)*t4*t1 |
|
./pkg/opps/opps_calc.F |
561 |
OPPS_CALC |
& + eosJMDCSw(2)*t1 |
|
./pkg/opps/opps_calc.F |
568 |
OPPS_CALC |
& + eosJMDCSw(7)*t1 |
|
./pkg/opps/opps_calc.F |
578 |
OPPS_CALC |
& + eosJMDCKFw(2)*t1 |
|
./pkg/opps/opps_calc.F |
585 |
OPPS_CALC |
& + eosJMDCKSw(2)*t1 |
|
./pkg/opps/opps_calc.F |
590 |
OPPS_CALC |
& + eosJMDCKSw(6)*t1 |
|
./pkg/opps/opps_calc.F |
596 |
OPPS_CALC |
& + eosJMDCKP(2)*t1 |
|
./pkg/opps/opps_calc.F |
601 |
OPPS_CALC |
& + eosJMDCKP(6)*t1 |
|
./pkg/opps/opps_calc.F |
606 |
OPPS_CALC |
& + eosJMDCKP(10)*t1 |
|
./pkg/opps/opps_calc.F |
610 |
OPPS_CALC |
& + eosJMDCKP(13)*t1 |
|
./pkg/opps/opps_calc.F |
624 |
OPPS_CALC |
p1t1 = p1*t1 |
|
./pkg/opps/opps_calc.F |
627 |
OPPS_CALC |
& + t1*(eosMDJWFnum(1) |
|
./pkg/opps/opps_calc.F |
628 |
OPPS_CALC |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./pkg/opps/opps_calc.F |
630 |
OPPS_CALC |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./pkg/opps/opps_calc.F |
637 |
OPPS_CALC |
& + t1*(eosMDJWFden(1) |
|
./pkg/opps/opps_calc.F |
638 |
OPPS_CALC |
& + t1*(eosMDJWFden(2) |
|
./pkg/opps/opps_calc.F |
639 |
OPPS_CALC |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./pkg/opps/opps_calc.F |
641 |
OPPS_CALC |
& + t1*(eosMDJWFden(6) |
|
./pkg/seaice/seaice_budget_ice_if.F |
225 |
SEAICE_BUDGET_ICE_IF |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
226 |
SEAICE_BUDGET_ICE_IF |
t2 = t1*t1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
227 |
SEAICE_BUDGET_ICE_IF |
t3 = t2*t1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
230 |
SEAICE_BUDGET_ICE_IF |
tsurfLocOld = t1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
233 |
SEAICE_BUDGET_ICE_IF |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_budget_ice_if.F |
240 |
SEAICE_BUDGET_ICE_IF |
cc3t = 10**(aa1 / t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
250 |
SEAICE_BUDGET_ICE_IF |
F_c(I,J) = -effConduct * (TB - t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
252 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
282 |
SEAICE_BUDGET_ICE_IF |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
283 |
SEAICE_BUDGET_ICE_IF |
t2 = t1*t1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
284 |
SEAICE_BUDGET_ICE_IF |
t3 = t2*t1 |
|
./pkg/seaice/seaice_budget_ice_if.F |
288 |
SEAICE_BUDGET_ICE_IF |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_budget_ice_if.F |
295 |
SEAICE_BUDGET_ICE_IF |
F_c(I,J) = -effConduct * (TB - t1) |
|
./pkg/seaice/seaice_budget_ice_if.F |
297 |
SEAICE_BUDGET_ICE_IF |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ice_if.F |
84 |
SEAICE_BUDGET_ICE_IF |
_RL t1, t2, t3, t4 |
|
./pkg/seaice/seaice_budget_ocean_if.F |
65 |
SEAICE_BUDGET_OCEAN_IF |
_RL t1, t2, t3, t4 |
|
./pkg/seaice/seaice_solve4temp.F |
138 |
SEAICE_SOLVE4TEMP |
_RL t1, t2, t3, t4 |
|
./pkg/seaice/seaice_solve4temp.F |
414 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
415 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
422 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
428 |
SEAICE_SOLVE4TEMP |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_solve4temp.F |
444 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |
|
./pkg/seaice/seaice_solve4temp.F |
450 |
SEAICE_SOLVE4TEMP |
cc3t = exp(aa1 / t1 * lnTEN) |
|
./pkg/seaice/seaice_solve4temp.F |
461 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
& log10(abs(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
556 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
557 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
558 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
562 |
SEAICE_SOLVE4TEMP |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_solve4temp.F |
573 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = -effConduct(I,J) * (TB(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
575 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
587 |
SEAICE_SOLVE4TEMP |
t1 = TSURF(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
588 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
589 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
591 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
595 |
SEAICE_SOLVE4TEMP |
A2(I,J)=-D1*UG(I,J)*t1-D1I*UG(I,J)*qhice(I,J)-D3*t4 |
|
./model/src/find_alpha.F |
135 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
136 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
137 |
FIND_ALPHA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
154 |
FIND_ALPHA |
& + 2.*eosJMDCFw(3)*t1 |
|
./model/src/find_alpha.F |
157 |
FIND_ALPHA |
& + 5.*eosJMDCFw(6)*t3*t1 |
|
./model/src/find_alpha.F |
162 |
FIND_ALPHA |
& + 2.*eosJMDCSw(3)*t1 |
|
./model/src/find_alpha.F |
168 |
FIND_ALPHA |
& + 2.*eosJMDCSw(8)*t1 |
|
./model/src/find_alpha.F |
174 |
FIND_ALPHA |
& + 2.*eosJMDCKFw(3)*t1 |
|
./model/src/find_alpha.F |
180 |
FIND_ALPHA |
& + 2.*eosJMDCKSw(3)*t1 |
|
./model/src/find_alpha.F |
184 |
FIND_ALPHA |
& + 2.*eosJMDCKSw(7)*t1 |
|
./model/src/find_alpha.F |
189 |
FIND_ALPHA |
& + 2.*eosJMDCKP(3)*t1 |
|
./model/src/find_alpha.F |
193 |
FIND_ALPHA |
& + 2.*eosJMDCKP(7)*t1 |
|
./model/src/find_alpha.F |
196 |
FIND_ALPHA |
& + 2.*eosJMDCKP(11)*t1 |
|
./model/src/find_alpha.F |
199 |
FIND_ALPHA |
& + 2.*eosJMDCKP(14)*t1 |
|
./model/src/find_alpha.F |
237 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
238 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
248 |
FIND_ALPHA |
p1t1 = p1*t1 |
|
./model/src/find_alpha.F |
251 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFnum(2) + 3.*eosMDJWFnum(3)*t1) |
|
./model/src/find_alpha.F |
256 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFden(2) |
|
./model/src/find_alpha.F |
257 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(3) |
|
./model/src/find_alpha.F |
258 |
FIND_ALPHA |
& + 4.*eosMDJWFden(4)*t1 ) ) |
|
./model/src/find_alpha.F |
260 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(7)*t1 |
|
./model/src/find_alpha.F |
317 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
|
./model/src/find_alpha.F |
395 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
396 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
397 |
FIND_BETA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
415 |
FIND_BETA |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_alpha.F |
418 |
FIND_BETA |
& + eosJMDCSw(5)*t3*t1 |
|
./model/src/find_alpha.F |
421 |
FIND_BETA |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_alpha.F |
431 |
FIND_BETA |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_alpha.F |
435 |
FIND_BETA |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_alpha.F |
442 |
FIND_BETA |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_alpha.F |
447 |
FIND_BETA |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_alpha.F |
483 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
484 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
494 |
FIND_BETA |
p1t1 = p1*t1 |
|
./model/src/find_alpha.F |
497 |
FIND_BETA |
& + eosMDJWFnum(5)*t1 |
|
./model/src/find_alpha.F |
500 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
|
./model/src/find_alpha.F |
55 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
458 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
|
./model/src/find_rho.F |
463 |
FIND_RHONUM |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
464 |
FIND_RHONUM |
t2 = t1*t1 |
|
./model/src/find_rho.F |
470 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
471 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
473 |
FIND_RHONUM |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
524 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
|
./model/src/find_rho.F |
531 |
FIND_RHODEN |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
532 |
FIND_RHODEN |
t2 = t1*t1 |
|
./model/src/find_rho.F |
542 |
FIND_RHODEN |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
545 |
FIND_RHODEN |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
546 |
FIND_RHODEN |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
547 |
FIND_RHODEN |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
549 |
FIND_RHODEN |
& + t1*(eosMDJWFden(6) |
|
./model/src/find_rho.F |
595 |
FIND_RHO_SCALAR |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
615 |
FIND_RHO_SCALAR |
t1 = tLoc |
|
./model/src/find_rho.F |
616 |
FIND_RHO_SCALAR |
t2 = t1*t1 |
|
./model/src/find_rho.F |
617 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
|
./model/src/find_rho.F |
618 |
FIND_RHO_SCALAR |
t4 = t3*t1 |
|
./model/src/find_rho.F |
664 |
FIND_RHO_SCALAR |
& + eosJMDCFw(2)*t1 |
|
./model/src/find_rho.F |
668 |
FIND_RHO_SCALAR |
& + eosJMDCFw(6)*t4*t1 |
|
./model/src/find_rho.F |
673 |
FIND_RHO_SCALAR |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_rho.F |
680 |
FIND_RHO_SCALAR |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_rho.F |
690 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(2)*t1 |
|
./model/src/find_rho.F |
697 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_rho.F |
702 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_rho.F |
708 |
FIND_RHO_SCALAR |
& + eosJMDCKP(2)*t1 |
|
./model/src/find_rho.F |
713 |
FIND_RHO_SCALAR |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_rho.F |
718 |
FIND_RHO_SCALAR |
& + eosJMDCKP(10)*t1 |
|
./model/src/find_rho.F |
722 |
FIND_RHO_SCALAR |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_rho.F |
736 |
FIND_RHO_SCALAR |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
739 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
740 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
742 |
FIND_RHO_SCALAR |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
749 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
750 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
751 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
753 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(6) |