| 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 |
300 |
QSAT |
parameter ( f1 = 0.191372282e+00 * 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 |
656 |
BCDATA |
read(iunit,rec=nrec1) f1 |
|
./pkg/fizhi/update_ocean_exports.F |
660 |
BCDATA |
call MDS_BYTESWAPR4( im*jm, f1) |
|
./pkg/fizhi/update_ocean_exports.F |
665 |
BCDATA |
field1(i,j) = f1(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
113 |
GMREDI_SLOPE_LIMIT |
_RL f1,Smod,f2,Rnondim |
|
./pkg/gmredi/gmredi_slope_limit.F |
569 |
GMREDI_SLOPE_LIMIT |
f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
576 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
330 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_psi.F |
341 |
GMREDI_SLOPE_PSI |
taperX(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_psi.F |
350 |
GMREDI_SLOPE_PSI |
f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd )) |
|
./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/kpp/kpp_routines.F |
1357 |
BLMIX |
_RL f1, sig, a1, a2, a3, delhat |
|
./pkg/kpp/kpp_routines.F |
1425 |
BLMIX |
f1 = stable(i) * conc1 * bfsfc(i) / |
|
./pkg/kpp/kpp_routines.F |
1428 |
BLMIX |
dat1m(i) = -viscp / wm(i) + f1 * visch |
|
./pkg/kpp/kpp_routines.F |
1431 |
BLMIX |
dat1s(i) = -difsp / ws(i) + f1 * difsh |
|
./pkg/kpp/kpp_routines.F |
1434 |
BLMIX |
dat1t(i) = -diftp / ws(i) + f1 * difth |
|
./pkg/obcs/orlanski_east.F |
102 |
ORLANSKI_EAST |
f1 = fracCVEL /* dont change this. Set cvelTimeScale */ |
|
./pkg/obcs/orlanski_east.F |
128 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_east.F |
154 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
180 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
206 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
234 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_east.F |
94 |
ORLANSKI_EAST |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_north.F |
114 |
ORLANSKI_NORTH |
CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
134 |
ORLANSKI_NORTH |
CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
154 |
ORLANSKI_NORTH |
CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
174 |
ORLANSKI_NORTH |
CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_north.F |
196 |
ORLANSKI_NORTH |
CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_north.F |
85 |
ORLANSKI_NORTH |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_north.F |
93 |
ORLANSKI_NORTH |
f1 = fracCVEL /* dont change this. Set cvelTimeScale */ |
|
./pkg/obcs/orlanski_south.F |
114 |
ORLANSKI_SOUTH |
CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
134 |
ORLANSKI_SOUTH |
CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
154 |
ORLANSKI_SOUTH |
CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
174 |
ORLANSKI_SOUTH |
CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+ |
|
./pkg/obcs/orlanski_south.F |
196 |
ORLANSKI_SOUTH |
CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_south.F |
85 |
ORLANSKI_SOUTH |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/obcs/orlanski_south.F |
93 |
ORLANSKI_SOUTH |
f1 = fracCVEL /* dont change this. Set cvelTimeScale */ |
|
./pkg/obcs/orlanski_west.F |
104 |
ORLANSKI_WEST |
f1 = fracCVEL /* dont change this. Set cvelTimeScale */ |
|
./pkg/obcs/orlanski_west.F |
130 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
156 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
182 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
208 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT |
|
./pkg/obcs/orlanski_west.F |
236 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT) |
|
./pkg/obcs/orlanski_west.F |
96 |
ORLANSKI_WEST |
_RL CL, ab1, ab2, fracCVEL, f1, f2 |
|
./pkg/thsice/thsice_calc_thickn.F |
196 |
THSICE_CALC_THICKN |
_RL f1 |
|
./pkg/thsice/thsice_calc_thickn.F |
959 |
THSICE_CALC_THICKN |
f1 = (hnew(i,j,1)-hlyr)/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
960 |
THSICE_CALC_THICKN |
q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
|
./pkg/thsice/thsice_calc_thickn.F |
972 |
THSICE_CALC_THICKN |
f1 = hnew(i,j,1)/hlyr |
|
./pkg/thsice/thsice_calc_thickn.F |
973 |
THSICE_CALC_THICKN |
qicen(i,j,1) = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2) |
|
./pkg/thsice/thsice_reshape_layers.F |
48 |
THSICE_RESHAPE_LAYERS |
_RL f1 |
|
./pkg/thsice/thsice_reshape_layers.F |
57 |
THSICE_RESHAPE_LAYERS |
f1 = (hnew(1)-hlyr)/hlyr |
|
./pkg/thsice/thsice_reshape_layers.F |
58 |
THSICE_RESHAPE_LAYERS |
q2tmp = f1*qicen(1) + (1. _d 0-f1)*qicen(2) |
|
./pkg/thsice/thsice_reshape_layers.F |
70 |
THSICE_RESHAPE_LAYERS |
f1 = hnew(1)/hlyr |
|
./pkg/thsice/thsice_reshape_layers.F |
71 |
THSICE_RESHAPE_LAYERS |
qicen(1) = f1*qicen(1) + (1. _d 0-f1)*qicen(2) |