| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1228 |
RAS |
_RL temp |
|
./pkg/fizhi/fizhi_moist.F |
1365 |
RAS |
temp = TCU(I,L) * DT * rhfrac(i) |
|
./pkg/fizhi/fizhi_moist.F |
2331 |
ACRITN |
_RL temp |
|
./pkg/fizhi/fizhi_moist.F |
2348 |
ACRITN |
temp = ( pl(i)-p(L) )/( p(L+1)-p(L) ) |
|
./pkg/fizhi/fizhi_moist.F |
2349 |
ACRITN |
acr(i) = a(L+1)*temp + a(L)*(1-temp) |
|
./pkg/fizhi/fizhi_moist.F |
2625 |
SRCLOUDS |
_RL ratio, temp, elocp |
|
./pkg/fizhi/fizhi_moist.F |
2647 |
SRCLOUDS |
temp = th(i,L)*plk(i,L) |
|
./pkg/fizhi/fizhi_moist.F |
2648 |
SRCLOUDS |
call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. ) |
|
./pkg/fizhi/fizhi_moist.F |
2721 |
BACK2GRD |
_RL temp(irun) |
|
./pkg/fizhi/fizhi_moist.F |
2723 |
BACK2GRD |
temp(indeces(i)) = gathered(i) |
|
./pkg/fizhi/fizhi_moist.F |
2726 |
BACK2GRD |
scattered(i) = temp(i) |
|
./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 |
72 |
FIZHI_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,Nrphys,temp, 17,myIter,myThid ) |
|
./pkg/fizhi/fizhi_read_pickup.F |
78 |
FIZHI_READ_PICKUP |
raincon(i,j,bi,bj) = temp(i,j,1,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
79 |
FIZHI_READ_PICKUP |
rainlsp(i,j,bi,bj) = temp(i,j,2,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
80 |
FIZHI_READ_PICKUP |
snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj) |
|
./pkg/fizhi/fizhi_read_pickup.F |
84 |
FIZHI_READ_PICKUP |
iras(bi,bj) = NINT(temp(1,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
85 |
FIZHI_READ_PICKUP |
nlwcld(bi,bj) = NINT(temp(2,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
86 |
FIZHI_READ_PICKUP |
nlwlz(bi,bj) = NINT(temp(3,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
87 |
FIZHI_READ_PICKUP |
nswcld(bi,bj) = NINT(temp(4,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
88 |
FIZHI_READ_PICKUP |
nswlz(bi,bj) = NINT(temp(5,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
89 |
FIZHI_READ_PICKUP |
imstturbsw(bi,bj) = NINT(temp(6,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_read_pickup.F |
90 |
FIZHI_READ_PICKUP |
imstturblw(bi,bj) = NINT(temp(7,1,4,bi,bj)) |
|
./pkg/fizhi/fizhi_turb.F |
2157 |
TRBFLX |
transth(i,L) = temp(i,L) |
|
./pkg/fizhi/fizhi_write_pickup.F |
101 |
FIZHI_WRITE_PICKUP |
temp(1,1,4,bi,bj) = float(iras(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
102 |
FIZHI_WRITE_PICKUP |
temp(2,1,4,bi,bj) = float(nlwcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
103 |
FIZHI_WRITE_PICKUP |
temp(3,1,4,bi,bj) = float(nlwlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
104 |
FIZHI_WRITE_PICKUP |
temp(4,1,4,bi,bj) = float(nswcld(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
105 |
FIZHI_WRITE_PICKUP |
temp(5,1,4,bi,bj) = float(nswlz(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
106 |
FIZHI_WRITE_PICKUP |
temp(6,1,4,bi,bj) = float(imstturbsw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
107 |
FIZHI_WRITE_PICKUP |
temp(7,1,4,bi,bj) = float(imstturblw(bi,bj)) |
|
./pkg/fizhi/fizhi_write_pickup.F |
112 |
FIZHI_WRITE_PICKUP |
CALL WRITE_REC_3D_RL(fn,prec,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_write_pickup.F |
95 |
FIZHI_WRITE_PICKUP |
temp(i,j,1,bi,bj) = raincon(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
96 |
FIZHI_WRITE_PICKUP |
temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_write_pickup.F |
97 |
FIZHI_WRITE_PICKUP |
temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
412 |
BLDEPTH |
_RL temp |
|
./pkg/kpp/kpp_routines.F |
512 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))*p5 |
|
./pkg/kpp/kpp_routines.F |
513 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + temp |
|
./pkg/kpp/kpp_routines.F |
673 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
674 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + temp |
|
./pkg/kpp/kpp_routines.F |
796 |
BLDEPTH |
temp = (boplume(i,km)+boplume(i,km1))/2.0 |
|
./pkg/kpp/kpp_routines.F |
797 |
BLDEPTH |
bfsfc(i) = bfsfc(i) + temp |
|
./pkg/salt_plume/salt_plume_volfrac.F |
101 |
SALT_PLUME_VOLFRAC |
I imt,oneRS,temp, |
|
./pkg/salt_plume/salt_plume_volfrac.F |
65 |
SALT_PLUME_VOLFRAC |
_RL temp (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
96 |
SALT_PLUME_VOLFRAC |
temp(i,j)=SaltPlumeDepth(i,j,bi,bj) |
|
./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 |
|
./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 ) |
|
./eesupp/src/gather_xz.F |
21 |
GATHER_XZ |
_RL temp(1-OLx:sNx+OLx,nSx,nSy) |
|
./eesupp/src/gather_xz.F |
68 |
GATHER_XZ |
CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_xz.F |
76 |
GATHER_XZ |
global(iG) = temp(i,bi,bj) |
|
./eesupp/src/gather_yz.F |
21 |
GATHER_YZ |
_RL temp(1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/gather_yz.F |
68 |
GATHER_YZ |
CALL MPI_RECV (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/gather_yz.F |
76 |
GATHER_YZ |
global(jG) = temp(j,bi,bj) |
|
./eesupp/src/scatter_xz.F |
21 |
SCATTER_XZ |
_RL temp(1-OLx:sNx+OLx,nSx,nSy) |
|
./eesupp/src/scatter_xz.F |
68 |
SCATTER_XZ |
temp(i,bi,bj) = global(iG) |
|
./eesupp/src/scatter_xz.F |
72 |
SCATTER_XZ |
CALL MPI_SEND (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./eesupp/src/scatter_yz.F |
21 |
SCATTER_YZ |
_RL temp(1-OLy:sNy+OLy,nSx,nSy) |
|
./eesupp/src/scatter_yz.F |
68 |
SCATTER_YZ |
temp(j,bi,bj) = global(jG) |
|
./eesupp/src/scatter_yz.F |
72 |
SCATTER_YZ |
CALL MPI_SEND (temp, lbuff, MPI_DOUBLE_PRECISION, |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
108 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
112 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
122 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
126 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
151 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
155 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
156 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L+1).NE.undef .AND. temp.GE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
158 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L) .NE.undef .AND. temp.LE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
171 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
175 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
185 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
189 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
61 |
DIAGNOSTICS_INTERP_P2P |
_RL pkmin,pkmax,temp |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
88 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
92 |
DIAGNOSTICS_INTERP_P2P |
qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
93 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L+1).NE.undef .AND. temp.GE.0.5 ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
95 |
DIAGNOSTICS_INTERP_P2P |
ELSEIF ( qinp(i,L) .NE.undef .AND. temp.LE.0.5 ) THEN |
|
./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) ) |