| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd.F |
185 |
ADMTLM_DSVD |
& tol, sigma, temp |
|
./pkg/admtlm/admtlm_dsvd.F |
601 |
ADMTLM_DSVD |
temp = one / dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
605 |
ADMTLM_DSVD |
call DSCAL(m , temp, u(l,j), 1 ) |
|
./pkg/ebm/ebm_wind_perturb.F |
40 |
EBM_WIND_PERTURB |
_RS temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/ebm/ebm_wind_perturb.F |
68 |
EBM_WIND_PERTURB |
temp(i,j) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
78 |
EBM_WIND_PERTURB |
call RANDOM_NUMBER (temp) |
|
./pkg/ebm/ebm_wind_perturb.F |
84 |
EBM_WIND_PERTURB |
temp(i,j) = 1.73*(2.0*temp(i,j) - 1.0) |
|
./pkg/ebm/ebm_wind_perturb.F |
96 |
EBM_WIND_PERTURB |
temp2(i,j) = 0.1*( (x(i)-xa(i))*temp(INT(xa2(i)),j)+ |
|
./pkg/ebm/ebm_wind_perturb.F |
97 |
EBM_WIND_PERTURB |
& (10.0-x(i)+xa(i))*temp(INT(xa(i)),j) ) |
|
./pkg/diagnostics/prestopres.F |
109 |
PRESTOPRES |
temp = ( pkz(i,1,lm)-pk ) / ( pkz(i,1,lm)-pkz(i,1,lm-1) ) |
|
./pkg/diagnostics/prestopres.F |
113 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,lm-1)*temp + qinp(i,1,lm)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
42 |
PRESTOPRES |
_RL pk,pkmin,pkmax,pktop,temp |
|
./pkg/diagnostics/prestopres.F |
74 |
PRESTOPRES |
temp = ( pkz(i,1,L)-pk ) / ( pkz(i,1,L)-pkz(i,1,L+1) ) |
|
./pkg/diagnostics/prestopres.F |
78 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,L+1)*temp + qinp(i,1,L)*(1.-temp) |
|
./pkg/diagnostics/prestopres.F |
79 |
PRESTOPRES |
else if( qinp(i,1,L+1).ne.undef .and. temp.ge.0.5 ) then |
|
./pkg/diagnostics/prestopres.F |
81 |
PRESTOPRES |
else if( qinp(i,1,L) .ne.undef .and. temp.le.0.5 ) then |
|
./pkg/diagnostics/prestopres.F |
95 |
PRESTOPRES |
temp = ( pkz(i,1,1)-pk ) / ( pkz(i,1,1)-pkz(i,1,2) ) |
|
./pkg/diagnostics/prestopres.F |
99 |
PRESTOPRES |
qprs(i,1) = qinp(i,1,2)*temp + qinp(i,1,1)*(1.-temp) |
|
./pkg/fizhi/fizhi_write_pickup.F |
107 |
FIZHI_WRITE_PICKUP |
temp(i,j,1,bi,bj) = raincon(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
108 |
FIZHI_WRITE_PICKUP |
temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
109 |
FIZHI_WRITE_PICKUP |
temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
113 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
114 |
FIZHI_WRITE_PICKUP |
temp(2,1,4,bi,bj) = float(nlwcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
115 |
FIZHI_WRITE_PICKUP |
temp(3,1,4,bi,bj) = float(nlwlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
116 |
FIZHI_WRITE_PICKUP |
temp(4,1,4,bi,bj) = float(nswcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
117 |
FIZHI_WRITE_PICKUP |
temp(5,1,4,bi,bj) = float(nswlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
118 |
FIZHI_WRITE_PICKUP |
temp(6,1,4,bi,bj) = float(imstturbsw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
119 |
FIZHI_WRITE_PICKUP |
temp(7,1,4,bi,bj) = float(imstturblw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
124 |
FIZHI_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,temp,17,myIter,myThid) |
|
./pkg/fizhi/fizhi_write_pickup.F |
48 |
FIZHI_WRITE_PICKUP |
_RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_write_pickup.F |
57 |
FIZHI_WRITE_PICKUP |
temp(i,j,k,bi,bj) = 0. |
|
./pkg/fizhi/fizhi_read_pickup.F |
44 |
FIZHI_READ_PICKUP |
_RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_read_pickup.F |
73 |
FIZHI_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid) |
|
./pkg/fizhi/fizhi_read_pickup.F |
79 |
FIZHI_READ_PICKUP |
raincon(i,j,bi,bj) = temp(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
80 |
FIZHI_READ_PICKUP |
rainlsp(i,j,bi,bj) = temp(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
81 |
FIZHI_READ_PICKUP |
snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
85 |
FIZHI_READ_PICKUP |
iras(bi,bj) = nint(temp(1,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
86 |
FIZHI_READ_PICKUP |
nlwcld(bi,bj) = nint(temp(2,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
87 |
FIZHI_READ_PICKUP |
nlwlz(bi,bj) = nint(temp(3,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
88 |
FIZHI_READ_PICKUP |
nswcld(bi,bj) = nint(temp(4,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
89 |
FIZHI_READ_PICKUP |
nswlz(bi,bj) = nint(temp(5,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
90 |
FIZHI_READ_PICKUP |
imstturbsw(bi,bj) = nint(temp(6,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
91 |
FIZHI_READ_PICKUP |
imstturblw(bi,bj) = nint(temp(7,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_moist.F |
1170 |
RAS |
_RL temp |
|
./pkg/fizhi/fizhi_moist.F |
1305 |
RAS |
temp = TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
2259 |
ACRITN |
_RL temp |
|
./pkg/fizhi/fizhi_moist.F |
2276 |
ACRITN |
temp = ( pl(i)-p(L) )/( p(L+1)-p(L) ) |
|
./pkg/fizhi/fizhi_moist.F |
2277 |
ACRITN |
acr(i) = a(L+1)*temp + a(L)*(1-temp) |
|
./pkg/fizhi/fizhi_moist.F |
2552 |
SRCLOUDS |
_RL ratio, temp, elocp |
|
./pkg/fizhi/fizhi_moist.F |
2574 |
SRCLOUDS |
temp = th(i,L)*plk(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2575 |
SRCLOUDS |
call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. ) |
|
./pkg/fizhi/fizhi_moist.F |
2645 |
BACK2GRD |
_RL temp(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2647 |
BACK2GRD |
temp(indeces(i)) = gathered(i) |
|
./pkg/fizhi/fizhi_moist.F |
2650 |
BACK2GRD |
scattered(i) = temp(i) |
|
./pkg/fizhi/fizhi_turb.F |
2210 |
TRBFLX |
transth(i,L) = temp(i,L) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
2192 |
TRBFLX |
transth(i,L) = temp(i,L) |
|
./verification/flt_example/extra/cvprofiles.F |
185 |
NO PROCEDURE |
allocate (temp(npart,Nr,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
203 |
NO PROCEDURE |
temp(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
291 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+2*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
293 |
NO PROCEDURE |
if (temp(ip,k,np) .eq. 0.) then |
|
./verification/flt_example/extra/cvprofiles.F |
296 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
538 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, temp, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
559 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+3*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
561 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
569 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, temp, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
589 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
591 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
599 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, temp, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
619 |
NO PROCEDURE |
temp(ip,k,np) = SNGL(tmp(6+1*Nr+k)) |
|
./verification/flt_example/extra/cvprofiles.F |
621 |
NO PROCEDURE |
temp(ip,k,np) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
629 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, temp, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
67 |
NO PROCEDURE |
real, dimension(:,:,:), allocatable :: uvel,vvel,temp,salt |
|
./verification/flt_example/extra/cvfloat.F |
178 |
NO PROCEDURE |
allocate (temp(npart,icount)) |
|
./verification/flt_example/extra/cvfloat.F |
191 |
NO PROCEDURE |
temp(m,n) = spval |
|
./verification/flt_example/extra/cvfloat.F |
254 |
NO PROCEDURE |
temp(ip,np) = SNGL(tmp(8)) |
|
./verification/flt_example/extra/cvfloat.F |
440 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, temp, iret) |
|
./verification/flt_example/extra/cvfloat.F |
64 |
NO PROCEDURE |
& ,uvel,vvel,temp,salt,zeta |
|
./eesupp/src/scatter_xz.F |
18 |
SCATTER_XZ |
_RL temp(1-OLx:sNx+OLx,nSx,nSy) |
|
./eesupp/src/scatter_xz.F |
65 |
SCATTER_XZ |
temp(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
69 |
SCATTER_XZ |
CALL MPI_SEND (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_vector.F |
22 |
GATHER_VECTOR |
_RL temp(length) |
|
./eesupp/src/gather_vector.F |
62 |
GATHER_VECTOR |
CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_vector.F |
77 |
GATHER_VECTOR |
global(lG) = temp(l) |
|
./eesupp/src/scatter_yz.F |
18 |
SCATTER_YZ |
_RL temp(1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/scatter_yz.F |
65 |
SCATTER_YZ |
temp(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
69 |
SCATTER_YZ |
CALL MPI_SEND (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/scatter_2d.F |
20 |
SCATTER_2D |
_RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/scatter_2d.F |
74 |
SCATTER_2D |
temp(i,j,bi,bj) = global(iG,jG) |
|
./eesupp/src/scatter_2d.F |
79 |
SCATTER_2D |
CALL MPI_SEND (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/scatter_vector.F |
18 |
SCATTER_VECTOR |
_RL temp(length) |
|
./eesupp/src/scatter_vector.F |
60 |
SCATTER_VECTOR |
temp(l) = global(lG) |
|
./eesupp/src/scatter_vector.F |
62 |
SCATTER_VECTOR |
CALL MPI_SEND (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_yz.F |
21 |
GATHER_YZ |
_RL temp(1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/gather_yz.F |
66 |
GATHER_YZ |
CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_yz.F |
74 |
GATHER_YZ |
global(jG) = temp(j,bi,bj) |
|
./eesupp/src/gather_2d.F |
20 |
GATHER_2D |
_RL temp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/gather_2d.F |
70 |
GATHER_2D |
CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_2d.F |
80 |
GATHER_2D |
global(iG,jG) = temp(i,j,bi,bj) |
|
./eesupp/src/gather_xz.F |
21 |
GATHER_XZ |
_RL temp(1-OLx:sNx+OLx,nSx,nSy) |
|
./eesupp/src/gather_xz.F |
66 |
GATHER_XZ |
CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_xz.F |
74 |
GATHER_XZ |
global(iG) = temp(i,bi,bj) |