| File |
Line number |
Procedure |
Code |
|
./pkg/openad/externalDummies.F |
197 |
STREAMICE_INVERT_SURF_FORTHICK |
_RL S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/openad/seawater.F |
116 |
SW_TEMP |
_RL S, T, P, PR |
|
./pkg/openad/seawater.F |
123 |
SW_TEMP |
CALL SW_PTMP (S,T,PR,P,rv) |
|
./pkg/openad/seawater.F |
133 |
SW_ADTG |
SUBROUTINE SW_ADTG (S,T,P, rv) |
|
./pkg/openad/seawater.F |
151 |
SW_ADTG |
_RL S,T,P |
|
./pkg/openad/seawater.F |
182 |
SW_ADTG |
& + (b0 + b1*T)*(S-sref) |
|
./pkg/openad/seawater.F |
183 |
SW_ADTG |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./pkg/openad/seawater.F |
18 |
SW_PTMP |
SUBROUTINE SW_PTMP (S,T,P,PR, rv) |
|
./pkg/openad/seawater.F |
44 |
SW_PTMP |
_RL S,T,P,PR |
|
./pkg/openad/seawater.F |
57 |
SW_PTMP |
call SW_ADTG(S,T,P, adtg_val) |
|
./pkg/openad/seawater.F |
62 |
SW_PTMP |
call SW_ADTG(S,th,P+onehalf*del_P, adtg_val) |
|
./pkg/openad/seawater.F |
69 |
SW_PTMP |
call SW_ADTG(S,th,P+onehalf*del_P, adtg_val) |
|
./pkg/openad/seawater.F |
75 |
SW_PTMP |
call SW_ADTG(S,th,P+del_P, adtg_val) |
|
./pkg/openad/seawater.F |
86 |
SW_TEMP |
SUBROUTINE SW_TEMP( S, T, P, PR, rv) |
|
./pkg/salt_plume/salt_plume_frac.F |
105 |
SALT_PLUME_FRAC |
S = (facz/dd20) |
|
./pkg/salt_plume/salt_plume_frac.F |
107 |
SALT_PLUME_FRAC |
IF (Npowerloc .GT. 0) S = S*S**Npowerloc |
|
./pkg/salt_plume/salt_plume_frac.F |
109 |
SALT_PLUME_FRAC |
S = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
111 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S) |
|
./pkg/salt_plume/salt_plume_frac.F |
113 |
SALT_PLUME_FRAC |
S = one !input depth temp |
|
./pkg/salt_plume/salt_plume_frac.F |
116 |
SALT_PLUME_FRAC |
S = facz*S !raise to the Npowerloc+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
119 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
124 |
SALT_PLUME_FRAC |
S = exp(facz/dd)-one |
|
./pkg/salt_plume/salt_plume_frac.F |
126 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S*So) |
|
./pkg/salt_plume/salt_plume_frac.F |
136 |
SALT_PLUME_FRAC |
S =facz-dd |
|
./pkg/salt_plume/salt_plume_frac.F |
138 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
157 |
SALT_PLUME_FRAC |
S = (facz/dd20) |
|
./pkg/salt_plume/salt_plume_frac.F |
159 |
SALT_PLUME_FRAC |
IF (Npowerloc .GT. 0) S = S*S**Npowerloc |
|
./pkg/salt_plume/salt_plume_frac.F |
162 |
SALT_PLUME_FRAC |
S = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
166 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two*So*facz-S) |
|
./pkg/salt_plume/salt_plume_frac.F |
169 |
SALT_PLUME_FRAC |
& three*So*facz - three*So*So*facz*facz + S) |
|
./pkg/salt_plume/salt_plume_frac.F |
172 |
SALT_PLUME_FRAC |
S = one !input depth temp |
|
./pkg/salt_plume/salt_plume_frac.F |
175 |
SALT_PLUME_FRAC |
S = facz*S !raise to the Npower+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
179 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two/dd20*facz-S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
182 |
SALT_PLUME_FRAC |
& three/dd20*facz - three/(dd20*dd20)*facz*facz + S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
77 |
SALT_PLUME_FRAC |
_RL one, two, three, S, So, zero |
|
./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 |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
12 |
ADSTRMICE_H_INV |
& S, |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
51 |
ADSTRMICE_H_INV |
_RL S(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
80 |
ADSTRMICE_H_INV |
I S, |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
115 |
STREAMICE_INVERT_SURF_FORTHICK |
RESID = RESID - S(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
31 |
STREAMICE_INVERT_SURF_FORTHICK |
_RL S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
61 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
62 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)-R(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
64 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
78 |
STREAMICE_INVERT_SURF_FORTHICK |
IF (S(i,j,bi,bj) .gt. delta*HF) THEN |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
79 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)-R(i,j,bi,bj) |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
81 |
STREAMICE_INVERT_SURF_FORTHICK |
htmp = S(i,j,bi,bj)/delta |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
9 |
STREAMICE_INVERT_SURF_FORTHICK |
I S, |
|
./model/src/seawater.F |
112 |
NO PROCEDURE |
_RL S, T, P, PR |
|
./model/src/seawater.F |
119 |
NO PROCEDURE |
SW_temp = SW_PTMP (S,T,PR,P) |
|
./model/src/seawater.F |
129 |
NO PROCEDURE |
_RL FUNCTION SW_ADTG (S,T,P) |
|
./model/src/seawater.F |
145 |
NO PROCEDURE |
_RL S,T,P |
|
./model/src/seawater.F |
174 |
NO PROCEDURE |
& + (b0 + b1*T)*(S-sref) |
|
./model/src/seawater.F |
175 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./model/src/seawater.F |
19 |
NO PROCEDURE |
_RL FUNCTION SW_PTMP (S,T,P,PR) |
|
./model/src/seawater.F |
43 |
NO PROCEDURE |
_RL S,T,P,PR |
|
./model/src/seawater.F |
57 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,T,P) |
|
./model/src/seawater.F |
61 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
67 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+onehalf*del_P) |
|
./model/src/seawater.F |
72 |
NO PROCEDURE |
del_th = del_P*sw_adtg(S,th,P+del_P) |
|
./model/src/seawater.F |
83 |
NO PROCEDURE |
_RL FUNCTION SW_TEMP( S, T, P, PR ) |
|
./pkg/ebm/ebm_atmosphere.F |
103 |
EBM_ATMOSPHERE |
S(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
228 |
EBM_ATMOSPHERE |
S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
230 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
232 |
EBM_ATMOSPHERE |
& (35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.) |
|
./pkg/ebm/ebm_atmosphere.F |
272 |
EBM_ATMOSPHERE |
& 0.000728 _d 4 - 0.00678 _d 4*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
273 |
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 |
274 |
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 |
275 |
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 |
276 |
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 |
277 |
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 |
278 |
EBM_ATMOSPHERE |
& 1.2893 _d 4*S(i,j,bj)**12 ) |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
& Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
293 |
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 |
294 |
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 |
295 |
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 |
296 |
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 |
297 |
EBM_ATMOSPHERE |
& 8.119 _d 2*S(i,j,bj)**10) |
|
./pkg/ebm/ebm_atmosphere.F |
307 |
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 |
308 |
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 |
309 |
EBM_ATMOSPHERE |
& -5.1701 _d 5*S(i,j,bj)**10 |
|
./pkg/ebm/ebm_atmosphere.F |
310 |
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 |
311 |
EBM_ATMOSPHERE |
& -1.791 _d 5*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
312 |
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 |
313 |
EBM_ATMOSPHERE |
& +0.3824 _d 5*S(i,j,bj)**4 |
|
./pkg/ebm/ebm_atmosphere.F |
314 |
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 |
315 |
EBM_ATMOSPHERE |
& +0.00562 _d 5*S(i,j,bj) + 0.0007743 _d 5) |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
329 |
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 |
330 |
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 |
331 |
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 |
332 |
EBM_ATMOSPHERE |
& + 2855.0 _d 0*S(i,j,bj)**8) |
|
./pkg/ebm/ebm_atmosphere.F |
339 |
EBM_ATMOSPHERE |
& (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
340 |
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 |
341 |
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 |
342 |
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 |
343 |
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 |
344 |
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 |
345 |
EBM_ATMOSPHERE |
& 2.703 _d 4*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
350 |
EBM_ATMOSPHERE |
& *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
351 |
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 |
352 |
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 |
353 |
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 |
354 |
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 |
355 |
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 |
356 |
EBM_ATMOSPHERE |
& 9.486 _d 3*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
66 |
EBM_ATMOSPHERE |
_RL S(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSy) |