| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/co2-tran3.h |
112 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/ |
|
./pkg/fizhi/co2-tran3.h |
130 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/ |
|
./pkg/fizhi/co2-tran3.h |
148 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/ |
|
./pkg/fizhi/co2-tran3.h |
166 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=10,10)/ |
|
./pkg/fizhi/co2-tran3.h |
184 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=11,11)/ |
|
./pkg/fizhi/co2-tran3.h |
202 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=12,12)/ |
|
./pkg/fizhi/co2-tran3.h |
220 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=13,13)/ |
|
./pkg/fizhi/co2-tran3.h |
22 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/ |
|
./pkg/fizhi/co2-tran3.h |
238 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=14,14)/ |
|
./pkg/fizhi/co2-tran3.h |
256 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=15,15)/ |
|
./pkg/fizhi/co2-tran3.h |
274 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=16,16)/ |
|
./pkg/fizhi/co2-tran3.h |
292 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=17,17)/ |
|
./pkg/fizhi/co2-tran3.h |
310 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=18,18)/ |
|
./pkg/fizhi/co2-tran3.h |
328 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=19,19)/ |
|
./pkg/fizhi/co2-tran3.h |
346 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=20,20)/ |
|
./pkg/fizhi/co2-tran3.h |
364 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=21,21)/ |
|
./pkg/fizhi/co2-tran3.h |
382 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=22,22)/ |
|
./pkg/fizhi/co2-tran3.h |
400 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=23,23)/ |
|
./pkg/fizhi/co2-tran3.h |
40 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/ |
|
./pkg/fizhi/co2-tran3.h |
418 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=24,24)/ |
|
./pkg/fizhi/co2-tran3.h |
436 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=25,25)/ |
|
./pkg/fizhi/co2-tran3.h |
454 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip=26,26)/ |
|
./pkg/fizhi/co2-tran3.h |
4 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/ |
|
./pkg/fizhi/co2-tran3.h |
58 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/ |
|
./pkg/fizhi/co2-tran3.h |
76 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/ |
|
./pkg/fizhi/co2-tran3.h |
94 |
NO PROCEDURE |
data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/ |
|
./pkg/fizhi/fizhi_lwrad.F |
1455 |
IRRAD |
* w1,p1,dwe,dpe,c1,c2,c3,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
614 |
IRRAD |
_RL c1 (nx,nc,nt),c2 (nx,nc,nt),c3 (nx,nc,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
813 |
IRRAD |
c1(ip,iw,1)=1.0-c1(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
825 |
IRRAD |
c1 (ip,iw,it)= c1(ip,iw,1) |
|
./pkg/fizhi/fizhi_turb.F |
3839 |
TRBL25 |
_RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4 |
|
./pkg/gmredi/gmredi_calc_eigs.F |
294 |
GMREDI_CALC_EIGS |
c1(i,j) = intN0(i,j)/pi |
|
./pkg/gmredi/gmredi_calc_eigs.F |
295 |
GMREDI_CALC_EIGS |
Rmid(i,j) = c1(i,j)/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
309 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -COS(intN(i,j,k)/(m*c1(i,j))) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
87 |
GMREDI_CALC_EIGS |
_RL c1(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/kpp/kpp_routines.F |
1005 |
RI_IWMIX |
c1 = 1. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1069 |
RI_IWMIX |
ratio = min ( (BVSQcon - Rig) / BVSQcon, c1 ) |
|
./pkg/kpp/kpp_routines.F |
1070 |
RI_IWMIX |
fcon = c1 - ratio * ratio |
|
./pkg/kpp/kpp_routines.F |
1076 |
RI_IWMIX |
ratio = min ( Rig / Riinfty , c1 ) |
|
./pkg/kpp/kpp_routines.F |
1077 |
RI_IWMIX |
fRi = c1 - ratio * ratio |
|
./pkg/kpp/kpp_routines.F |
997 |
RI_IWMIX |
_RL c1, c0 |
|
./pkg/openad/seawater.F |
156 |
SW_ADTG |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./pkg/openad/seawater.F |
170 |
SW_ADTG |
c1 = -6.7795 _d -10 |
|
./pkg/openad/seawater.F |
183 |
SW_ADTG |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./pkg/streamice/streamice_init_varia.F |
192 |
STREAMICE_INIT_VARIA |
c1 = 0.0 |
|
./pkg/streamice/streamice_init_varia.F |
194 |
STREAMICE_INIT_VARIA |
c1 = 1.0 / shelf_slope_scale |
|
./pkg/streamice/streamice_init_varia.F |
218 |
STREAMICE_INIT_VARIA |
& min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2)) |
|
./pkg/streamice/streamice_init_varia.F |
41 |
STREAMICE_INIT_VARIA |
_RL slope_pos, c1, x, y, lenx, leny |
|
./pkg/thsice/thsice_solve4temp.F |
179 |
THSICE_SOLVE4TEMP |
_RL a1, b1, c1 |
|
./pkg/thsice/thsice_solve4temp.F |
301 |
THSICE_SOLVE4TEMP |
c1 = Lfresh * Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
302 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
492 |
THSICE_SOLVE4TEMP |
c1 = c10(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
493 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
506 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./model/src/seawater.F |
148 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./model/src/seawater.F |
162 |
NO PROCEDURE |
c1 = -6.7795 _d -10 |
|
./model/src/seawater.F |
175 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |