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 |
1002 |
FIND_RHO_SCALAR |
& + eosJMDCSw(3)*t2 |
./model/src/find_rho.F |
1009 |
FIND_RHO_SCALAR |
& + eosJMDCSw(8)*t2 |
./model/src/find_rho.F |
1027 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(3)*t2 |
./model/src/find_rho.F |
1060 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(3)*t2 |
./model/src/find_rho.F |
1065 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(7)*t2 |
./model/src/find_rho.F |
1071 |
FIND_RHO_SCALAR |
& + eosJMDCKP(3)*t2 |
./model/src/find_rho.F |
1076 |
FIND_RHO_SCALAR |
& + eosJMDCKP(7)*t2 |
./model/src/find_rho.F |
1081 |
FIND_RHO_SCALAR |
& + eosJMDCKP(11)*t2 |
./model/src/find_rho.F |
1085 |
FIND_RHO_SCALAR |
& + eosJMDCKP(14)*t2 |
./model/src/find_rho.F |
1106 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
./model/src/find_rho.F |
1108 |
FIND_RHO_SCALAR |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
./model/src/find_rho.F |
1116 |
FIND_RHO_SCALAR |
& + eosMDJWFden(7)*t2) |
./model/src/find_rho.F |
1117 |
FIND_RHO_SCALAR |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./model/src/find_rho.F |
1119 |
FIND_RHO_SCALAR |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
./model/src/find_rho.F |
308 |
FIND_RHOP0 |
_RL t, t2, t3, t4, s, s3o2 |
./model/src/find_rho.F |
337 |
FIND_RHOP0 |
t2 = t*t |
./model/src/find_rho.F |
338 |
FIND_RHOP0 |
t3 = t2*t |
./model/src/find_rho.F |
366 |
FIND_RHOP0 |
& + eosJMDCFw(3)*t2 |
./model/src/find_rho.F |
387 |
FIND_RHOP0 |
& + eosJMDCSw(3)*t2 |
./model/src/find_rho.F |
394 |
FIND_RHOP0 |
& + eosJMDCSw(8)*t2 |
./model/src/find_rho.F |
447 |
FIND_BULKMOD |
_RL t, t2, t3, t4, s, s3o2, p, p2 |
./model/src/find_rho.F |
490 |
FIND_BULKMOD |
t2 = t*t |
./model/src/find_rho.F |
491 |
FIND_BULKMOD |
t3 = t2*t |
./model/src/find_rho.F |
519 |
FIND_BULKMOD |
& + eosJMDCKFw(3)*t2 |
./model/src/find_rho.F |
552 |
FIND_BULKMOD |
& + eosJMDCKSw(3)*t2 |
./model/src/find_rho.F |
557 |
FIND_BULKMOD |
& + eosJMDCKSw(7)*t2 |
./model/src/find_rho.F |
563 |
FIND_BULKMOD |
& + eosJMDCKP(3)*t2 |
./model/src/find_rho.F |
568 |
FIND_BULKMOD |
& + eosJMDCKP(7)*t2 |
./model/src/find_rho.F |
573 |
FIND_BULKMOD |
& + eosJMDCKP(11)*t2 |
./model/src/find_rho.F |
577 |
FIND_BULKMOD |
& + eosJMDCKP(14)*t2 |
./model/src/find_rho.F |
629 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
./model/src/find_rho.F |
635 |
FIND_RHONUM |
t2 = t1*t1 |
./model/src/find_rho.F |
645 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(7) + eosMDJWFnum(8)*t2 |
./model/src/find_rho.F |
647 |
FIND_RHONUM |
& + p1*(eosMDJWFnum(10) + eosMDJWFnum(11)*t2) ) |
./model/src/find_rho.F |
695 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
./model/src/find_rho.F |
703 |
FIND_RHODEN |
t2 = t1*t1 |
./model/src/find_rho.F |
725 |
FIND_RHODEN |
& + eosMDJWFden(7)*t2) |
./model/src/find_rho.F |
726 |
FIND_RHODEN |
& + sp5*(eosMDJWFden(8) + eosMDJWFden(9)*t2) ) |
./model/src/find_rho.F |
728 |
FIND_RHODEN |
& + p1t1*(eosMDJWFden(11)*t2 + eosMDJWFden(12)*p1) ) |
./model/src/find_rho.F |
861 |
FIND_RHO_SCALAR |
_RL t1, t2, t3, t4, s1, s3o2, p1, p2, sp5, p1t1 |
./model/src/find_rho.F |
923 |
FIND_RHO_SCALAR |
t2 = t1*t1 |
./model/src/find_rho.F |
924 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
./model/src/find_rho.F |
981 |
FIND_RHO_SCALAR |
& + eosJMDCFw(3)*t2 |
./pkg/seaice/seaice_solve4temp.F |
110 |
SEAICE_SOLVE4TEMP |
_RL t1, t2, t3, t4 |
./pkg/seaice/seaice_solve4temp.F |
371 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
./pkg/seaice/seaice_solve4temp.F |
372 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
./pkg/seaice/seaice_solve4temp.F |
373 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
./pkg/seaice/seaice_solve4temp.F |
378 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
./pkg/seaice/seaice_solve4temp.F |
395 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2) |
./pkg/seaice/seaice_solve4temp.F |
490 |
SEAICE_SOLVE4TEMP |
t2 = t1*t1 |
./pkg/seaice/seaice_solve4temp.F |
491 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
./pkg/seaice/seaice_solve4temp.F |
492 |
SEAICE_SOLVE4TEMP |
t4 = t2*t2 |
./pkg/seaice/seaice_solve4temp.F |
495 |
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 |