| 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 |
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 |
1019 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1020 |
CLDSCALE |
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031) |
|
./pkg/fizhi/fizhi_swrad.F |
1097 |
CLDSCALE |
ft=(log10(taux)-t1)/dt |
|
./model/src/find_alpha.F |
140 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./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 |
163 |
FIND_ALPHA |
& + 2.*eosJMDCFw(3)*t1 |
|
./model/src/find_alpha.F |
166 |
FIND_ALPHA |
& + 5.*eosJMDCFw(6)*t3*t1 |
|
./model/src/find_alpha.F |
171 |
FIND_ALPHA |
& + 2.*eosJMDCSw(3)*t1 |
|
./model/src/find_alpha.F |
177 |
FIND_ALPHA |
& + 2.*eosJMDCSw(8)*t1 |
|
./model/src/find_alpha.F |
183 |
FIND_ALPHA |
& + 2.*eosJMDCKFw(3)*t1 |
|
./model/src/find_alpha.F |
189 |
FIND_ALPHA |
& + 2.*eosJMDCKSw(3)*t1 |
|
./model/src/find_alpha.F |
193 |
FIND_ALPHA |
& + 2.*eosJMDCKSw(7)*t1 |
|
./model/src/find_alpha.F |
198 |
FIND_ALPHA |
& + 2.*eosJMDCKP(3)*t1 |
|
./model/src/find_alpha.F |
202 |
FIND_ALPHA |
& + 2.*eosJMDCKP(7)*t1 |
|
./model/src/find_alpha.F |
205 |
FIND_ALPHA |
& + 2.*eosJMDCKP(11)*t1 |
|
./model/src/find_alpha.F |
208 |
FIND_ALPHA |
& + 2.*eosJMDCKP(14)*t1 |
|
./model/src/find_alpha.F |
245 |
FIND_ALPHA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
246 |
FIND_ALPHA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
260 |
FIND_ALPHA |
p1t1 = p1*t1 |
|
./model/src/find_alpha.F |
263 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFnum(2) + 3.*eosMDJWFnum(3)*t1) |
|
./model/src/find_alpha.F |
268 |
FIND_ALPHA |
& + t1*(2.*eosMDJWFden(2) |
|
./model/src/find_alpha.F |
269 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(3) |
|
./model/src/find_alpha.F |
270 |
FIND_ALPHA |
& + 4.*eosMDJWFden(4)*t1 ) ) |
|
./model/src/find_alpha.F |
272 |
FIND_ALPHA |
& + t1*(3.*eosMDJWFden(7)*t1 |
|
./model/src/find_alpha.F |
389 |
FIND_BETA |
_RL t1, t2, t3, s1, s3o2, p1, sp5, p1t1 |
|
./model/src/find_alpha.F |
468 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./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 |
492 |
FIND_BETA |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_alpha.F |
495 |
FIND_BETA |
& + eosJMDCSw(5)*t3*t1 |
|
./model/src/find_alpha.F |
498 |
FIND_BETA |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_alpha.F |
508 |
FIND_BETA |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_alpha.F |
512 |
FIND_BETA |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_alpha.F |
519 |
FIND_BETA |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_alpha.F |
524 |
FIND_BETA |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_alpha.F |
559 |
FIND_BETA |
t1 = theta(i,j,k,bi,bj) |
|
./model/src/find_alpha.F |
560 |
FIND_BETA |
t2 = t1*t1 |
|
./model/src/find_alpha.F |
574 |
FIND_BETA |
p1t1 = p1*t1 |
|
./model/src/find_alpha.F |
577 |
FIND_BETA |
& + eosMDJWFnum(5)*t1 |
|
./model/src/find_alpha.F |
580 |
FIND_BETA |
& + t1*( eosMDJWFden(6) + eosMDJWFden(7)*t2 ) |
|
./model/src/find_alpha.F |
59 |
FIND_ALPHA |
_RL t1, t2, t3, s1, s3o2, p1, p2, sp5, p1t1 |
|
./model/src/find_rho.F |
1000 |
FIND_RHO_SCALAR |
& t1 * eosF5 ))) |
|
./model/src/find_rho.F |
1004 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(2)*t1 |
|
./model/src/find_rho.F |
1012 |
FIND_RHO_SCALAR |
& t1 * ( eosS2 + |
|
./model/src/find_rho.F |
1013 |
FIND_RHO_SCALAR |
& t1 * ( eosS3 + |
|
./model/src/find_rho.F |
1014 |
FIND_RHO_SCALAR |
& t1 * eosS4 ))) |
|
./model/src/find_rho.F |
1016 |
FIND_RHO_SCALAR |
& t1 * ( eosS6 + |
|
./model/src/find_rho.F |
1017 |
FIND_RHO_SCALAR |
& t1 * eosS7 )) |
|
./model/src/find_rho.F |
1020 |
FIND_RHO_SCALAR |
& t1 * ( eosP2 + |
|
./model/src/find_rho.F |
1021 |
FIND_RHO_SCALAR |
& t1 * ( eosP3 + |
|
./model/src/find_rho.F |
1022 |
FIND_RHO_SCALAR |
& t1 * eosP4 ))) |
|
./model/src/find_rho.F |
1024 |
FIND_RHO_SCALAR |
& t1 * ( eosP6 + |
|
./model/src/find_rho.F |
1025 |
FIND_RHO_SCALAR |
& t1 * eosP7 )) |
|
./model/src/find_rho.F |
1028 |
FIND_RHO_SCALAR |
& t1 * ( eosP10 + |
|
./model/src/find_rho.F |
1029 |
FIND_RHO_SCALAR |
& t1 * eosP11 )) |
|
./model/src/find_rho.F |
1031 |
FIND_RHO_SCALAR |
& t1 * ( eosP13 + |
|
./model/src/find_rho.F |
1032 |
FIND_RHO_SCALAR |
& t1 * eosP14 )) |
|
./model/src/find_rho.F |
1037 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_rho.F |
1042 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_rho.F |
1048 |
FIND_RHO_SCALAR |
& + eosJMDCKP(2)*t1 |
|
./model/src/find_rho.F |
1053 |
FIND_RHO_SCALAR |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_rho.F |
1058 |
FIND_RHO_SCALAR |
& + eosJMDCKP(10)*t1 |
|
./model/src/find_rho.F |
1062 |
FIND_RHO_SCALAR |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_rho.F |
1077 |
FIND_RHO_SCALAR |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
1080 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
1081 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
1083 |
FIND_RHO_SCALAR |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
1089 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
1090 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
1091 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
1093 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(6) |
|
./model/src/find_rho.F |
608 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
|
./model/src/find_rho.F |
613 |
FIND_RHONUM |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
614 |
FIND_RHONUM |
t2 = t1*t1 |
|
./model/src/find_rho.F |
620 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
621 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
623 |
FIND_RHONUM |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
674 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
|
./model/src/find_rho.F |
681 |
FIND_RHODEN |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
682 |
FIND_RHODEN |
t2 = t1*t1 |
|
./model/src/find_rho.F |
696 |
FIND_RHODEN |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
699 |
FIND_RHODEN |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
700 |
FIND_RHODEN |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
701 |
FIND_RHODEN |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
703 |
FIND_RHODEN |
& + t1*(eosMDJWFden(6) |
|
./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 |
900 |
FIND_RHO_SCALAR |
t1 = tLoc |
|
./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 |
903 |
FIND_RHO_SCALAR |
t4 = t3*t1 |
|
./model/src/find_rho.F |
950 |
FIND_RHO_SCALAR |
& t1* ( eosF2 + |
|
./model/src/find_rho.F |
951 |
FIND_RHO_SCALAR |
& t1* ( eosF3 + |
|
./model/src/find_rho.F |
952 |
FIND_RHO_SCALAR |
& t1* ( eosF4 + |
|
./model/src/find_rho.F |
953 |
FIND_RHO_SCALAR |
& t1* ( eosF5 + |
|
./model/src/find_rho.F |
954 |
FIND_RHO_SCALAR |
& t1* eosF6 )))) |
|
./model/src/find_rho.F |
958 |
FIND_RHO_SCALAR |
& + eosJMDCFw(2)*t1 |
|
./model/src/find_rho.F |
962 |
FIND_RHO_SCALAR |
& + eosJMDCFw(6)*t4*t1 |
|
./model/src/find_rho.F |
967 |
FIND_RHO_SCALAR |
& t1 * ( eosS2 + |
|
./model/src/find_rho.F |
968 |
FIND_RHO_SCALAR |
& t1 * ( eosS3 + |
|
./model/src/find_rho.F |
969 |
FIND_RHO_SCALAR |
& t1 * ( eosS4 + |
|
./model/src/find_rho.F |
970 |
FIND_RHO_SCALAR |
& t1 * eosS5 )))) |
|
./model/src/find_rho.F |
972 |
FIND_RHO_SCALAR |
& t1 * ( eosS7 + |
|
./model/src/find_rho.F |
973 |
FIND_RHO_SCALAR |
& t1 * eosS8 )) |
|
./model/src/find_rho.F |
979 |
FIND_RHO_SCALAR |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_rho.F |
986 |
FIND_RHO_SCALAR |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_rho.F |
997 |
FIND_RHO_SCALAR |
& t1 * ( eosF2 + |
|
./model/src/find_rho.F |
998 |
FIND_RHO_SCALAR |
& t1 * ( eosF3 + |
|
./model/src/find_rho.F |
999 |
FIND_RHO_SCALAR |
& t1 * ( eosF4 + |
|
./pkg/seaice/seaice_solve4temp.F |
107 |
SEAICE_SOLVE4TEMP |
_RL t1, t2, t3, t4 |
|
./pkg/seaice/seaice_solve4temp.F |
367 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./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 |
375 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
380 |
SEAICE_SOLVE4TEMP |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_solve4temp.F |
390 |
SEAICE_SOLVE4TEMP |
cc3t = EXP(aa1 / t1 * lnTEN) |
|
./pkg/seaice/seaice_solve4temp.F |
412 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
455 |
SEAICE_SOLVE4TEMP |
& LOG10(ABS(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
480 |
SEAICE_SOLVE4TEMP |
t1 = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
485 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./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 |
492 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
495 |
SEAICE_SOLVE4TEMP |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_solve4temp.F |
503 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J) * (tempFrz(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
511 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/debug/debug_cs_corner_uv.F |
113 |
DEBUG_CS_CORNER_UV |
t1 = W2_myTileList(i,j) |
|
./pkg/debug/debug_cs_corner_uv.F |
114 |
DEBUG_CS_CORNER_UV |
t2 = exch2_neighbourId(4,t1) |
|
./pkg/debug/debug_cs_corner_uv.F |
115 |
DEBUG_CS_CORNER_UV |
t3 = exch2_neighbourId(2,t1) |
|
./pkg/debug/debug_cs_corner_uv.F |
119 |
DEBUG_CS_CORNER_UV |
IF ( n2.GE.1 .AND. exch2_pij(3,4,t1).EQ.-1 ) THEN |
|
./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 |
127 |
DEBUG_CS_CORNER_UV |
IF ( n2.GE.1 .AND. exch2_pij(4,4,t1).EQ.1 ) THEN |
|
./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 |
135 |
DEBUG_CS_CORNER_UV |
IF ( n3.GE.1 .AND. exch2_pij(1,2,t1).EQ.1 ) THEN |
|
./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 |
143 |
DEBUG_CS_CORNER_UV |
IF ( n3.GE.1 .AND. exch2_pij(2,2,t1).EQ.-1 ) THEN |
|
./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 |