File |
Line number |
Procedure |
Code |
./model/src/find_alpha.F |
142 |
FIND_ALPHA |
t3 = t2*t1 |
./model/src/find_alpha.F |
165 |
FIND_ALPHA |
& + 4.*eosJMDCFw(5)*t3 |
./model/src/find_alpha.F |
166 |
FIND_ALPHA |
& + 5.*eosJMDCFw(6)*t3*t1 |
./model/src/find_alpha.F |
173 |
FIND_ALPHA |
& + 4.*eosJMDCSw(5)*t3 |
./model/src/find_alpha.F |
185 |
FIND_ALPHA |
& + 4.*eosJMDCKFw(5)*t3 |
./model/src/find_alpha.F |
389 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
./model/src/find_alpha.F |
470 |
FIND_BETA |
t3 = t2*t1 |
./model/src/find_alpha.F |
494 |
FIND_BETA |
& + eosJMDCSw(4)*t3 |
./model/src/find_alpha.F |
495 |
FIND_BETA |
& + eosJMDCSw(5)*t3*t1 |
./model/src/find_alpha.F |
510 |
FIND_BETA |
& + eosJMDCKSw(4)*t3 |
./model/src/find_alpha.F |
59 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
./model/src/find_rho.F |
1003 |
FIND_RHO_SCALAR |
& + eosJMDCSw(4)*t3 |
./model/src/find_rho.F |
1028 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(4)*t3 |
./model/src/find_rho.F |
1061 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(4)*t3 |
./model/src/find_rho.F |
1072 |
FIND_RHO_SCALAR |
& + eosJMDCKP(4)*t3 |
./model/src/find_rho.F |
308 |
FIND_RHOP0 |
_RL t, t2, t3, t4, s, s3o2 |
./model/src/find_rho.F |
338 |
FIND_RHOP0 |
t3 = t2*t |
./model/src/find_rho.F |
339 |
FIND_RHOP0 |
t4 = t3*t |
./model/src/find_rho.F |
367 |
FIND_RHOP0 |
& + eosJMDCFw(4)*t3 |
./model/src/find_rho.F |
388 |
FIND_RHOP0 |
& + eosJMDCSw(4)*t3 |
./model/src/find_rho.F |
447 |
FIND_BULKMOD |
_RL t, t2, t3, t4, s, s3o2, p, p2 |
./model/src/find_rho.F |
491 |
FIND_BULKMOD |
t3 = t2*t |
./model/src/find_rho.F |
492 |
FIND_BULKMOD |
t4 = t3*t |
./model/src/find_rho.F |
520 |
FIND_BULKMOD |
& + eosJMDCKFw(4)*t3 |
./model/src/find_rho.F |
553 |
FIND_BULKMOD |
& + eosJMDCKSw(4)*t3 |
./model/src/find_rho.F |
564 |
FIND_BULKMOD |
& + eosJMDCKP(4)*t3 |
./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 |
924 |
FIND_RHO_SCALAR |
t3 = t2*t1 |
./model/src/find_rho.F |
925 |
FIND_RHO_SCALAR |
t4 = t3*t1 |
./model/src/find_rho.F |
982 |
FIND_RHO_SCALAR |
& + eosJMDCFw(4)*t3 |
./pkg/seaice/seaice_solve4temp.F |
110 |
SEAICE_SOLVE4TEMP |
_RL t1, t2, t3, t4 |
./pkg/seaice/seaice_solve4temp.F |
372 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
./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 |
419 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(I,J) |
./pkg/seaice/seaice_solve4temp.F |
491 |
SEAICE_SOLVE4TEMP |
t3 = t2*t1 |
./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 |
115 |
DEBUG_CS_CORNER_UV |
t3 = exch2_neighbourId(2,t1) |
./pkg/debug/debug_cs_corner_uv.F |
117 |
DEBUG_CS_CORNER_UV |
IF ( W2_tileProc(t3).EQ.myProcId+1 ) n3 = W2_tileIndex(t3) |
./pkg/debug/debug_cs_corner_uv.F |
137 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpV(3,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
140 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpV(4,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
145 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(1,k,n1), t3,tmpU(4,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
148 |
DEBUG_CS_CORNER_UV |
& t1,tmpV(2,k,n1), t3,tmpU(3,k,n3), |
./pkg/debug/debug_cs_corner_uv.F |
67 |
DEBUG_CS_CORNER_UV |
INTEGER t1, t2, t3 |