| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
222 |
QSAT |
_RL d0, d1, d2, d3, d4, d5, d6 |
|
./pkg/fizhi/fizhi_utils.F |
277 |
QSAT |
parameter ( d0 = 0.535098336e+01 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
347 |
QSAT |
qx = d0+T*(d1+T*(d2+T*(d3+T*(d4+T*(d5+T*d6))))) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
104 |
GAD_DST3_ADV_R |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
114 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
116 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
59 |
GAD_DST3_ADV_R |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
87 |
GAD_DST3_ADV_R |
d0=(2.-cfl)*(1.-cfl)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
96 |
GAD_DST3_ADV_R |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
103 |
GAD_DST3_ADV_X |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
113 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
115 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
59 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
86 |
GAD_DST3_ADV_X |
d0=(2.-uCFL)*(1.-uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
95 |
GAD_DST3_ADV_X |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
102 |
GAD_DST3_ADV_Y |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
112 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
114 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
58 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
85 |
GAD_DST3_ADV_Y |
d0=(2.-vCFL)*(1.-vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
94 |
GAD_DST3_ADV_Y |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
101 |
GAD_DST3FL_ADV_R |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
104 |
GAD_DST3FL_ADV_R |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
56 |
GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,wCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
77 |
GAD_DST3FL_ADV_R |
d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
37 |
GAD_DST3FL_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
59 |
GAD_DST3FL_ADV_X |
d0=(2. _d 0 -uCFL)*(1. _d 0 -uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
83 |
GAD_DST3FL_ADV_X |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
86 |
GAD_DST3FL_ADV_X |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
37 |
GAD_DST3FL_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
55 |
GAD_DST3FL_ADV_Y |
d0=(2. _d 0 -vCFL)*(1. _d 0 -vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
79 |
GAD_DST3FL_ADV_Y |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
82 |
GAD_DST3FL_ADV_Y |
psiM=d0+d1*thetaM |
|
./verification/OpenAD/code_oad_all/seawater.F |
173 |
SW_ADTG |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./verification/OpenAD/code_oad_all/seawater.F |
192 |
SW_ADTG |
d0 = -1.1351 _d -10 |
|
./verification/OpenAD/code_oad_all/seawater.F |
201 |
SW_ADTG |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./model/src/seawater.F |
169 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./model/src/seawater.F |
187 |
NO PROCEDURE |
d0 = -1.1351 _d -10 |
|
./model/src/seawater.F |
196 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./pkg/atm2d/init_atm2d.F |
161 |
INIT_ATM2D |
IF (atm_oc_wgt(j).LT.1.d0) THEN |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
124 |
CTRL_INIT_OBCS_VARIABLES |
shiftvel(1) = 0. d0 |
|
./pkg/ctrl/ctrl_init_obcs_variables.F |
125 |
CTRL_INIT_OBCS_VARIABLES |
shiftvel(2) = 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
153 |
CTRL_OBCSBAL |
shiftvel(1) = 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
154 |
CTRL_OBCSBAL |
shiftvel(2) = 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
172 |
CTRL_OBCSBAL |
volflux = 0. d0 |
|
./pkg/ctrl/ctrl_obcsbal.F |
173 |
CTRL_OBCSBAL |
area= 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
164 |
CTRL_OBCSVOL |
shiftvel(1) = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
165 |
CTRL_OBCSVOL |
shiftvel(2) = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
179 |
CTRL_OBCSVOL |
tmpflux = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
180 |
CTRL_OBCSVOL |
tmparea = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
323 |
CTRL_OBCSVOL |
sumvol = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
324 |
CTRL_OBCSVOL |
sumarea= 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
337 |
CTRL_OBCSVOL |
tmpflux = 0. d0 |
|
./pkg/ctrl/ctrl_obcsvol.F |
338 |
CTRL_OBCSVOL |
tmparea = 0. d0 |
|
./pkg/ctrl/ctrl_volflux.F |
179 |
CTRL_VOLFLUX |
tmpflux = 0. d0 |
|
./pkg/ctrl/ctrl_volflux.F |
180 |
CTRL_VOLFLUX |
tmparea = 0. d0 |
|
./lsopt/cubic.F |
40 |
CUBIC |
if (z1.ge.0.d0 .and. discri.ge.0.d0) then |
|
./lsopt/cubic.F |
42 |
CUBIC |
else if (z1.le.0.d0 .and. discri.le.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
107 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then |
|
./pkg/dic/car_flux_omega_top.F |
143 |
CAR_FLUX_OMEGA_TOP |
if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) |