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 |
2567 |
TABLUP |
t2 = ca*(1.-fw) + cb*fw |
./pkg/fizhi/fizhi_lwrad.F |
2571 |
TABLUP |
tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j) |
./pkg/opps/opps_calc.F |
472 |
OPPS_CALC |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
./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 |
553 |
OPPS_CALC |
& + eosJMDCFw(3)*t2 |
./pkg/opps/opps_calc.F |
562 |
OPPS_CALC |
& + eosJMDCSw(3)*t2 |
./pkg/opps/opps_calc.F |
569 |
OPPS_CALC |
& + eosJMDCSw(8)*t2 |
./pkg/opps/opps_calc.F |
579 |
OPPS_CALC |
& + eosJMDCKFw(3)*t2 |
./pkg/opps/opps_calc.F |
586 |
OPPS_CALC |
& + eosJMDCKSw(3)*t2 |
./pkg/opps/opps_calc.F |
591 |
OPPS_CALC |
& + eosJMDCKSw(7)*t2 |
./pkg/opps/opps_calc.F |
597 |
OPPS_CALC |
& + eosJMDCKP(3)*t2 |
./pkg/opps/opps_calc.F |
602 |
OPPS_CALC |
& + eosJMDCKP(7)*t2 |
./pkg/opps/opps_calc.F |
607 |
OPPS_CALC |
& + eosJMDCKP(11)*t2 |
./pkg/opps/opps_calc.F |
611 |
OPPS_CALC |
& + eosJMDCKP(14)*t2 |
./pkg/opps/opps_calc.F |
631 |
OPPS_CALC |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
./pkg/opps/opps_calc.F |
633 |
OPPS_CALC |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
./pkg/opps/opps_calc.F |
642 |
OPPS_CALC |
& + eosMDJWFden(7)*t2) |
./pkg/opps/opps_calc.F |
643 |
OPPS_CALC |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./pkg/opps/opps_calc.F |
645 |
OPPS_CALC |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
./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 |
228 |
SEAICE_BUDGET_ICE_IF |
t4 = t2*t2 |
./pkg/seaice/seaice_budget_ice_if.F |
242 |
SEAICE_BUDGET_ICE_IF |
dqhice_dTice = cc1 * cc3t /( (cc2-cc3t*Ppascals)**2 * t2) |
./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 |
285 |
SEAICE_BUDGET_ICE_IF |
t4 = t2*t2 |
./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 |
415 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
./pkg/seaice/seaice_solve4temp.F |
417 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
./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 |
453 |
SEAICE_SOLVE4TEMP |
dqhice_dTice = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2) |
./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 |
559 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
./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 |
590 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
./pkg/seaice/seaice_solve4temp.F |
591 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
./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 |
155 |
FIND_ALPHA |
& + 3.*eosJMDCFw(4)*t2 |
./model/src/find_alpha.F |
163 |
FIND_ALPHA |
& + 3.*eosJMDCSw(4)*t2 |
./model/src/find_alpha.F |
175 |
FIND_ALPHA |
& + 3.*eosJMDCKFw(4)*t2 |
./model/src/find_alpha.F |
181 |
FIND_ALPHA |
& + 3.*eosJMDCKSw(4)*t2 |
./model/src/find_alpha.F |
190 |
FIND_ALPHA |
& + 3.*eosJMDCKP(4)*t2 |
./model/src/find_alpha.F |
238 |
FIND_ALPHA |
t2 = t1*t1 |
./model/src/find_alpha.F |
262 |
FIND_ALPHA |
& + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) |
./model/src/find_alpha.F |
317 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
./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 |
416 |
FIND_BETA |
& + eosJMDCSw(3)*t2 |
./model/src/find_alpha.F |
422 |
FIND_BETA |
& + eosJMDCSw(8)*t2 |
./model/src/find_alpha.F |
432 |
FIND_BETA |
& + eosJMDCKSw(3)*t2 |
./model/src/find_alpha.F |
436 |
FIND_BETA |
& + eosJMDCKSw(7)*t2 |
./model/src/find_alpha.F |
443 |
FIND_BETA |
& + eosJMDCKP(7)*t2 |
./model/src/find_alpha.F |
448 |
FIND_BETA |
& + eosJMDCKP(14)*t2 |
./model/src/find_alpha.F |
484 |
FIND_BETA |
t2 = t1*t1 |
./model/src/find_alpha.F |
500 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
./model/src/find_alpha.F |
501 |
FIND_BETA |
& + 1.5*sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) |
./model/src/find_alpha.F |
55 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
./model/src/find_rho.F |
259 |
FIND_RHOP0 |
_RL t, t2, t3, t4, s, s3o2 |
./model/src/find_rho.F |
266 |
FIND_RHOP0 |
t2 = t*t |
./model/src/find_rho.F |
267 |
FIND_RHOP0 |
t3 = t2*t |
./model/src/find_rho.F |
282 |
FIND_RHOP0 |
& + eosJMDCFw(3)*t2 |
./model/src/find_rho.F |
291 |
FIND_RHOP0 |
& + eosJMDCSw(3)*t2 |
./model/src/find_rho.F |
298 |
FIND_RHOP0 |
& + eosJMDCSw(8)*t2 |
./model/src/find_rho.F |
350 |
FIND_BULKMOD |
_RL t, t2, t3, t4, s, s3o2, p, p2 |
./model/src/find_rho.F |
357 |
FIND_BULKMOD |
t2 = t*t |
./model/src/find_rho.F |
358 |
FIND_BULKMOD |
t3 = t2*t |
./model/src/find_rho.F |
375 |
FIND_BULKMOD |
& + eosJMDCKFw(3)*t2 |
./model/src/find_rho.F |
382 |
FIND_BULKMOD |
& + eosJMDCKSw(3)*t2 |
./model/src/find_rho.F |
387 |
FIND_BULKMOD |
& + eosJMDCKSw(7)*t2 |
./model/src/find_rho.F |
393 |
FIND_BULKMOD |
& + eosJMDCKP(3)*t2 |
./model/src/find_rho.F |
398 |
FIND_BULKMOD |
& + eosJMDCKP(7)*t2 |
./model/src/find_rho.F |
403 |
FIND_BULKMOD |
& + eosJMDCKP(11)*t2 |
./model/src/find_rho.F |
407 |
FIND_BULKMOD |
& + eosJMDCKP(14)*t2 |
./model/src/find_rho.F |
458 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
./model/src/find_rho.F |
464 |
FIND_RHONUM |
t2 = t1*t1 |
./model/src/find_rho.F |
474 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
./model/src/find_rho.F |
476 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
./model/src/find_rho.F |
524 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
./model/src/find_rho.F |
532 |
FIND_RHODEN |
t2 = t1*t1 |
./model/src/find_rho.F |
550 |
FIND_RHODEN |
& + eosMDJWFden(7)*t2) |
./model/src/find_rho.F |
551 |
FIND_RHODEN |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./model/src/find_rho.F |
553 |
FIND_RHODEN |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
./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 |
616 |
FIND_RHO_SCALAR |
t2 = t1*t1 |
./model/src/find_rho.F |
617 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
./model/src/find_rho.F |
665 |
FIND_RHO_SCALAR |
& + eosJMDCFw(3)*t2 |
./model/src/find_rho.F |
674 |
FIND_RHO_SCALAR |
& + eosJMDCSw(3)*t2 |
./model/src/find_rho.F |
681 |
FIND_RHO_SCALAR |
& + eosJMDCSw(8)*t2 |
./model/src/find_rho.F |
691 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(3)*t2 |
./model/src/find_rho.F |
698 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(3)*t2 |
./model/src/find_rho.F |
703 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(7)*t2 |
./model/src/find_rho.F |
709 |
FIND_RHO_SCALAR |
& + eosJMDCKP(3)*t2 |
./model/src/find_rho.F |
714 |
FIND_RHO_SCALAR |
& + eosJMDCKP(7)*t2 |
./model/src/find_rho.F |
719 |
FIND_RHO_SCALAR |
& + eosJMDCKP(11)*t2 |
./model/src/find_rho.F |
723 |
FIND_RHO_SCALAR |
& + eosJMDCKP(14)*t2 |
./model/src/find_rho.F |
743 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
./model/src/find_rho.F |
745 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
./model/src/find_rho.F |
754 |
FIND_RHO_SCALAR |
& + eosMDJWFden(7)*t2) |
./model/src/find_rho.F |
755 |
FIND_RHO_SCALAR |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./model/src/find_rho.F |
757 |
FIND_RHO_SCALAR |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |