| 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 |
294 |
GAD_CALC_RHS |
CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
298 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
305 |
GAD_CALC_RHS |
CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
314 |
GAD_CALC_RHS |
U df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
321 |
GAD_CALC_RHS |
fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
331 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
334 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFX( df, trIdentity, k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
427 |
GAD_CALC_RHS |
CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
431 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
438 |
GAD_CALC_RHS |
CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
447 |
GAD_CALC_RHS |
U df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
454 |
GAD_CALC_RHS |
fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
464 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
467 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFY( df, trIdentity,k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
593 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
597 |
GAD_CALC_RHS |
CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
601 |
GAD_CALC_RHS |
CALL GAD_BIHARM_R( bi,bj,k, diffKr4, TracerN, df, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
610 |
GAD_CALC_RHS |
U df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
617 |
GAD_CALC_RHS |
fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
627 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
630 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFR( df, trIdentity, k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
641 |
GAD_CALC_RHS |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
647 |
GAD_CALC_RHS |
O df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
652 |
GAD_CALC_RHS |
O df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
659 |
GAD_CALC_RHS |
O df, |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
670 |
GAD_CALC_RHS |
& + df(i,j)*maskUp(i,j)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
677 |
GAD_CALC_RHS |
CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
683 |
GAD_CALC_RHS |
CALL LAYERS_FILL_DFR( df, trIdentity, k, 1, 2,bi,bj, myThid ) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
295 |
GAD_IMPLICIT_R |
df(i,j) = |
|
./pkg/generic_advdiff/gad_implicit_r.F |
310 |
GAD_IMPLICIT_R |
df(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
318 |
GAD_IMPLICIT_R |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
323 |
GAD_IMPLICIT_R |
CALL LAYERS_FILL_DFR( df, tracerIdentity, |
|
./pkg/generic_advdiff/gad_implicit_r.F |
401 |
GAD_IMPLICIT_R |
af(i,j) = flx(i,j) - df(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
93 |
GAD_IMPLICIT_R |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_rtransport.F |
10 |
GMREDI_RTRANSPORT |
U df, |
|
./pkg/gmredi/gmredi_rtransport.F |
132 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
142 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
170 |
GMREDI_RTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_rtransport.F |
47 |
GMREDI_RTRANSPORT |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_xtransport.F |
113 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
13 |
GMREDI_XTRANSPORT |
U df, |
|
./pkg/gmredi/gmredi_xtransport.F |
164 |
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 |
189 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_xtransport.F |
51 |
GMREDI_XTRANSPORT |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_ytransport.F |
113 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
13 |
GMREDI_YTRANSPORT |
U df, |
|
./pkg/gmredi/gmredi_ytransport.F |
163 |
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 |
189 |
GMREDI_YTRANSPORT |
df(i,j) = df(i,j) |
|
./pkg/gmredi/gmredi_ytransport.F |
51 |
GMREDI_YTRANSPORT |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_transport_ptr.F |
12 |
KPP_TRANSPORT_PTR |
O df, |
|
./pkg/kpp/kpp_transport_ptr.F |
61 |
KPP_TRANSPORT_PTR |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/kpp/kpp_transport_ptr.F |
81 |
KPP_TRANSPORT_PTR |
df(i,j) = - _rA(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
96 |
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 |
126 |
LAYERS_FILL_DFX |
I df, trIdentity, |
|
./pkg/layers/layers_save.F |
141 |
LAYERS_FILL_DFX |
_RL df(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/layers/layers_save.F |
165 |
LAYERS_FILL_DFX |
& df(i,j) |
|
./pkg/layers/layers_save.F |
183 |
LAYERS_FILL_DFY |
I df, trIdentity, |
|
./pkg/layers/layers_save.F |
198 |
LAYERS_FILL_DFY |
_RL df(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/layers/layers_save.F |
222 |
LAYERS_FILL_DFY |
& df(i,j) |
|
./pkg/layers/layers_save.F |
242 |
LAYERS_FILL_DFR |
I df, trIdentity, |
|
./pkg/layers/layers_save.F |
257 |
LAYERS_FILL_DFR |
_RL df(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/layers/layers_save.F |
281 |
LAYERS_FILL_DFR |
& df(i,j) |
|
./model/src/impldiff.F |
324 |
IMPLDIFF |
df(i,j) = 0. _d 0 |
|
./model/src/impldiff.F |
335 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
351 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
367 |
IMPLDIFF |
df(i,j) = |
|
./model/src/impldiff.F |
376 |
IMPLDIFF |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
./model/src/impldiff.F |
379 |
IMPLDIFF |
CALL LAYERS_FILL_DFR( df, tracerId, |
|
./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/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 |