| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
224 |
QSAT |
_RL f0, f1, f2, f3, f4, f5, f6 |
|
./pkg/fizhi/fizhi_utils.F |
301 |
QSAT |
parameter ( f2 = 0.517609116e-02 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
356 |
QSAT |
qx = f0+t*(f1+t*(f2+t*(f3+t*(f4+t*(f5+t*f6))))) |
|
./pkg/fizhi/update_ocean_exports.F |
653 |
BCDATA |
real*4 f1(im,jm), f2(im,jm) |
|
./pkg/fizhi/update_ocean_exports.F |
657 |
BCDATA |
read(iunit,rec=nrec2) f2 |
|
./pkg/fizhi/update_ocean_exports.F |
661 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f2) |
|
./pkg/fizhi/update_ocean_exports.F |
666 |
BCDATA |
field2(i,j) = f2(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
113 |
GMREDI_SLOPE_LIMIT |
_RL f1,Smod,f2,Rnondim |
|
./pkg/gmredi/gmredi_slope_limit.F |
572 |
GMREDI_SLOPE_LIMIT |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
574 |
GMREDI_SLOPE_LIMIT |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
576 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
337 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
339 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
341 |
GMREDI_SLOPE_PSI |
taperX(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
357 |
GMREDI_SLOPE_PSI |
f2 = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_psi.F |
359 |
GMREDI_SLOPE_PSI |
f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
361 |
GMREDI_SLOPE_PSI |
taperY(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
62 |
GMREDI_SLOPE_PSI |
_RL f1,Smod,f2,Rnondim |
|
./pkg/obcs/orlanski_east.F |
103 |
ORLANSKI_EAST |
f2 = 1.0-fracCVEL /* dont change this. set cvelTimeScale */ |
|
./pkg/obcs/orlanski_east.F |
129 |
ORLANSKI_EAST |
& )+f2*CVEL_UE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
155 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_VE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
181 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_TE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
207 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_SE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
235 |
ORLANSKI_EAST |
& + f2*CVEL_WE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
94 |
ORLANSKI_EAST |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_north.F |
115 |
ORLANSKI_NORTH |
& f2*CVEL_UN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
135 |
ORLANSKI_NORTH |
& f2*CVEL_VN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
155 |
ORLANSKI_NORTH |
& f2*CVEL_TN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
175 |
ORLANSKI_NORTH |
& f2*CVEL_SN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
197 |
ORLANSKI_NORTH |
& + f2*CVEL_WN(I,K,bi,bj) |
|
./pkg/obcs/orlanski_north.F |
85 |
ORLANSKI_NORTH |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_north.F |
94 |
ORLANSKI_NORTH |
f2 = 1.0-fracCVEL /* dont change this. set cvelTimeScale */ |
|
./pkg/obcs/orlanski_south.F |
115 |
ORLANSKI_SOUTH |
& f2*CVEL_US(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
135 |
ORLANSKI_SOUTH |
& f2*CVEL_VS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
155 |
ORLANSKI_SOUTH |
& f2*CVEL_TS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
175 |
ORLANSKI_SOUTH |
& f2*CVEL_SS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
197 |
ORLANSKI_SOUTH |
& + f2*CVEL_WS(I,K,bi,bj) |
|
./pkg/obcs/orlanski_south.F |
85 |
ORLANSKI_SOUTH |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_south.F |
94 |
ORLANSKI_SOUTH |
f2 = 1.0-fracCVEL /* dont change this. set cvelTimeScale */ |
|
./pkg/obcs/orlanski_west.F |
105 |
ORLANSKI_WEST |
f2 = 1.0-fracCVEL /* dont change this. set cvelTimeScale */ |
|
./pkg/obcs/orlanski_west.F |
131 |
ORLANSKI_WEST |
& )+f2*CVEL_UW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
157 |
ORLANSKI_WEST |
& )+f2*CVEL_VW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
183 |
ORLANSKI_WEST |
& )+f2*CVEL_TW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
209 |
ORLANSKI_WEST |
& )+f2*CVEL_SW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
237 |
ORLANSKI_WEST |
& + f2*CVEL_WW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
96 |
ORLANSKI_WEST |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |