| 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 |
4395 |
TRBL25 |
_RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4 |
|
./pkg/kpp/kpp_routines.F |
862 |
RI_IWMIX |
_RL c1, c0 |
|
./pkg/kpp/kpp_routines.F |
870 |
RI_IWMIX |
c1 = 1. _d 0 |
|
./pkg/kpp/kpp_routines.F |
932 |
RI_IWMIX |
ratio = min ( (BVSQcon - Rig) / BVSQcon, c1 ) |
|
./pkg/kpp/kpp_routines.F |
933 |
RI_IWMIX |
fcon = c1 - ratio * ratio |
|
./pkg/kpp/kpp_routines.F |
939 |
RI_IWMIX |
ratio = min ( Rig / Riinfty , c1 ) |
|
./pkg/kpp/kpp_routines.F |
940 |
RI_IWMIX |
fRi = c1 - ratio * ratio |
|
./pkg/thsice/thsice_solve4temp.F |
167 |
THSICE_SOLVE4TEMP |
_RL a1, b1, c1 |
|
./pkg/thsice/thsice_solve4temp.F |
282 |
THSICE_SOLVE4TEMP |
c1 = Lfresh * Tmlt1 |
|
./pkg/thsice/thsice_solve4temp.F |
283 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
454 |
THSICE_SOLVE4TEMP |
c1 = c10(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
455 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
467 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./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 |
188 |
SW_ADTG |
c1 = -6.7795 _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 |
183 |
NO PROCEDURE |
c1 = -6.7795 _d -10 |
|
./model/src/seawater.F |
196 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |