| File |
Line number |
Procedure |
Code |
|
./model/src/find_alpha.F |
131 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
132 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
133 |
FIND_ALPHA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
150 |
FIND_ALPHA |
& + 2.*eosJMDCFw(3)*t1 |
|
./model/src/find_alpha.F |
153 |
FIND_ALPHA |
& + 5.*eosJMDCFw(6)*t3*t1 |
|
./model/src/find_alpha.F |
158 |
FIND_ALPHA |
& + 2.*eosJMDCSw(3)*t1 |
|
./model/src/find_alpha.F |
164 |
FIND_ALPHA |
& + 2.*eosJMDCSw(8)*t1 |
|
./model/src/find_alpha.F |
170 |
FIND_ALPHA |
& + 2.*eosJMDCKFw(3)*t1 |
|
./model/src/find_alpha.F |
176 |
FIND_ALPHA |
& + 2.*eosJMDCKSw(3)*t1 |
|
./model/src/find_alpha.F |
180 |
FIND_ALPHA |
& + 2.*eosJMDCKSw(7)*t1 |
|
./model/src/find_alpha.F |
185 |
FIND_ALPHA |
& + 2.*eosJMDCKP(3)*t1 |
|
./model/src/find_alpha.F |
189 |
FIND_ALPHA |
& + 2.*eosJMDCKP(7)*t1 |
|
./model/src/find_alpha.F |
192 |
FIND_ALPHA |
& + 2.*eosJMDCKP(11)*t1 |
|
./model/src/find_alpha.F |
195 |
FIND_ALPHA |
& + 2.*eosJMDCKP(14)*t1 |
|
./model/src/find_alpha.F |
230 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
231 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
241 |
FIND_ALPHA |
p1t1 = p1*t1 |
|
./model/src/find_alpha.F |
244 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFnum(2) + 3.*eosMDJWFnum(3)*t1) |
|
./model/src/find_alpha.F |
249 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFden(2) |
|
./model/src/find_alpha.F |
250 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(3) |
|
./model/src/find_alpha.F |
251 |
FIND_ALPHA |
& + 4.*eosMDJWFden(4)*t1 ) ) |
|
./model/src/find_alpha.F |
253 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(7)*t1 |
|
./model/src/find_alpha.F |
307 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
|
./model/src/find_alpha.F |
384 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
385 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
386 |
FIND_BETA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
404 |
FIND_BETA |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_alpha.F |
407 |
FIND_BETA |
& + eosJMDCSw(5)*t3*t1 |
|
./model/src/find_alpha.F |
410 |
FIND_BETA |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_alpha.F |
420 |
FIND_BETA |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_alpha.F |
424 |
FIND_BETA |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_alpha.F |
431 |
FIND_BETA |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_alpha.F |
436 |
FIND_BETA |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_alpha.F |
469 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
470 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
480 |
FIND_BETA |
p1t1 = p1*t1 |
|
./model/src/find_alpha.F |
483 |
FIND_BETA |
& + eosMDJWFnum(5)*t1 |
|
./model/src/find_alpha.F |
486 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
|
./model/src/find_alpha.F |
52 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
|
./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 |
1011 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1012 |
CLDSCALE |
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) |
|
./pkg/fizhi/fizhi_swrad.F |
1089 |
CLDSCALE |
ft=(log10(taux)-t1)/dt |
|
./model/src/find_rho.F |
454 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
|
./model/src/find_rho.F |
459 |
FIND_RHONUM |
t1 = tFld(i,j,k,bi,bj) |
|
./model/src/find_rho.F |
460 |
FIND_RHONUM |
t2 = t1*t1 |
|
./model/src/find_rho.F |
466 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
467 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
469 |
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,k,bi,bj) |
|
./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 |
592 |
FIND_RHO_SCALAR |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
613 |
FIND_RHO_SCALAR |
t1 = tLoc |
|
./model/src/find_rho.F |
614 |
FIND_RHO_SCALAR |
t2 = t1*t1 |
|
./model/src/find_rho.F |
615 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
|
./model/src/find_rho.F |
616 |
FIND_RHO_SCALAR |
t4 = t3*t1 |
|
./model/src/find_rho.F |
662 |
FIND_RHO_SCALAR |
& + eosJMDCFw(2)*t1 |
|
./model/src/find_rho.F |
666 |
FIND_RHO_SCALAR |
& + eosJMDCFw(6)*t4*t1 |
|
./model/src/find_rho.F |
671 |
FIND_RHO_SCALAR |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_rho.F |
678 |
FIND_RHO_SCALAR |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_rho.F |
688 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(2)*t1 |
|
./model/src/find_rho.F |
695 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_rho.F |
700 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_rho.F |
706 |
FIND_RHO_SCALAR |
& + eosJMDCKP(2)*t1 |
|
./model/src/find_rho.F |
711 |
FIND_RHO_SCALAR |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_rho.F |
716 |
FIND_RHO_SCALAR |
& + eosJMDCKP(10)*t1 |
|
./model/src/find_rho.F |
720 |
FIND_RHO_SCALAR |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_rho.F |
734 |
FIND_RHO_SCALAR |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
737 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
738 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
740 |
FIND_RHO_SCALAR |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
747 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
748 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
749 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
751 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(6) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1011 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1012 |
CLDSCALE |
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F |
1089 |
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) |