| 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 |
1001 |
FIND_RHO_SCALAR |
& + eosJMDCSw(2)*t1 |
|
./model/src/find_rho.F |
1008 |
FIND_RHO_SCALAR |
& + eosJMDCSw(7)*t1 |
|
./model/src/find_rho.F |
1019 |
FIND_RHO_SCALAR |
& t1 * ( eosF2 + |
|
./model/src/find_rho.F |
1020 |
FIND_RHO_SCALAR |
& t1 * ( eosF3 + |
|
./model/src/find_rho.F |
1021 |
FIND_RHO_SCALAR |
& t1 * ( eosF4 + |
|
./model/src/find_rho.F |
1022 |
FIND_RHO_SCALAR |
& t1 * eosF5 ))) |
|
./model/src/find_rho.F |
1026 |
FIND_RHO_SCALAR |
& + eosJMDCKFw(2)*t1 |
|
./model/src/find_rho.F |
1034 |
FIND_RHO_SCALAR |
& t1 * ( eosS2 + |
|
./model/src/find_rho.F |
1035 |
FIND_RHO_SCALAR |
& t1 * ( eosS3 + |
|
./model/src/find_rho.F |
1036 |
FIND_RHO_SCALAR |
& t1 * eosS4 ))) |
|
./model/src/find_rho.F |
1038 |
FIND_RHO_SCALAR |
& t1 * ( eosS6 + |
|
./model/src/find_rho.F |
1039 |
FIND_RHO_SCALAR |
& t1 * eosS7 )) |
|
./model/src/find_rho.F |
1042 |
FIND_RHO_SCALAR |
& t1 * ( eosP2 + |
|
./model/src/find_rho.F |
1043 |
FIND_RHO_SCALAR |
& t1 * ( eosP3 + |
|
./model/src/find_rho.F |
1044 |
FIND_RHO_SCALAR |
& t1 * eosP4 ))) |
|
./model/src/find_rho.F |
1046 |
FIND_RHO_SCALAR |
& t1 * ( eosP6 + |
|
./model/src/find_rho.F |
1047 |
FIND_RHO_SCALAR |
& t1 * eosP7 )) |
|
./model/src/find_rho.F |
1050 |
FIND_RHO_SCALAR |
& t1 * ( eosP10 + |
|
./model/src/find_rho.F |
1051 |
FIND_RHO_SCALAR |
& t1 * eosP11 )) |
|
./model/src/find_rho.F |
1053 |
FIND_RHO_SCALAR |
& t1 * ( eosP13 + |
|
./model/src/find_rho.F |
1054 |
FIND_RHO_SCALAR |
& t1 * eosP14 )) |
|
./model/src/find_rho.F |
1059 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(2)*t1 |
|
./model/src/find_rho.F |
1064 |
FIND_RHO_SCALAR |
& + eosJMDCKSw(6)*t1 |
|
./model/src/find_rho.F |
1070 |
FIND_RHO_SCALAR |
& + eosJMDCKP(2)*t1 |
|
./model/src/find_rho.F |
1075 |
FIND_RHO_SCALAR |
& + eosJMDCKP(6)*t1 |
|
./model/src/find_rho.F |
1080 |
FIND_RHO_SCALAR |
& + eosJMDCKP(10)*t1 |
|
./model/src/find_rho.F |
1084 |
FIND_RHO_SCALAR |
& + eosJMDCKP(13)*t1 |
|
./model/src/find_rho.F |
1099 |
FIND_RHO_SCALAR |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
1102 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
1103 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
1105 |
FIND_RHO_SCALAR |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
1111 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
1112 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
1113 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
1115 |
FIND_RHO_SCALAR |
& + t1*(eosMDJWFden(6) |
|
./model/src/find_rho.F |
629 |
FIND_RHONUM |
_RL t1, t2, s1, p1 |
|
./model/src/find_rho.F |
634 |
FIND_RHONUM |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
635 |
FIND_RHONUM |
t2 = t1*t1 |
|
./model/src/find_rho.F |
641 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(1) |
|
./model/src/find_rho.F |
642 |
FIND_RHONUM |
& + t1*(eosMDJWFnum(2) + eosMDJWFnum(3)*t1) ) |
|
./model/src/find_rho.F |
644 |
FIND_RHONUM |
& + eosMDJWFnum(5)*t1 + eosMDJWFnum(6)*s1) |
|
./model/src/find_rho.F |
695 |
FIND_RHODEN |
_RL t1, t2, s1, sp5, p1, p1t1 |
|
./model/src/find_rho.F |
702 |
FIND_RHODEN |
t1 = tFld(i,j) |
|
./model/src/find_rho.F |
703 |
FIND_RHODEN |
t2 = t1*t1 |
|
./model/src/find_rho.F |
717 |
FIND_RHODEN |
p1t1 = p1*t1 |
|
./model/src/find_rho.F |
720 |
FIND_RHODEN |
& + t1*(eosMDJWFden(1) |
|
./model/src/find_rho.F |
721 |
FIND_RHODEN |
& + t1*(eosMDJWFden(2) |
|
./model/src/find_rho.F |
722 |
FIND_RHODEN |
& + t1*(eosMDJWFden(3) + t1*eosMDJWFden(4) ) ) ) |
|
./model/src/find_rho.F |
724 |
FIND_RHODEN |
& + t1*(eosMDJWFden(6) |
|
./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 |
922 |
FIND_RHO_SCALAR |
t1 = tLoc |
|
./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 |
925 |
FIND_RHO_SCALAR |
t4 = t3*t1 |
|
./model/src/find_rho.F |
972 |
FIND_RHO_SCALAR |
& t1* ( eosF2 + |
|
./model/src/find_rho.F |
973 |
FIND_RHO_SCALAR |
& t1* ( eosF3 + |
|
./model/src/find_rho.F |
974 |
FIND_RHO_SCALAR |
& t1* ( eosF4 + |
|
./model/src/find_rho.F |
975 |
FIND_RHO_SCALAR |
& t1* ( eosF5 + |
|
./model/src/find_rho.F |
976 |
FIND_RHO_SCALAR |
& t1* eosF6 )))) |
|
./model/src/find_rho.F |
980 |
FIND_RHO_SCALAR |
& + eosJMDCFw(2)*t1 |
|
./model/src/find_rho.F |
984 |
FIND_RHO_SCALAR |
& + eosJMDCFw(6)*t4*t1 |
|
./model/src/find_rho.F |
989 |
FIND_RHO_SCALAR |
& t1 * ( eosS2 + |
|
./model/src/find_rho.F |
990 |
FIND_RHO_SCALAR |
& t1 * ( eosS3 + |
|
./model/src/find_rho.F |
991 |
FIND_RHO_SCALAR |
& t1 * ( eosS4 + |
|
./model/src/find_rho.F |
992 |
FIND_RHO_SCALAR |
& t1 * eosS5 )))) |
|
./model/src/find_rho.F |
994 |
FIND_RHO_SCALAR |
& t1 * ( eosS7 + |
|
./model/src/find_rho.F |
995 |
FIND_RHO_SCALAR |
& t1 * eosS8 )) |
|
./pkg/seaice/seaice_solve4temp.F |
110 |
SEAICE_SOLVE4TEMP |
_RL t1, t2, t3, t4 |
|
./pkg/seaice/seaice_solve4temp.F |
370 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./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 |
378 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
383 |
SEAICE_SOLVE4TEMP |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_solve4temp.F |
393 |
SEAICE_SOLVE4TEMP |
cc3t = EXP(aa1 / t1 * lnTEN) |
|
./pkg/seaice/seaice_solve4temp.F |
415 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
458 |
SEAICE_SOLVE4TEMP |
& LOG10(ABS(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
483 |
SEAICE_SOLVE4TEMP |
t1 = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
488 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./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 |
495 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
498 |
SEAICE_SOLVE4TEMP |
mm_log10pi = -aa1 / t1 + aa2 |
|
./pkg/seaice/seaice_solve4temp.F |
506 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J) * (tempFrz(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
514 |
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 |