| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
2502 |
FLXCO2 |
subroutine FLXCO2(m,n,np,swc,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
2518 |
FLXCO2 |
_RL df(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2554 |
FLXCO2 |
df(i,j,k)=df(i,j,k)+0.0343*(x1-y2) |
|
./pkg/fizhi/fizhi_swrad.F |
790 |
SORAD |
_RL swh(m,n,np+1),so2(m,n,np+1),df(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
df(i,j,k)=0. |
|
./pkg/fizhi/fizhi_swrad.F |
886 |
SORAD |
df(i,j,k)=df(i,j,k)+0.0287*(1.-expmn(-0.00027*sqrt(x))) |
|
./pkg/fizhi/fizhi_swrad.F |
904 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
911 |
SORAD |
flc(i,j,k)=flc(i,j,k)-df(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
935 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
938 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
948 |
SORAD |
x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
142 |
GAD_CALC_RHS |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
178 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
300 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
304 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
311 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
320 |
GAD_CALC_RHS |
U df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
327 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
337 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
340 |
GAD_CALC_RHS |
CALL LAYERS_FILL( df, trIdentity, 'DFX', |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
440 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
444 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
451 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
460 |
GAD_CALC_RHS |
U df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
477 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
480 |
GAD_CALC_RHS |
CALL LAYERS_FILL( df, trIdentity, 'DFY', |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
612 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
616 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
620 |
GAD_CALC_RHS |
CALL GAD_BIHARM_R( bi,bj,k, diffKr4, TracerN, df, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
629 |
GAD_CALC_RHS |
U df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
636 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
647 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
650 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
661 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
667 |
GAD_CALC_RHS |
O df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
672 |
GAD_CALC_RHS |
O df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
679 |
GAD_CALC_RHS |
O df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
690 |
GAD_CALC_RHS |
& + df(i,j)*maskUp(i,j)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
697 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
703 |
GAD_CALC_RHS |
CALL LAYERS_FILL(df,trIdentity,'DFR',k,1,2,bi,bj,myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
310 |
GAD_IMPLICIT_R |
df(i,j) = |
|
./pkg/generic_advdiff/gad_implicit_r.F |
325 |
GAD_IMPLICIT_R |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
334 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
338 |
GAD_IMPLICIT_R |
CALL LAYERS_FILL( df, tracerIdentity, 'DFR', |
|
./pkg/generic_advdiff/gad_implicit_r.F |
429 |
GAD_IMPLICIT_R |
af(i,j) = flx(i,j) - df(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
94 |
GAD_IMPLICIT_R |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_rtransport.F |
146 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
156 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
15 |
GMREDI_RTRANSPORT |
U df, |
|
./pkg/gmredi/gmredi_rtransport.F |
184 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
60 |
GMREDI_RTRANSPORT |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_xtransport.F |
128 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
179 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
19 |
GMREDI_XTRANSPORT |
U df, |
|
./pkg/gmredi/gmredi_xtransport.F |
204 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
65 |
GMREDI_XTRANSPORT |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_ytransport.F |
127 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
177 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
18 |
GMREDI_YTRANSPORT |
U df, |
|
./pkg/gmredi/gmredi_ytransport.F |
203 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
64 |
GMREDI_YTRANSPORT |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_transport_ptr.F |
105 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
12 |
KPP_TRANSPORT_PTR |
O df, |
|
./pkg/kpp/kpp_transport_ptr.F |
66 |
KPP_TRANSPORT_PTR |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_transport_ptr.F |
90 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
112 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
14 |
KPP_TRANSPORT_S |
O df, |
|
./pkg/kpp/kpp_transport_s.F |
54 |
KPP_TRANSPORT_S |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_transport_s.F |
96 |
KPP_TRANSPORT_S |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
11 |
KPP_TRANSPORT_T |
O df, |
|
./pkg/kpp/kpp_transport_t.F |
52 |
KPP_TRANSPORT_T |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_transport_t.F |
79 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
94 |
KPP_TRANSPORT_T |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/layers/layers_save.F |
122 |
LAYERS_FILL_FIELD |
I df, trIdentity, myNr, |
|
./pkg/layers/layers_save.F |
140 |
LAYERS_FILL_FIELD |
_RL df(*) |
|
./pkg/layers/layers_save.F |
14 |
LAYERS_FILL |
I df, trIdentity, fluxid, |
|
./pkg/layers/layers_save.F |
224 |
LAYERS_FILL_FIELD |
I df, |
|
./pkg/layers/layers_save.F |
238 |
LAYERS_FILL_FIELD |
I df, |
|
./pkg/layers/layers_save.F |
55 |
LAYERS_FILL |
_RL df(*) |
|
./pkg/layers/layers_save.F |
70 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, 1, layers_surfflux,'M', |
|
./pkg/layers/layers_save.F |
73 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfx,'U', |
|
./pkg/layers/layers_save.F |
76 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfy,'V', |
|
./pkg/layers/layers_save.F |
79 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfr,'M', |
|
./pkg/layers/layers_save.F |
82 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afx,'U', |
|
./pkg/layers/layers_save.F |
85 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afy,'V', |
|
./pkg/layers/layers_save.F |
88 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afr,'M', |
|
./pkg/layers/layers_save.F |
91 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_tottend,'M', |
|
./model/src/impldiff.F |
326 |
IMPLDIFF |
df(i,j) = 0. _d 0 |
|
./model/src/impldiff.F |
337 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
353 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
369 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
378 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./model/src/impldiff.F |
381 |
IMPLDIFF |
CALL LAYERS_FILL( df, tracerId, 'DFR', |
|
./model/src/impldiff.F |
81 |
IMPLDIFF |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/smooth/smooth_rhs.F |
113 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
136 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
157 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
167 |
SMOOTH_RHS |
fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
173 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
181 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
204 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
225 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
234 |
SMOOTH_RHS |
fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
240 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
251 |
SMOOTH_RHS |
df(i,j,bi,bj) = |
|
./pkg/smooth/smooth_rhs.F |
297 |
SMOOTH_RHS |
df(i,j,bi,bj) = df(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
313 |
SMOOTH_RHS |
& df(i,j,bi,bj)*maskUp(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
320 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. |
|
./pkg/smooth/smooth_rhs.F |
66 |
SMOOTH_RHS |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/smooth/smooth_rhs.F |
95 |
SMOOTH_RHS |
df(i,j,bi,bj) = 0. _d 0 |
|
./pkg/bling/bling_carbon_chem.F |
205 |
CALC_PCO2 |
df = ((k1local*diclocal*b) - k1local*x*diclocal*db)/b2 - |
|
./pkg/bling/bling_carbon_chem.F |
217 |
CALC_PCO2 |
deltax = - fn/df |
|
./pkg/bling/bling_carbon_chem.F |
97 |
CALC_PCO2 |
_RL df |
|
./pkg/cal/cal_timepassed.F |
115 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yf,mf,df,sf,lf,wf,myThid ) |
|
./pkg/cal/cal_timepassed.F |
118 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yf,mf,df,sf,lf,wf,myThid ) |
|
./pkg/cal/cal_timepassed.F |
123 |
CAL_TIMEPASSED |
ndays = df - di |
|
./pkg/cal/cal_timepassed.F |
133 |
CAL_TIMEPASSED |
sf = sf + (df-1)*secondsperday |
|
./pkg/cal/cal_timepassed.F |
50 |
CAL_TIMEPASSED |
INTEGER di,df |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
103 |
GAD_2D_CALC_RHS |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
112 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
190 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_X(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
194 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
201 |
GAD_2D_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
232 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
287 |
GAD_2D_CALC_RHS |
CALL GAD_DIFF_2D_Y(bi,bj,diffKh,localT,df,myThid) |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
291 |
GAD_2D_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/cheapaml/gad_2d_calc_rhs.F |
298 |
GAD_2D_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j) |
|
./pkg/dic/carbon_chem.F |
102 |
CALC_PCO2 |
_RL df |
|
./pkg/dic/carbon_chem.F |
210 |
CALC_PCO2 |
df = ((k1local*diclocal*b) - k1local*x*diclocal*db)/b2 - |
|
./pkg/dic/carbon_chem.F |
222 |
CALC_PCO2 |
deltax = - fn/df |