| 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) |
|
./model/src/find_alpha.F |
141 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
142 |
FIND_ALPHA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
164 |
FIND_ALPHA |
& + 3.*eosJMDCFw(4)*t2 |
|
./model/src/find_alpha.F |
172 |
FIND_ALPHA |
& + 3.*eosJMDCSw(4)*t2 |
|
./model/src/find_alpha.F |
184 |
FIND_ALPHA |
& + 3.*eosJMDCKFw(4)*t2 |
|
./model/src/find_alpha.F |
190 |
FIND_ALPHA |
& + 3.*eosJMDCKSw(4)*t2 |
|
./model/src/find_alpha.F |
199 |
FIND_ALPHA |
& + 3.*eosJMDCKP(4)*t2 |
|
./model/src/find_alpha.F |
246 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
274 |
FIND_ALPHA |
& + p1*p1*(3.*eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) |
|
./model/src/find_alpha.F |
389 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
|
./model/src/find_alpha.F |
469 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
470 |
FIND_BETA |
t3 = t2*t1 |
|
./model/src/find_alpha.F |
493 |
FIND_BETA |
& + eosJMDCSw(3)*t2 |
|
./model/src/find_alpha.F |
499 |
FIND_BETA |
& + eosJMDCSw(8)*t2 |
|
./model/src/find_alpha.F |
509 |
FIND_BETA |
& + eosJMDCKSw(3)*t2 |
|
./model/src/find_alpha.F |
513 |
FIND_BETA |
& + eosJMDCKSw(7)*t2 |
|
./model/src/find_alpha.F |
520 |
FIND_BETA |
& + eosJMDCKP(7)*t2 |
|
./model/src/find_alpha.F |
525 |
FIND_BETA |
& + eosJMDCKP(14)*t2 |
|
./model/src/find_alpha.F |
560 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
580 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
|
./model/src/find_alpha.F |
581 |
FIND_BETA |
& + 1.5*sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) |
|
./model/src/find_alpha.F |
59 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
1005 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(3)*t2 |
|
./model/src/find_rho.F |
1038 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(3)*t2 |
|
./model/src/find_rho.F |
1043 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(7)*t2 |
|
./model/src/find_rho.F |
1049 |
FIND_RHO_SCALAR |
& + eosJMDCKP(3)*t2 |
|
./model/src/find_rho.F |
1054 |
FIND_RHO_SCALAR |
& + eosJMDCKP(7)*t2 |
|
./model/src/find_rho.F |
1059 |
FIND_RHO_SCALAR |
& + eosJMDCKP(11)*t2 |
|
./model/src/find_rho.F |
1063 |
FIND_RHO_SCALAR |
& + eosJMDCKP(14)*t2 |
|
./model/src/find_rho.F |
1084 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
|
./model/src/find_rho.F |
1086 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
|
./model/src/find_rho.F |
1094 |
FIND_RHO_SCALAR |
& + eosMDJWFden(7)*t2) |
|
./model/src/find_rho.F |
1095 |
FIND_RHO_SCALAR |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
|
./model/src/find_rho.F |
1097 |
FIND_RHO_SCALAR |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
|
./model/src/find_rho.F |
287 |
FIND_RHOP0 |
_RL t, t2, t3, t4, s, s3o2 |
|
./model/src/find_rho.F |
316 |
FIND_RHOP0 |
t2 = t*t |
|
./model/src/find_rho.F |
317 |
FIND_RHOP0 |
t3 = t2*t |
|
./model/src/find_rho.F |
345 |
FIND_RHOP0 |
& + eosJMDCFw(3)*t2 |
|
./model/src/find_rho.F |
366 |
FIND_RHOP0 |
& + eosJMDCSw(3)*t2 |
|
./model/src/find_rho.F |
373 |
FIND_RHOP0 |
& + eosJMDCSw(8)*t2 |
|
./model/src/find_rho.F |
426 |
FIND_BULKMOD |
_RL t, t2, t3, t4, s, s3o2, p, p2 |
|
./model/src/find_rho.F |
469 |
FIND_BULKMOD |
t2 = t*t |
|
./model/src/find_rho.F |
470 |
FIND_BULKMOD |
t3 = t2*t |
|
./model/src/find_rho.F |
498 |
FIND_BULKMOD |
& + eosJMDCKFw(3)*t2 |
|
./model/src/find_rho.F |
531 |
FIND_BULKMOD |
& + eosJMDCKSw(3)*t2 |
|
./model/src/find_rho.F |
536 |
FIND_BULKMOD |
& + eosJMDCKSw(7)*t2 |
|
./model/src/find_rho.F |
542 |
FIND_BULKMOD |
& + eosJMDCKP(3)*t2 |
|
./model/src/find_rho.F |
547 |
FIND_BULKMOD |
& + eosJMDCKP(7)*t2 |
|
./model/src/find_rho.F |
552 |
FIND_BULKMOD |
& + eosJMDCKP(11)*t2 |
|
./model/src/find_rho.F |
556 |
FIND_BULKMOD |
& + eosJMDCKP(14)*t2 |
|
./model/src/find_rho.F |
608 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
|
./model/src/find_rho.F |
614 |
FIND_RHONUM |
t2 = t1*t1 |
|
./model/src/find_rho.F |
624 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
|
./model/src/find_rho.F |
626 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
|
./model/src/find_rho.F |
674 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
|
./model/src/find_rho.F |
682 |
FIND_RHODEN |
t2 = t1*t1 |
|
./model/src/find_rho.F |
704 |
FIND_RHODEN |
& + eosMDJWFden(7)*t2) |
|
./model/src/find_rho.F |
705 |
FIND_RHODEN |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
|
./model/src/find_rho.F |
707 |
FIND_RHODEN |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
|
./model/src/find_rho.F |
840 |
FIND_RHO_SCALAR |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
901 |
FIND_RHO_SCALAR |
t2 = t1*t1 |
|
./model/src/find_rho.F |
902 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
|
./model/src/find_rho.F |
959 |
FIND_RHO_SCALAR |
& + eosJMDCFw(3)*t2 |
|
./model/src/find_rho.F |
980 |
FIND_RHO_SCALAR |
& + eosJMDCSw(3)*t2 |
|
./model/src/find_rho.F |
987 |
FIND_RHO_SCALAR |
& + eosJMDCSw(8)*t2 |
|
./pkg/seaice/seaice_solve4temp.F |
107 |
SEAICE_SOLVE4TEMP |
_RL t1, t2, t3, t4 |
|
./pkg/seaice/seaice_solve4temp.F |
368 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
369 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
370 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
|
./pkg/seaice/seaice_solve4temp.F |
375 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
392 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2) |
|
./pkg/seaice/seaice_solve4temp.F |
487 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
488 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
|
./pkg/seaice/seaice_solve4temp.F |
489 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
|
./pkg/seaice/seaice_solve4temp.F |
492 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/debug/debug_cs_corner_uv.F |
114 |
DEBUG_CS_CORNER_UV |
t2 = exch2_neighbourId(4,t1) |
|
./pkg/debug/debug_cs_corner_uv.F |
116 |
DEBUG_CS_CORNER_UV |
IF ( W2_tileProc(t2).EQ.myProcId+1 ) n2 = W2_tileIndex(t2) |
|
./pkg/debug/debug_cs_corner_uv.F |
121 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(1,k,n1), t2,tmpV(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
124 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(2,k,n1), t2,tmpV(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
129 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(1,k,n1), t2,tmpU(3,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
132 |
DEBUG_CS_CORNER_UV |
& t1,tmpU(2,k,n1), t2,tmpU(4,k,n2), |
|
./pkg/debug/debug_cs_corner_uv.F |
67 |
DEBUG_CS_CORNER_UV |
INTEGER t1, t2, t3 |