| File |
Line number |
Procedure |
Code |
|
./pkg/sbo/sbo_rho.F |
106 |
NO PROCEDURE |
SR = ((((9.1697E-10*T+2.0816E-8)*T-9.9348E-7) * S + |
|
./pkg/sbo/sbo_rho.F |
109 |
NO PROCEDURE |
& S + ((-5.77905E-7*T+1.16092E-4)*T+1.43713E-3)*T-0.1194975) |
|
./pkg/sbo/sbo_rho.F |
111 |
NO PROCEDURE |
& ((-6.1670E-5*T+1.09987E-2)*T-0.603459)*T+54.6746) * S + |
|
./pkg/sbo/sbo_rho.F |
23 |
NO PROCEDURE |
_RL DPT,LAT,S,T |
|
./pkg/sbo/sbo_rho.F |
49 |
NO PROCEDURE |
& ((2.7759E-12*T-1.1351E-10)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
51 |
NO PROCEDURE |
& 1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
57 |
NO PROCEDURE |
& ((2.7759E-12*T-1.1351E-10)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
59 |
NO PROCEDURE |
& 1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
65 |
NO PROCEDURE |
& ((2.7759E-12*T-1.1351E-10)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
67 |
NO PROCEDURE |
& 1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
6 |
NO PROCEDURE |
_RL FUNCTION SBO_RHO( DPT, LAT, S, T ) |
|
./pkg/sbo/sbo_rho.F |
74 |
NO PROCEDURE |
& ((2.7759E-12*T-1.1351E-10)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
76 |
NO PROCEDURE |
& 1.8741E-8))*P+(-4.2393E-8*T+1.8932E-6)*(S-35.0)+ |
|
./pkg/sbo/sbo_rho.F |
92 |
NO PROCEDURE |
SR = sqrt(abs(S)) |
|
./pkg/sbo/sbo_rho.F |
95 |
NO PROCEDURE |
x = (4.8314E-4 * S + |
|
./pkg/sbo/sbo_rho.F |
98 |
NO PROCEDURE |
& +8.24493E-1)*S + ((((6.536332E-9*T-1.120083E-6) |
|
./pkg/sphere/sphere.F |
267 |
SHCROTATE |
REAL SINA, COSA, C, S |
|
./pkg/sphere/sphere.F |
284 |
SHCROTATE |
S = SHC(K-M) |
|
./pkg/sphere/sphere.F |
285 |
SHCROTATE |
SHC(K+M) = COSA*C + SINA*S |
|
./pkg/sphere/sphere.F |
286 |
SHCROTATE |
SHC(K-M) =-SINA*C + COSA*S |
|
./pkg/sphere/sphere.F |
533 |
HELMHOLTZ |
SUBROUTINE HELMHOLTZ(LMAX,S,P) |
|
./pkg/sphere/sphere.F |
540 |
HELMHOLTZ |
REAL S ! INPUT sin(latitude). |
|
./pkg/sphere/sphere.F |
571 |
HELMHOLTZ |
C = SNGL(DSQRT(1.0D0-DBLE(S)*DBLE(S))) |
|
./pkg/sphere/sphere.F |
584 |
HELMHOLTZ |
P(K) = S*P(K-1)/AK |
|
./pkg/sphere/sphere.F |
592 |
HELMHOLTZ |
P(K) =(S*P(K-1)-P(K-2)*A(M))/AK |
|
./verification/OpenAD/code_oad_all/seawater.F |
110 |
SW_TEMP |
_RL S, T, P, PR |
|
./verification/OpenAD/code_oad_all/seawater.F |
125 |
SW_TEMP |
call SW_ADTG(S,T,P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
130 |
SW_TEMP |
call SW_ADTG(S,th,P+onehalf*del_P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
137 |
SW_TEMP |
call SW_ADTG(S,th,P+onehalf*del_P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
143 |
SW_TEMP |
call SW_ADTG(S,th,P+del_P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
155 |
SW_ADTG |
SUBROUTINE SW_ADTG (S,T,P, rv) |
|
./verification/OpenAD/code_oad_all/seawater.F |
170 |
SW_ADTG |
_RL S,T,P |
|
./verification/OpenAD/code_oad_all/seawater.F |
18 |
SW_PTMP |
subroutine SW_PTMP (S,T,P,PR, rv) |
|
./verification/OpenAD/code_oad_all/seawater.F |
200 |
SW_ADTG |
& + (b0 + b1*T)*(S-sref) |
|
./verification/OpenAD/code_oad_all/seawater.F |
201 |
SW_ADTG |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./verification/OpenAD/code_oad_all/seawater.F |
41 |
SW_PTMP |
_RL S,T,P,PR |
|
./verification/OpenAD/code_oad_all/seawater.F |
53 |
SW_PTMP |
call SW_ADTG(S,T,P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
58 |
SW_PTMP |
call SW_ADTG(S,th,P+onehalf*del_P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
65 |
SW_PTMP |
call SW_ADTG(S,th,P+onehalf*del_P, adtg_val) |
|
./verification/OpenAD/code_oad_all/seawater.F |
71 |
SW_PTMP |
call SW_ADTG(S,th,P+del_P, adtg_val) |
|
./model/src/seawater.F |
109 |
NO PROCEDURE |
_RL S, T, P, PR |
|
./model/src/seawater.F |
125 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./model/src/seawater.F |
129 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
135 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
140 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./model/src/seawater.F |
151 |
NO PROCEDURE |
_RL FUNCTION SW_ADTG (S,T,P) |
|
./model/src/seawater.F |
166 |
NO PROCEDURE |
_RL S,T,P |
|
./model/src/seawater.F |
18 |
NO PROCEDURE |
_RL FUNCTION SW_PTMP (S,T,P,PR) |
|
./model/src/seawater.F |
195 |
NO PROCEDURE |
& + (b0 + b1*T)*(S-sref) |
|
./model/src/seawater.F |
196 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./model/src/seawater.F |
41 |
NO PROCEDURE |
_RL S,T,P,PR |
|
./model/src/seawater.F |
55 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./model/src/seawater.F |
59 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
65 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
70 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./model/src/seawater.F |
81 |
NO PROCEDURE |
_RL FUNCTION SW_TEMP( S, T, P, PR ) |
|
./pkg/ebm/EBM.h |
46 |
NO PROCEDURE |
_RL S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSy) |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
208 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
210 |
EBM_ATMOSPHERE |
& (35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.) |
|
./pkg/ebm/ebm_atmosphere.F |
250 |
EBM_ATMOSPHERE |
& 0.000728 _d 4 - 0.00678 _d 4*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
251 |
EBM_ATMOSPHERE |
& 0.0955 _d 4*S(i,j,bj)**2 + 0.0769 _d 4*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
252 |
EBM_ATMOSPHERE |
& 0.8508 _d 4*S(i,j,bj)**4 - 0.3581 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
253 |
EBM_ATMOSPHERE |
& 2.9240 _d 4*S(i,j,bj)**6 + 0.8311 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
254 |
EBM_ATMOSPHERE |
& 4.9548 _d 4*S(i,j,bj)**8 - 0.8808 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
255 |
EBM_ATMOSPHERE |
& 4.0644 _d 4*S(i,j,bj)**10 +0.3409 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
256 |
EBM_ATMOSPHERE |
& 1.2893 _d 4*S(i,j,bj)**12 ) |
|
./pkg/ebm/ebm_atmosphere.F |
270 |
EBM_ATMOSPHERE |
& Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
271 |
EBM_ATMOSPHERE |
& 1.892 _d 2*S(i,j,bj)**2 + 3.041 _d 2*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
272 |
EBM_ATMOSPHERE |
& 1.540 _d 3*S(i,j,bj)**4 - 9.586 _d 2*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
273 |
EBM_ATMOSPHERE |
& 2.939 _d 3*S(i,j,bj)**6 + 1.219 _d 3*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
274 |
EBM_ATMOSPHERE |
& 2.550 _d 3*S(i,j,bj)**8 - 5.396 _d 2*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
275 |
EBM_ATMOSPHERE |
& 8.119 _d 2*S(i,j,bj)**10) |
|
./pkg/ebm/ebm_atmosphere.F |
285 |
EBM_ATMOSPHERE |
& *(-0.8454 _d 5*S(i,j,bj)**14 + 0.5367 _d 5*S(i,j,bj)**13 |
|
./pkg/ebm/ebm_atmosphere.F |
286 |
EBM_ATMOSPHERE |
& +3.3173 _d 5*S(i,j,bj)**12 - 1.8965 _d 5*S(i,j,bj)**11 |
|
./pkg/ebm/ebm_atmosphere.F |
287 |
EBM_ATMOSPHERE |
& -5.1701 _d 5*S(i,j,bj)**10 |
|
./pkg/ebm/ebm_atmosphere.F |
288 |
EBM_ATMOSPHERE |
& +2.6240 _d 5*S(i,j,bj)**9 + 4.077 _d 5*S(i,j,bj)**8 |
|
./pkg/ebm/ebm_atmosphere.F |
289 |
EBM_ATMOSPHERE |
& -1.791 _d 5*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
& -1.7231 _d 5*S(i,j,bj)**6 + 0.6229 _d 5*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
291 |
EBM_ATMOSPHERE |
& +0.3824 _d 5*S(i,j,bj)**4 |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
& -0.1017 _d 5*S(i,j,bj)**3 - 0.0387 _d 5*S(i,j,bj)**2 |
|
./pkg/ebm/ebm_atmosphere.F |
293 |
EBM_ATMOSPHERE |
& +0.00562 _d 5*S(i,j,bj) + 0.0007743 _d 5) |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
307 |
EBM_ATMOSPHERE |
& - 1336.3 _d 0*S(i,j,bj)**2 - 425.8 _d 0*S(i,j,bj)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
308 |
EBM_ATMOSPHERE |
& + 5434.8 _d 0*S(i,j,bj)**4 + 707.9 _d 0*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
309 |
EBM_ATMOSPHERE |
& - 6987.7 _d 0*S(i,j,bj)**6 - 360.4 _d 0*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
310 |
EBM_ATMOSPHERE |
& + 2855.0 _d 0*S(i,j,bj)**8) |
|
./pkg/ebm/ebm_atmosphere.F |
317 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
318 |
EBM_ATMOSPHERE |
& 2.388 _d 3*S(i,j,bj)**2 - 4.101 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
319 |
EBM_ATMOSPHERE |
& 1.963 _d 4*S(i,j,bj)**4 + 1.534 _d 4*S(i,j,bj)**5 - |
|
./pkg/ebm/ebm_atmosphere.F |
320 |
EBM_ATMOSPHERE |
& 6.556 _d 4*S(i,j,bj)**6 - 2.478 _d 4*S(i,j,bj)**7 + |
|
./pkg/ebm/ebm_atmosphere.F |
321 |
EBM_ATMOSPHERE |
& 1.083 _d 5*S(i,j,bj)**8 + 1.85 _d 4*S(i,j,bj)**9 - |
|
./pkg/ebm/ebm_atmosphere.F |
322 |
EBM_ATMOSPHERE |
& 8.703 _d 4*S(i,j,bj)**10 - 5.276 _d 3*S(i,j,bj)**11 + |
|
./pkg/ebm/ebm_atmosphere.F |
323 |
EBM_ATMOSPHERE |
& 2.703 _d 4*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
& *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
329 |
EBM_ATMOSPHERE |
& 1.041 _d 3*S(i,j,bj)**2 - 7.546 _d 3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
330 |
EBM_ATMOSPHERE |
& 2.335 _d 3*S(i,j,bj)**4 + 3.449 _d 4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
331 |
EBM_ATMOSPHERE |
& 6.702 _d 3*S(i,j,bj)**6 - 6.601 _d 4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
332 |
EBM_ATMOSPHERE |
& 2.594 _d 4*S(i,j,bj)**8 + 5.652 _d 4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
333 |
EBM_ATMOSPHERE |
& 2.738 _d 4*S(i,j,bj)**10 - 1.795 _d 4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
334 |
EBM_ATMOSPHERE |
& 9.486 _d 3*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
80 |
EBM_ATMOSPHERE |
S(i,j,bj) = 0.0 |