| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_eeboot.F |
40 |
W2_EEBOOT |
INTEGER ii, I, J |
|
./pkg/exch2/w2_eeboot.F |
62 |
W2_EEBOOT |
DO J = 1,W2_maxNeighbours |
|
./pkg/exch2/w2_eeboot.F |
63 |
W2_EEBOOT |
exch2_neighbourId(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
64 |
W2_EEBOOT |
exch2_opposingSend(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
66 |
W2_EEBOOT |
exch2_pij(ii,J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
68 |
W2_EEBOOT |
exch2_oi(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
69 |
W2_EEBOOT |
exch2_oj(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
70 |
W2_EEBOOT |
exch2_iLo(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
71 |
W2_EEBOOT |
exch2_iHi(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
72 |
W2_EEBOOT |
exch2_jLo(J,I) = 0 |
|
./pkg/exch2/w2_eeboot.F |
73 |
W2_EEBOOT |
exch2_jHi(J,I) = 0 |
|
./pkg/exch2/w2_map_procs.F |
102 |
W2_MAP_PROCS |
IF ( J .NE. nSx*nSy*nPx*nPy ) THEN |
|
./pkg/exch2/w2_map_procs.F |
149 |
W2_MAP_PROCS |
DO J=1,exch2_nNeighbours(myTileId) |
|
./pkg/exch2/w2_map_procs.F |
151 |
W2_MAP_PROCS |
jj = exch2_neighbourId(J,myTileId) |
|
./pkg/exch2/w2_map_procs.F |
155 |
W2_MAP_PROCS |
& ' NEIGHBOUR',J,' = TILE', exch2_neighbourId(J,myTileId), |
|
./pkg/exch2/w2_map_procs.F |
156 |
W2_MAP_PROCS |
& ' (n=', exch2_opposingSend(J,myTileId), ') Comm = MSG', |
|
./pkg/exch2/w2_map_procs.F |
157 |
W2_MAP_PROCS |
& ' (PROC=',W2_tileProc(exch2_neighbourId(J,myTileId)),')' |
|
./pkg/exch2/w2_map_procs.F |
162 |
W2_MAP_PROCS |
& ' NEIGHBOUR',J,' = TILE', exch2_neighbourId(J,myTileId), |
|
./pkg/exch2/w2_map_procs.F |
163 |
W2_MAP_PROCS |
& ' (n=', exch2_opposingSend(J,myTileId), ') Comm = PUT', |
|
./pkg/exch2/w2_map_procs.F |
164 |
W2_MAP_PROCS |
& ' (PROC=',W2_tileProc(exch2_neighbourId(J,myTileId)),')' |
|
./pkg/exch2/w2_map_procs.F |
167 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = commFlag |
|
./pkg/exch2/w2_map_procs.F |
45 |
W2_MAP_PROCS |
INTEGER I, J |
|
./pkg/exch2/w2_map_procs.F |
61 |
W2_MAP_PROCS |
DO J=1,W2_maxNeighbours |
|
./pkg/exch2/w2_map_procs.F |
62 |
W2_MAP_PROCS |
W2_myCommFlag(J,bi,bj) = ' ' |
|
./pkg/exch2/w2_map_procs.F |
76 |
W2_MAP_PROCS |
J = 0 |
|
./pkg/exch2/w2_map_procs.F |
85 |
W2_MAP_PROCS |
jj = J/(nSx*nPx) |
|
./pkg/exch2/w2_map_procs.F |
86 |
W2_MAP_PROCS |
ii = MOD(J,nSx*nPx) |
|
./pkg/exch2/w2_map_procs.F |
98 |
W2_MAP_PROCS |
J = J + 1 |
|
./pkg/exf/exf_mapfields.F |
342 |
EXF_MAPFIELDS |
saltFlux(I,J,bi,bj) = saltflx(I,J,bi,bj) |
|
./pkg/exf/exf_mapfields.F |
352 |
EXF_MAPFIELDS |
exf_iceFraction(I,J,bi,bj) = |
|
./pkg/exf/exf_mapfields.F |
353 |
EXF_MAPFIELDS |
& MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS ) |
|
./pkg/fizhi/fizhi_utils.F |
101 |
STRIPINT |
DO 100 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
103 |
STRIPINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
106 |
STRIPINT |
DO 200 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
108 |
STRIPINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
111 |
STRIPINT |
B(Lena+I,J) = A(Lena+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
129 |
PASTE |
DO 100 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
131 |
PASTE |
A(I+OFFSET-1,J) = B(I,J) |
|
./pkg/fizhi/fizhi_utils.F |
147 |
PSTBMP |
DO 100 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
149 |
PSTBMP |
A(I+OFFSET-1,J) = A(I+OFFSET-1,J) + B(I,J) |
|
./pkg/fizhi/fizhi_utils.F |
166 |
STRINT |
DO 100 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
168 |
STRINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
171 |
STRINT |
DO 200 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
173 |
STRINT |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
176 |
STRINT |
B(Lena+I,J) = A(Lena+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
72 |
STRIP |
DO 100 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
74 |
STRIP |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
77 |
STRIP |
DO 200 J=1,L |
|
./pkg/fizhi/fizhi_utils.F |
79 |
STRIP |
B(I,J) = A(I+OFFSET-1,J) |
|
./pkg/fizhi/fizhi_utils.F |
82 |
STRIP |
B(Lena+I,J) = A(Lena+OFFSET-1,J) |
|
./pkg/fizhi/update_earth_exports.F |
888 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
889 |
GETALB |
ALBOC(I,J) = A0 + (A1 + (A2 + A3*cosz(I,J))*cosz(I,J))*cosz(I,J) |
|
./pkg/fizhi/update_earth_exports.F |
890 |
GETALB |
ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
891 |
GETALB |
ALBNR(I,J,bi,bj) = ALBVR(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
892 |
GETALB |
ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J)) |
|
./pkg/fizhi/update_earth_exports.F |
893 |
GETALB |
ALBNF(I,J,bi,bj) = ALBVF(I,J,bi,bj) |
|
./pkg/fizhi/update_earth_exports.F |
909 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
917 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
922 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
929 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
934 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
941 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
946 |
GETALB |
DO J=1,JM |
|
./pkg/fizhi/update_earth_exports.F |
953 |
GETALB |
DO J=1,JM |
|
./pkg/flt/exch2_send_put_vec.F |
67 |
EXCH2_SEND_PUT_VEC_RL |
INTEGER I,J,sBi,sBj, nN, thisTile, tgT, tgN, dir, sDir |
|
./pkg/ggl90/ggl90_calc.F |
158 |
GGL90_CALC |
recip_hFacI(I,J,K)=0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
160 |
GGL90_CALC |
& recip_hFacI(I,J,K)=1. _d 0/hFac |
|
./pkg/ggl90/ggl90_init_varia.F |
104 |
GGL90_INIT_VARIA |
DO J=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_varia.F |
123 |
GGL90_INIT_VARIA |
DO J=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_varia.F |
148 |
GGL90_INIT_VARIA |
DO J=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_varia.F |
150 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
151 |
GGL90_INIT_VARIA |
& GGL90TKEmin)*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
37 |
GGL90_INIT_VARIA |
INTEGER I, J, K |
|
./pkg/ggl90/ggl90_init_varia.F |
48 |
GGL90_INIT_VARIA |
DO J=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
54 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90eps*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
57 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
77 |
GGL90_INIT_VARIA |
DO J=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_varia.F |
79 |
GGL90_INIT_VARIA |
IDEMIX_E(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
80 |
GGL90_INIT_VARIA |
IDEMIX_V0(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
81 |
GGL90_INIT_VARIA |
IDEMIX_tau_d(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
86 |
GGL90_INIT_VARIA |
DO J=1-OLy,sNy+OLy |
|
./pkg/ggl90/ggl90_init_varia.F |
88 |
GGL90_INIT_VARIA |
IDEMIX_F_B(I,J,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_init_varia.F |
89 |
GGL90_INIT_VARIA |
IDEMIX_F_S(I,J,bi,bj) = 0. _d 0 |
|
./pkg/grdchk/grdchk_get_position.F |
187 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_get_position.F |
195 |
GRDCHK_GET_POSITION |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
240 |
GRDCHK_LOC |
& .and. i.eq. OB_Iw(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
242 |
GRDCHK_LOC |
itmp = OB_Iw(J,bi,bj) |
|
./pkg/grdchk/grdchk_loc.F |
249 |
GRDCHK_LOC |
& .and. i.eq. OB_Ie(J,bi,bj) ) then |
|
./pkg/grdchk/grdchk_loc.F |
251 |
GRDCHK_LOC |
itmp = OB_Ie(J,bi,bj) |
|
./pkg/icefront/icefront_init_fixed.F |
100 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
110 |
ICEFRONT_INIT_FIXED |
DO J = 1, sNy |
|
./pkg/icefront/icefront_init_fixed.F |
113 |
ICEFRONT_INIT_FIXED |
IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN |
|
./pkg/icefront/icefront_init_fixed.F |
115 |
ICEFRONT_INIT_FIXED |
IsInterface=Isinterface + K_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_init_fixed.F |
37 |
ICEFRONT_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_fixed.F |
85 |
ICEFRONT_INIT_FIXED |
DO J = 1-OLy, sNy+OLy |
|
./pkg/icefront/icefront_init_fixed.F |
87 |
ICEFRONT_INIT_FIXED |
R_icefront(I,J,bi,bj) = ABS(R_icefront(I,J,bi,bj)) |
|
./pkg/icefront/icefront_init_fixed.F |
95 |
ICEFRONT_INIT_FIXED |
DO J = 1-OLy, sNy+OLy |
|
./pkg/icefront/icefront_init_fixed.F |
99 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_init_varia.F |
31 |
ICEFRONT_INIT_VARIA |
INTEGER I, J, K, bi, bj |
|
./pkg/icefront/icefront_init_varia.F |
37 |
ICEFRONT_INIT_VARIA |
DO J = 1, sNy |
|
./pkg/icefront/icefront_thermodynamics.F |
100 |
ICEFRONT_THERMODYNAMICS |
& *ICEFRONTheatTransCoeff(I,J) |
|
./pkg/icefront/icefront_thermodynamics.F |
103 |
ICEFRONT_THERMODYNAMICS |
eps1 = rUnit2mass*HeatCapacity_Cp*ICEFRONTheatTransCoeff(I,J) |
|
./pkg/icefront/icefront_thermodynamics.F |
104 |
ICEFRONT_THERMODYNAMICS |
eps2 = rUnit2mass*ICEFRONTlatentHeat*ICEFRONTsaltTransCoeff(I,J) |
|
./pkg/icefront/icefront_thermodynamics.F |
106 |
ICEFRONT_THERMODYNAMICS |
& *ICEFRONTsaltTransCoeff(I,J) |
|
./pkg/icefront/icefront_thermodynamics.F |
113 |
ICEFRONT_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
114 |
ICEFRONT_THERMODYNAMICS |
sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/icefront/icefront_thermodynamics.F |
121 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
122 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
125 |
ICEFRONT_THERMODYNAMICS |
& (R_icefront(I,J,bi,bj)-pLoc) |
|
./pkg/icefront/icefront_thermodynamics.F |
126 |
ICEFRONT_THERMODYNAMICS |
& / R_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
146 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) * |
|
./pkg/icefront/icefront_thermodynamics.F |
150 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
151 |
ICEFRONT_THERMODYNAMICS |
& ( -rUnit2mass*ICEFRONTheatTransCoeff(I,J) + |
|
./pkg/icefront/icefront_thermodynamics.F |
152 |
ICEFRONT_THERMODYNAMICS |
& FreshWaterFlux(I,J) ) * ( thetaFreeze - tLoc ) |
|
./pkg/icefront/icefront_thermodynamics.F |
155 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
156 |
ICEFRONT_THERMODYNAMICS |
icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) * |
|
./pkg/icefront/icefront_thermodynamics.F |
171 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
181 |
ICEFRONT_THERMODYNAMICS |
HeatFlux (I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
182 |
ICEFRONT_THERMODYNAMICS |
FreshWaterFlux(I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
60 |
ICEFRONT_THERMODYNAMICS |
INTEGER I,J,K |
|
./pkg/icefront/icefront_thermodynamics.F |
88 |
ICEFRONT_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/icefront/icefront_thermodynamics.F |
92 |
ICEFRONT_THERMODYNAMICS |
IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
93 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
94 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTheatTransCoeff(I,J) = 1.0 _d -02 |
|
./pkg/icefront/icefront_thermodynamics.F |
95 |
ICEFRONT_THERMODYNAMICS |
& *abs(wVEL(I,J,K,bi,bj)) |
|
./pkg/icefront/icefront_thermodynamics.F |
97 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTheatTransCoeff(I,J) = max |
|
./pkg/icefront/icefront_thermodynamics.F |
98 |
ICEFRONT_THERMODYNAMICS |
& (ICEFRONTheatTransCoeff(I,J),1. _d -04) |
|
./pkg/icefront/icefront_thermodynamics.F |
99 |
ICEFRONT_THERMODYNAMICS |
ICEFRONTsaltTransCoeff(I,J) = 5.05 _d -3 |
|
./pkg/kl10/kl10_calc.F |
105 |
KL10_CALC |
IF ( (rhoS(K).LT.rhoS(K-1)).AND.(maskC(I,J,K,bi |
|
./pkg/kl10/kl10_calc.F |
122 |
KL10_CALC |
KLdiffKr(I,J,1,bi,bj) = MAX(KLviscAr(I,J,1,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
124 |
KL10_CALC |
& diffKr(I,J,1,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
165 |
KL10_CALC |
KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K)) |
|
./pkg/kl10/kl10_calc.F |
166 |
KL10_CALC |
KLdiffKr(I,J,K,bi,bj) = MAX(KTemp, |
|
./pkg/kl10/kl10_calc.F |
168 |
KL10_CALC |
& diffKr(I,J,K,bi,bj) ) |
|
./pkg/kl10/kl10_calc.F |
187 |
KL10_CALC |
IF (hfacW(I+di,J-1,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
188 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
189 |
KL10_CALC |
& +drF(Km1)*hfacW(I+di,J-1,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
191 |
KL10_CALC |
tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J |
|
./pkg/kl10/kl10_calc.F |
193 |
KL10_CALC |
epsw(di)=tempu*tempu*KLviscAr(I+di,J-1,K,bi |
|
./pkg/kl10/kl10_calc.F |
201 |
KL10_CALC |
dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj)) |
|
./pkg/kl10/kl10_calc.F |
206 |
KL10_CALC |
IF (hfacS(I-1,J+di,K,bi,bj).GT.0.000001) THEN |
|
./pkg/kl10/kl10_calc.F |
207 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
208 |
KL10_CALC |
& +drF(Km1)*hfacS(I-1,J+di,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
210 |
KL10_CALC |
tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J |
|
./pkg/kl10/kl10_calc.F |
212 |
KL10_CALC |
epss(di)=tempu*tempu*KLviscAr(I-1,J+di,K,bi |
|
./pkg/kl10/kl10_calc.F |
220 |
KL10_CALC |
dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
242 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = 0.5*(ep+ec) |
|
./pkg/kl10/kl10_calc.F |
244 |
KL10_CALC |
KLeps(I-1,J-1,Km1,bi,bj) = ec |
|
./pkg/kl10/kl10_calc.F |
259 |
KL10_CALC |
KLeps(I-1,J-1,Nr,bi,bj) =ep |
|
./pkg/kl10/kl10_calc.F |
61 |
KL10_CALC |
INTEGER I, J, K, Km1, JJ |
|
./pkg/kl10/kl10_calc.F |
79 |
KL10_CALC |
DO J=jMin,jMax |
|
./pkg/kl10/kl10_calc.F |
82 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
83 |
KL10_CALC |
& totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kl10/kl10_calc.F |
87 |
KL10_CALC |
KLeps(I-1,J-1,1,bi,bj)=0.0 |
|
./pkg/kl10/kl10_calc.F |
92 |
KL10_CALC |
KLviscAr(I,J,1,bi,bj) = viscArNr(1) |
|
./pkg/kl10/kl10_calc.F |
93 |
KL10_CALC |
KLviscold = KLviscAr(I,J,1,bi,bj) ! at previous cell center |
|
./pkg/kl10/kl10_calc.F |
97 |
KL10_CALC |
CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi |
|
./pkg/kl10/kl10_calc.F |
98 |
KL10_CALC |
& ,bj),totPhiHyd(I,J,K,bi,bj),rhot,myThid ) |
|
./pkg/kpp/kpp_forcing_surf.F |
168 |
KPP_FORCING_SURF |
bo (I,J) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
169 |
KPP_FORCING_SURF |
bosol(I,J) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
172 |
KPP_FORCING_SURF |
boplume(I,J,k) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
174 |
KPP_FORCING_SURF |
boplume(I,J,Nrp1) = p0 |
|
./pkg/kpp/kpp_forcing_surf.F |
212 |
KPP_FORCING_SURF |
bo(I,J) = - gravity * |
|
./pkg/kpp/kpp_forcing_surf.F |
213 |
KPP_FORCING_SURF |
& ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+ |
|
./pkg/kpp/kpp_forcing_surf.F |
215 |
KPP_FORCING_SURF |
& SSBETA(I,J,1) * surfForcS(i,j,bi,bj) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
216 |
KPP_FORCING_SURF |
& / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
217 |
KPP_FORCING_SURF |
bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) * |
|
./pkg/kpp/kpp_forcing_surf.F |
219 |
KPP_FORCING_SURF |
& / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
232 |
KPP_FORCING_SURF |
temparray(I,J) = - gravity * |
|
./pkg/kpp/kpp_forcing_surf.F |
233 |
KPP_FORCING_SURF |
& ( SSBETA(I,J,k) * SPforcS(i,j,k) + |
|
./pkg/kpp/kpp_forcing_surf.F |
234 |
KPP_FORCING_SURF |
& TTALPHA(I,J,k)* SPforcT(i,j,k) / HeatCapacity_Cp ) |
|
./pkg/kpp/kpp_forcing_surf.F |
235 |
KPP_FORCING_SURF |
& * recip_rhoConst / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
236 |
KPP_FORCING_SURF |
boplume(I,J,kp1) = boplume(I,J,k)+temparray(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
244 |
KPP_FORCING_SURF |
boplume(I,J,k) = 0. _d 0 |
|
./pkg/kpp/kpp_forcing_surf.F |
246 |
KPP_FORCING_SURF |
boplume(I,J,1) = - gravity * SSBETA(I,J,1) |
|
./pkg/kpp/kpp_forcing_surf.F |
248 |
KPP_FORCING_SURF |
& * recip_rhoConst / rhoSurf(I,J) |
|
./pkg/kpp/kpp_forcing_surf.F |
307 |
KPP_FORCING_SURF |
& maskC(I,J,k,bi,bj) .GT. 0. .AND. |
|
./pkg/kpp/kpp_init_varia.F |
45 |
KPP_INIT_VARIA |
nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj) |
|
./pkg/kpp/kpp_routines.F |
1698 |
STATEKPP |
INTEGER I, J, K |
|
./pkg/kpp/kpp_routines.F |
1731 |
STATEKPP |
DO J = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_routines.F |
1733 |
STATEKPP |
RHO1(I,J) = WORK1(I,J) + rhoConst |
|
./pkg/kpp/kpp_routines.F |
1734 |
STATEKPP |
TTALPHA(I,J,1) = WORK2(I,J) |
|
./pkg/kpp/kpp_routines.F |
1735 |
STATEKPP |
SSBETA(I,J,1) = WORK3(I,J) |
|
./pkg/kpp/kpp_routines.F |
1736 |
STATEKPP |
DBSFC(I,J,1) = 0. |
|
./pkg/kpp/kpp_routines.F |
1800 |
STATEKPP |
DO J = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_routines.F |
1802 |
STATEKPP |
TTALPHA(I,J,K) = WORK1 (I,J) |
|
./pkg/kpp/kpp_routines.F |
1803 |
STATEKPP |
SSBETA(I,J,K) = WORK2 (I,J) |
|
./pkg/kpp/kpp_routines.F |
1804 |
STATEKPP |
DBLOC(I,J,K-1) = gravity * (RHOK(I,J) - RHOKM1(I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1805 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1806 |
STATEKPP |
DBSFC(I,J,K) = gravity * (RHOK(I,J) - RHO1K (I,J)) / |
|
./pkg/kpp/kpp_routines.F |
1807 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1814 |
STATEKPP |
DO J = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_routines.F |
1816 |
STATEKPP |
TTALPHA(I,J,Nrp1) = TTALPHA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1817 |
STATEKPP |
SSBETA(I,J,Nrp1) = SSBETA(I,J,Nr) |
|
./pkg/kpp/kpp_routines.F |
1818 |
STATEKPP |
DBLOC(I,J,Nr) = 0. |
|
./pkg/kpp/kpp_routines.F |
1892 |
KPP_DOUBLEDIFF |
INTEGER I, J, K |
|
./pkg/kpp/kpp_routines.F |
1924 |
KPP_DOUBLEDIFF |
DO J = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_routines.F |
1926 |
KPP_DOUBLEDIFF |
alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1927 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ABS( TTALPHA(I,J,Km1) + TTALPHA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1928 |
KPP_DOUBLEDIFF |
betaDS(I,J) = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) ) |
|
./pkg/kpp/kpp_routines.F |
1929 |
KPP_DOUBLEDIFF |
& * 0.5 _d 0 * ( SSBETA(I,J,Km1) + SSBETA(I,J,K) ) |
|
./pkg/kpp/kpp_routines.F |
1930 |
KPP_DOUBLEDIFF |
nuddt(I,J) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1931 |
KPP_DOUBLEDIFF |
nudds(I,J) = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1935 |
KPP_DOUBLEDIFF |
DO J = jMin, jMax |
|
./pkg/kpp/kpp_routines.F |
1941 |
KPP_DOUBLEDIFF |
IF ( alphaDT(I,J) .GT. betaDS(I,J) |
|
./pkg/kpp/kpp_routines.F |
1942 |
KPP_DOUBLEDIFF |
& .AND. betaDS(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/kpp/kpp_routines.F |
1943 |
KPP_DOUBLEDIFF |
Rrho = MIN( alphaDT(I,J)/betaDS(I,J), Rrho0 ) |
|
./pkg/kpp/kpp_routines.F |
1947 |
KPP_DOUBLEDIFF |
nudds(I,J) = dsfmax * nutmp * nutmp * nutmp |
|
./pkg/kpp/kpp_routines.F |
1949 |
KPP_DOUBLEDIFF |
nuddt(I,J) = 0.7 _d 0 * nudds(I,J) |
|
./pkg/kpp/kpp_routines.F |
1950 |
KPP_DOUBLEDIFF |
ELSEIF ( alphaDT(I,J) .LT. 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1951 |
KPP_DOUBLEDIFF |
& .AND. betaDS(I,J) .LT. 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1952 |
KPP_DOUBLEDIFF |
& .AND.alphaDT(I,J) .GT. betaDS(I,J) ) THEN |
|
./pkg/kpp/kpp_routines.F |
1957 |
KPP_DOUBLEDIFF |
Rrho = alphaDT(I,J)/betaDS(I,J) |
|
./pkg/kpp/kpp_routines.F |
1959 |
KPP_DOUBLEDIFF |
nuddt(I,J) = numol * 0.909 _d 0 |
|
./pkg/kpp/kpp_routines.F |
1966 |
KPP_DOUBLEDIFF |
nudds(I,J) = nuddt(I,J) * MAX( 0.15 _d 0 * Rrho, |
|
./pkg/kpp/kpp_routines.F |
1978 |
KPP_DOUBLEDIFF |
DO J = 1-OLy, sNy+OLy |
|
./pkg/kpp/kpp_routines.F |
1980 |
KPP_DOUBLEDIFF |
kappaRT(I,J,K) = kappaRT(I,J,K) + nuddt(I,J) |
|
./pkg/kpp/kpp_routines.F |
1981 |
KPP_DOUBLEDIFF |
kappaRS(I,J,K) = kappaRS(I,J,K) + nudds(I,J) |
|
./pkg/kpp/kpp_transport_s.F |
63 |
KPP_TRANSPORT_S |
INTEGER I, J |
|
./pkg/land/land_ini_vars.F |
63 |
LAND_INI_VARS |
DO J=1-Oly,sNy+Oly |
|
./pkg/land/land_ini_vars.F |
73 |
LAND_INI_VARS |
DO J=1-Oly,sNy+Oly |
|
./pkg/mdsio/mdsio_gl.F |
1150 |
MDSREADFIELD_2D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
1152 |
MDSREADFIELD_2D_GL |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1160 |
MDSREADFIELD_2D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
1162 |
MDSREADFIELD_2D_GL |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1176 |
MDSREADFIELD_2D_GL |
DO J=1,sNy |
|
./pkg/mdsio/mdsio_gl.F |
1177 |
MDSREADFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1381 |
MDSWRITEFIELD_2D_GL |
DO J=1,sNy |
|
./pkg/mdsio/mdsio_gl.F |
1382 |
MDSWRITEFIELD_2D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
1396 |
MDSWRITEFIELD_2D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
1398 |
MDSWRITEFIELD_2D_GL |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
1406 |
MDSWRITEFIELD_2D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
1408 |
MDSWRITEFIELD_2D_GL |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
363 |
MDSREADFIELD_3D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
365 |
MDSREADFIELD_3D_GL |
global(I,J) = xy_buffer_r4(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
373 |
MDSREADFIELD_3D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
375 |
MDSREADFIELD_3D_GL |
global(I,J) = xy_buffer_r8(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
389 |
MDSREADFIELD_3D_GL |
DO J=1,sNy |
|
./pkg/mdsio/mdsio_gl.F |
390 |
MDSREADFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
592 |
MDSWRITEFIELD_3D_GL |
DO J=1,sNy |
|
./pkg/mdsio/mdsio_gl.F |
593 |
MDSWRITEFIELD_3D_GL |
JJ=((jp-1)*nSy+(bj-1))*sNy+J |
|
./pkg/mdsio/mdsio_gl.F |
607 |
MDSWRITEFIELD_3D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
609 |
MDSWRITEFIELD_3D_GL |
xy_buffer_r4(I,J) = global(I,J) |
|
./pkg/mdsio/mdsio_gl.F |
617 |
MDSWRITEFIELD_3D_GL |
DO J=1,Ny |
|
./pkg/mdsio/mdsio_gl.F |
619 |
MDSWRITEFIELD_3D_GL |
xy_buffer_r8(I,J) = global(I,J) |
|
./pkg/mom_common/mom_calc_absvort3.F |
46 |
MOM_CALC_ABSVORT3 |
omega3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
114 |
MOM_CALC_RELVORT3 |
J=1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
117 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
118 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
119 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
120 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
121 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
131 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
132 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
133 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
134 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
135 |
MOM_CALC_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
136 |
MOM_CALC_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
140 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
155 |
MOM_CALC_RELVORT3 |
J=1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
159 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
160 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
161 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
162 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
163 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
166 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
167 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
168 |
MOM_CALC_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
169 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
170 |
MOM_CALC_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
173 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
174 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
175 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
176 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
177 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
188 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
189 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
190 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
191 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
192 |
MOM_CALC_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
193 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
197 |
MOM_CALC_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
212 |
MOM_CALC_RELVORT3 |
J=sNy+1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
216 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
217 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
218 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
219 |
MOM_CALC_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
220 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
223 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
224 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
225 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
226 |
MOM_CALC_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
227 |
MOM_CALC_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
230 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
231 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
232 |
MOM_CALC_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
233 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
234 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
245 |
MOM_CALC_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
246 |
MOM_CALC_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
247 |
MOM_CALC_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
248 |
MOM_CALC_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
249 |
MOM_CALC_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
250 |
MOM_CALC_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
254 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
269 |
MOM_CALC_RELVORT3 |
J=sNy+1 |
|
./pkg/mom_common/mom_calc_relvort3.F |
273 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
274 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
275 |
MOM_CALC_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
276 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
277 |
MOM_CALC_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
280 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
281 |
MOM_CALC_RELVORT3 |
& +recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
282 |
MOM_CALC_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
283 |
MOM_CALC_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
284 |
MOM_CALC_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
295 |
MOM_CALC_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
296 |
MOM_CALC_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
297 |
MOM_CALC_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
298 |
MOM_CALC_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
299 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
300 |
MOM_CALC_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
304 |
MOM_CALC_RELVORT3 |
vort3(I,J+1)=vort3(I+1,J) |
|
./pkg/mom_common/mom_calc_relvort3.F |
46 |
MOM_CALC_RELVORT3 |
DO J=1-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_relvort3.F |
48 |
MOM_CALC_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/mom_common/mom_calc_relvort3.F |
53 |
MOM_CALC_RELVORT3 |
DO J=2-OLy,sNy+OLy |
|
./pkg/mom_common/mom_calc_relvort3.F |
57 |
MOM_CALC_RELVORT3 |
vort3(I,J)= |
|
./pkg/mom_common/mom_calc_relvort3.F |
58 |
MOM_CALC_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/mom_common/mom_calc_relvort3.F |
59 |
MOM_CALC_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
60 |
MOM_CALC_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/mom_common/mom_calc_relvort3.F |
61 |
MOM_CALC_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/mom_common/mom_calc_relvort3.F |
62 |
MOM_CALC_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
46 |
MOM_U_DEL2U |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_del2u.F |
60 |
MOM_U_DEL2U |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
78 |
MOM_U_DEL2U |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
50 |
MOM_U_XVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
60 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
63 |
MOM_U_XVISCFLUX |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
65 |
MOM_U_XVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
51 |
MOM_U_YVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
62 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
67 |
MOM_U_YVISCFLUX |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
69 |
MOM_U_YVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
45 |
MOM_V_DEL2V |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_del2v.F |
59 |
MOM_V_DEL2V |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
74 |
MOM_V_DEL2V |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
51 |
MOM_V_XVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
61 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
64 |
MOM_V_XVISCFLUX |
& *sqCosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
66 |
MOM_V_XVISCFLUX |
& *cosFacV(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
50 |
MOM_V_YVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
61 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
66 |
MOM_V_YVISCFLUX |
& *sqCosFacU(J,bi,bj) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
68 |
MOM_V_YVISCFLUX |
& *cosFacU(J,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
34 |
MOM_VI_CORIOLIS |
INTEGER I,J |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
41 |
MOM_VI_CORIOLIS |
DO J=1-Oly,sNy+Oly-1 |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
57 |
MOM_VI_CORIOLIS |
DO J=1-Oly,sNy+Oly-1 |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
67 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
74 |
MOM_VI_CORIOLIS |
DO J=2-Oly,sNy+Oly |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
90 |
MOM_VI_CORIOLIS |
DO J=2-Oly,sNy+Oly |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
103 |
MOM_VI_U_VERTSHEAR |
uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
123 |
MOM_VI_U_VERTSHEAR |
uShearTerm(I,J)=-0.5* |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
130 |
MOM_VI_U_VERTSHEAR |
uShearTerm(I,J)=-0.5*(wBarXp*uZp+wBarXm*uZm) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
31 |
MOM_VI_U_VERTSHEAR |
INTEGER I,J,Kp1,Km1 |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
56 |
MOM_VI_U_VERTSHEAR |
DO J=1-OLy,sNy+OLy |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
83 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
84 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
89 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
90 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
103 |
MOM_VI_V_VERTSHEAR |
vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
123 |
MOM_VI_V_VERTSHEAR |
vShearTerm(I,J)=-0.5* |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
130 |
MOM_VI_V_VERTSHEAR |
vShearTerm(I,J)=-0.5*(wBarYp*vZp+wBarYm*vZm) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
31 |
MOM_VI_V_VERTSHEAR |
INTEGER I,J,Kp1,Km1 |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
56 |
MOM_VI_V_VERTSHEAR |
DO J=2-OLy,sNy+OLy |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
83 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
84 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
89 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
90 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/monitor/mon_advcfl.F |
33 |
MON_ADVCFL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcfl.F |
41 |
MON_ADVCFL |
DO J=1,sNy |
|
./pkg/monitor/mon_advcfl.F |
43 |
MON_ADVCFL |
tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT |
|
./pkg/monitor/mon_advcflw.F |
33 |
MON_ADVCFLW |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw.F |
41 |
MON_ADVCFLW |
DO J=1,sNy |
|
./pkg/monitor/mon_advcflw.F |
43 |
MON_ADVCFLW |
tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT |
|
./pkg/monitor/mon_advcflw2.F |
35 |
MON_ADVCFLW2 |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_advcflw2.F |
43 |
MON_ADVCFLW2 |
DO J=1,sNy |
|
./pkg/monitor/mon_advcflw2.F |
45 |
MON_ADVCFLW2 |
tmpVal=abs(W(I,J,K,bi,bj))*dT |
|
./pkg/monitor/mon_advcflw2.F |
46 |
MON_ADVCFLW2 |
& *max( rDrF(K)*rHfac(I,J,K,bi,bj), |
|
./pkg/monitor/mon_advcflw2.F |
47 |
MON_ADVCFLW2 |
& rDrF(K-1)*rHfac(I,J,K-1,bi,bj) ) |
|
./pkg/monitor/mon_stats_rl.F |
134 |
MON_STATS_RL |
DO J=1,sNy |
|
./pkg/monitor/mon_stats_rl.F |
136 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
137 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
138 |
MON_STATS_RL |
tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./pkg/monitor/mon_stats_rl.F |
139 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
35 |
MON_STATS_RL |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_stats_rl.F |
68 |
MON_STATS_RL |
DO J=1,sNy |
|
./pkg/monitor/mon_stats_rl.F |
70 |
MON_STATS_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
71 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN |
|
./pkg/monitor/mon_stats_rl.F |
76 |
MON_STATS_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./pkg/monitor/mon_stats_rl.F |
81 |
MON_STATS_RL |
& (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
82 |
MON_STATS_RL |
& +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
83 |
MON_STATS_RL |
& +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
84 |
MON_STATS_RL |
& +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj) |
|
./pkg/monitor/mon_stats_rl.F |
87 |
MON_STATS_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./pkg/monitor/mon_stats_rl.F |
88 |
MON_STATS_RL |
& *arrMask(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
101 |
MON_STATS_RS |
DO J=1,sNy |
|
./pkg/monitor/mon_stats_rs.F |
103 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/monitor/mon_stats_rs.F |
32 |
MON_STATS_RS |
INTEGER bi,bj,I,J,K |
|
./pkg/monitor/mon_stats_rs.F |
54 |
MON_STATS_RS |
DO J=1,sNy |
|
./pkg/monitor/mon_stats_rs.F |
56 |
MON_STATS_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
101 |
MY82_CALC |
DO J=jMin,jMax |
|
./pkg/my82/my82_calc.F |
103 |
MY82_CALC |
RiTmp = MIN(RiNumber(I,J),RiMax) |
|
./pkg/my82/my82_calc.F |
111 |
MY82_CALC |
SH(I,J,K) = SHtmp |
|
./pkg/my82/my82_calc.F |
112 |
MY82_CALC |
SM(I,J,K) = SHtmp*(beta1-beta2*RiFlux)/(beta3-beta4*RiFlux) |
|
./pkg/my82/my82_calc.F |
115 |
MY82_CALC |
& b1*(SH(I,J,K)*GH(I,J) + SM(I,J,K)*GM(I,J)) ) |
|
./pkg/my82/my82_calc.F |
116 |
MY82_CALC |
tke(I,J,K) = sqrt(tkesquare) |
|
./pkg/my82/my82_calc.F |
128 |
MY82_CALC |
DO J=jMin,jMax |
|
./pkg/my82/my82_calc.F |
130 |
MY82_CALC |
GH(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
131 |
MY82_CALC |
GM(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
139 |
MY82_CALC |
DO J=jMin,jMax |
|
./pkg/my82/my82_calc.F |
141 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |
|
./pkg/my82/my82_calc.F |
142 |
MY82_CALC |
GH(I,J) = GH(I,J) + tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
148 |
MY82_CALC |
DO J=jMin,jMax |
|
./pkg/my82/my82_calc.F |
150 |
MY82_CALC |
IF ( GH(I,J) .EQ. 0. _d 0 ) THEN |
|
./pkg/my82/my82_calc.F |
151 |
MY82_CALC |
MYhbl(I,J,bi,bj) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
153 |
MY82_CALC |
MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale |
|
./pkg/my82/my82_calc.F |
160 |
MY82_CALC |
DO J=jMin,jMax |
|
./pkg/my82/my82_calc.F |
162 |
MY82_CALC |
tkel = MYhbl(I,J,bi,bj)*tke(I,J,K) |
|
./pkg/my82/my82_calc.F |
164 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K) |
|
./pkg/my82/my82_calc.F |
165 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K) |
|
./pkg/my82/my82_calc.F |
167 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MAX(MYdiffKr(I,J,K,bi,bj), |
|
./pkg/my82/my82_calc.F |
176 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax) |
|
./pkg/my82/my82_calc.F |
177 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
178 |
MY82_CALC |
MYdiffKr(I,J,K,bi,bj) = MIN(MYdiffKr(I,J,K,bi,bj),MYdiffMax) |
|
./pkg/my82/my82_calc.F |
179 |
MY82_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/my82/my82_calc.F |
62 |
MY82_CALC |
INTEGER I, J, K |
|
./pkg/my82/my82_calc.F |
79 |
MY82_CALC |
DO J=1-OLy,sNy+OLy |
|
./pkg/my82/my82_calc.F |
81 |
MY82_CALC |
GH(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
82 |
MY82_CALC |
GM(I,J) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
86 |
MY82_CALC |
DO J=1-OLy,sNy+OLy |
|
./pkg/my82/my82_calc.F |
88 |
MY82_CALC |
SH(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
89 |
MY82_CALC |
SM(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_calc.F |
90 |
MY82_CALC |
tke(I,J,K) = 0. _d 0 |
|
./pkg/my82/my82_ri_number.F |
102 |
MY82_RI_NUMBER |
DO J= jMin, jMax |
|
./pkg/my82/my82_ri_number.F |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
105 |
MY82_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/my82/my82_ri_number.F |
107 |
MY82_RI_NUMBER |
tempv= .5 _d 0*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/my82/my82_ri_number.F |
108 |
MY82_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/my82/my82_ri_number.F |
110 |
MY82_RI_NUMBER |
vertShear(I,J) = tempu*tempu+tempv*tempv |
|
./pkg/my82/my82_ri_number.F |
115 |
MY82_RI_NUMBER |
buoyFreq(I,J) = gravity*mass2rUnit * |
|
./pkg/my82/my82_ri_number.F |
116 |
MY82_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/my82/my82_ri_number.F |
121 |
MY82_RI_NUMBER |
RiNumber(I,J) = -buoyFreq(I,J)/max(vertShear(I,J),epsilon) |
|
./pkg/my82/my82_ri_number.F |
128 |
MY82_RI_NUMBER |
DO J=jMin,jMax |
|
./pkg/my82/my82_ri_number.F |
130 |
MY82_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/my82/my82_ri_number.F |
133 |
MY82_RI_NUMBER |
DO J=1-Oly+1,sNy+Oly-1 |
|
./pkg/my82/my82_ri_number.F |
135 |
MY82_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/my82/my82_ri_number.F |
136 |
MY82_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/my82/my82_ri_number.F |
137 |
MY82_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/my82/my82_ri_number.F |
60 |
MY82_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/obcs/obcs_adjust_uvice.F |
146 |
OBCS_ADJUST_UVICE |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_adjust_uvice.F |
148 |
OBCS_ADJUST_UVICE |
IF (OB_Ie(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
150 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
151 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
152 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
153 |
OBCS_ADJUST_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj) = |
|
./pkg/obcs/obcs_adjust_uvice.F |
154 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
155 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
158 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
159 |
OBCS_ADJUST_UVICE |
& max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
160 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
162 |
OBCS_ADJUST_UVICE |
uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
163 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
165 |
OBCS_ADJUST_UVICE |
vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
166 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
168 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
169 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
170 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
171 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
172 |
OBCS_ADJUST_UVICE |
& uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
173 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
176 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Ie(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
177 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
178 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
179 |
OBCS_ADJUST_UVICE |
& ( vFld(OB_Ie(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
180 |
OBCS_ADJUST_UVICE |
& vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
181 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
191 |
OBCS_ADJUST_UVICE |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_adjust_uvice.F |
193 |
OBCS_ADJUST_UVICE |
IF (OB_Iw(J,bi,bj).NE.OB_indexNone) THEN |
|
./pkg/obcs/obcs_adjust_uvice.F |
195 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
196 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
197 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
203 |
OBCS_ADJUST_UVICE |
vFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
204 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
205 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
208 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)= |
|
./pkg/obcs/obcs_adjust_uvice.F |
209 |
OBCS_ADJUST_UVICE |
& min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)) |
|
./pkg/obcs/obcs_adjust_uvice.F |
210 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
212 |
OBCS_ADJUST_UVICE |
uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
213 |
OBCS_ADJUST_UVICE |
& * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
215 |
OBCS_ADJUST_UVICE |
vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
216 |
OBCS_ADJUST_UVICE |
& * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
218 |
OBCS_ADJUST_UVICE |
if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
219 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
220 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
221 |
OBCS_ADJUST_UVICE |
& ( uFld(OB_Iw(J,bi,bj)+1,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
222 |
OBCS_ADJUST_UVICE |
& uFld(OB_Iw(J,bi,bj)+3,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
223 |
OBCS_ADJUST_UVICE |
& _maskW(OB_Iw(J,bi,bj)+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
226 |
OBCS_ADJUST_UVICE |
if ( _maskS(OB_Iw(J,bi,bj) ,J,K,bi,bj) .NE. 0. .AND. |
|
./pkg/obcs/obcs_adjust_uvice.F |
227 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. ) |
|
./pkg/obcs/obcs_adjust_uvice.F |
228 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/obcs/obcs_adjust_uvice.F |
229 |
OBCS_ADJUST_UVICE |
& ( vFld(OB_Iw(J,bi,bj) ,J,bi,bj) + |
|
./pkg/obcs/obcs_adjust_uvice.F |
230 |
OBCS_ADJUST_UVICE |
& vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) ) * |
|
./pkg/obcs/obcs_adjust_uvice.F |
231 |
OBCS_ADJUST_UVICE |
& _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_adjust_uvice.F |
40 |
OBCS_ADJUST_UVICE |
INTEGER I,J,K,bi,bj |
|
./pkg/obcs/obcs_apply_seaice.F |
212 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
95 |
OBCS_APPLY_SEAICE |
Iobc = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
110 |
OBCS_CALC_STEVENS |
INTEGER I, J, K |
|
./pkg/obcs/obcs_calc_stevens.F |
174 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
175 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
185 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
187 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
189 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
195 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I-1,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
197 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBEuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
199 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
205 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
206 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
207 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
213 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
214 |
OBCS_CALC_STEVENS |
& * _maskW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
217 |
OBCS_CALC_STEVENS |
OBEw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
225 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
228 |
OBCS_CALC_STEVENS |
OBEeta(J,bi,bj) = etaN(I-1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
236 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
237 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
239 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
242 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
244 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
245 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
301 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
302 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
312 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
314 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
316 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
317 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
322 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I+2,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
324 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBWuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
326 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
332 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
333 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
334 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
340 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
341 |
OBCS_CALC_STEVENS |
& * _maskW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
344 |
OBCS_CALC_STEVENS |
OBWw(J,K,bi,bj)=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
352 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
353 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
355 |
OBCS_CALC_STEVENS |
OBWeta(J,bi,bj) = etaN(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
363 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
364 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
366 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
369 |
OBCS_CALC_STEVENS |
gFacM(J,K) = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
371 |
OBCS_CALC_STEVENS |
cflMer(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
372 |
OBCS_CALC_STEVENS |
gFacM (J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
413 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
414 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
423 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
427 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
428 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
433 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J-1,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
437 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
444 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
445 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
452 |
OBCS_CALC_STEVENS |
& * _maskS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
464 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
465 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
466 |
OBCS_CALC_STEVENS |
OBNeta(I,bi,bj) = etaN(I,J-1,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
475 |
OBCS_CALC_STEVENS |
J = OB_Jn(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
476 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
477 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
480 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
525 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
526 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
535 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
539 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
540 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
545 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J+2,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
549 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
556 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
557 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
564 |
OBCS_CALC_STEVENS |
& * _maskS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
576 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
577 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
578 |
OBCS_CALC_STEVENS |
OBSeta(I,bi,bj) = etaN(I,J+1,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
587 |
OBCS_CALC_STEVENS |
J = OB_Js(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
588 |
OBCS_CALC_STEVENS |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
589 |
OBCS_CALC_STEVENS |
cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K) |
|
./pkg/obcs/obcs_calc_stevens.F |
592 |
OBCS_CALC_STEVENS |
gFacZ(I,K) = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0)) |
|
./pkg/obcs/obcs_calc_stevens.F |
636 |
OBCS_CALC_STEVENS |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
639 |
OBCS_CALC_STEVENS |
I = OB_Ie(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
641 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
642 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
643 |
OBCS_CALC_STEVENS |
I = OB_Iw(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
645 |
OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
646 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
726 |
OBCS_STEVENS_CALC_TRACER_EAST |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
727 |
OBCS_STEVENS_CALC_TRACER_EAST |
I = OB_I(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
729 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracSpace = (tracer(I-1,J,K,bi,bj)-tracer(I-2,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
730 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * _maskW(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
731 |
OBCS_STEVENS_CALC_TRACER_EAST |
dTracTime = (tracer(I-1,J,K,bi,bj)-OBE_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
732 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
734 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = MIN( cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
735 |
OBCS_STEVENS_CALC_TRACER_EAST |
& MAX( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
740 |
OBCS_STEVENS_CALC_TRACER_EAST |
OBEf(J,K,bi,bj) = _maskW(I,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
741 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
742 |
OBCS_STEVENS_CALC_TRACER_EAST |
& *(tracer(I,J,K,bi,bj)-tracer(I-1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
743 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
744 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - gFacM(J,K) * gammaf |
|
./pkg/obcs/obcs_calc_stevens.F |
745 |
OBCS_STEVENS_CALC_TRACER_EAST |
& * (tracer(I,J,K,bi,bj)-OBEf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
808 |
OBCS_STEVENS_CALC_TRACER_WEST |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/obcs_calc_stevens.F |
809 |
OBCS_STEVENS_CALC_TRACER_WEST |
I = OB_I(J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
811 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracSpace = (tracer(I+2,J,K,bi,bj)-tracer(I+1,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
812 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * _maskW(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
813 |
OBCS_STEVENS_CALC_TRACER_WEST |
dTracTime = (tracer(I+1,J,K,bi,bj)-OBW_Stevens(J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
814 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = -cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
816 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = MAX( -cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
817 |
OBCS_STEVENS_CALC_TRACER_WEST |
& MIN( 0.D0, -cflMer(J,K)*dTracTime/dTracSpace ) |
|
./pkg/obcs/obcs_calc_stevens.F |
822 |
OBCS_STEVENS_CALC_TRACER_WEST |
OBWf(J,K,bi,bj) = _maskW(I+1,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
823 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
824 |
OBCS_STEVENS_CALC_TRACER_WEST |
& *(tracer(I+1,J,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
825 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * _recip_dxC(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
826 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - gFacM(J,K) * gammaf |
|
./pkg/obcs/obcs_calc_stevens.F |
827 |
OBCS_STEVENS_CALC_TRACER_WEST |
& * (tracer(I,J,K,bi,bj)-OBWf(J,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
890 |
OBCS_STEVENS_CALC_TRACER_NORTH |
J = OB_J(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
891 |
OBCS_STEVENS_CALC_TRACER_NORTH |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
893 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracSpace = (tracer(I,J-1,K,bi,bj)-tracer(I,J-2,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
894 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * _maskS(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
895 |
OBCS_STEVENS_CALC_TRACER_NORTH |
dTracTime = (tracer(I,J-1,K,bi,bj)-OBN_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
904 |
OBCS_STEVENS_CALC_TRACER_NORTH |
OBNf(I,K,bi,bj) = _maskS(I,J,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
905 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
906 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& *(tracer(I,J,K,bi,bj)-tracer(I,J-1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
907 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
909 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& * (tracer(I,J,K,bi,bj)-OBNf(I,K,bi,bj)) ) |
|
./pkg/obcs/obcs_calc_stevens.F |
972 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
J = OB_J(I,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
973 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
IF ( J.NE.OB_indexNone ) THEN |
|
./pkg/obcs/obcs_calc_stevens.F |
974 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracSpace = (tracer(I,J+2,K,bi,bj)-tracer(I,J+1,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
975 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * _maskS(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
976 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
dTracTime = (tracer(I,J+1,K,bi,bj)-OBS_Stevens(I,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
985 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
OBSf(I,K,bi,bj) = _maskS(I,J+1,K,bi,bj) * ( |
|
./pkg/obcs/obcs_calc_stevens.F |
986 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
987 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& *(tracer(I,J+1,K,bi,bj)-tracer(I,J,K,bi,bj)) |
|
./pkg/obcs/obcs_calc_stevens.F |
988 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * _recip_dyC(I,J+1,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
990 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& * (tracer(I,J,K,bi,bj)-OBSf(I,K,bi,bj)) ) |
|
./pkg/obcs/obcs_readparms.F |
586 |
OBCS_READPARMS |
OB_Iw(J,bi,bj) = OB_indexNone |
|
./pkg/obcs/orlanski_east.F |
107 |
ORLANSKI_EAST |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/orlanski_east.F |
108 |
ORLANSKI_EAST |
I_obc=OB_Ie(J,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
111 |
ORLANSKI_EAST |
IF ((UE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
112 |
ORLANSKI_EAST |
& (UE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
115 |
ORLANSKI_EAST |
CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
116 |
ORLANSKI_EAST |
& (ab1*UE_STORE_2(J,K,bi,bj) + ab2*UE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
126 |
ORLANSKI_EAST |
CVEL_UE(J,K,bi,bj) = CFIX |
|
./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 |
129 |
ORLANSKI_EAST |
& )+f2*CVEL_UE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
132 |
ORLANSKI_EAST |
OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
133 |
ORLANSKI_EAST |
& CVEL_UE(J,K,bi,bj)*(deltaT*recip_dxF(I_obc-1,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
134 |
ORLANSKI_EAST |
& (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
135 |
ORLANSKI_EAST |
& ab2*(UE_STORE_4(J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
137 |
ORLANSKI_EAST |
IF ((VE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
138 |
ORLANSKI_EAST |
& (VE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
141 |
ORLANSKI_EAST |
CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
142 |
ORLANSKI_EAST |
& (ab1*VE_STORE_2(J,K,bi,bj) + ab2*VE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
152 |
ORLANSKI_EAST |
CVEL_VE(J,K,bi,bj) = CFIX |
|
./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 |
155 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_VE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
158 |
ORLANSKI_EAST |
OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
159 |
ORLANSKI_EAST |
& CVEL_VE(J,K,bi,bj)*(deltaT*recip_dxV(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
160 |
ORLANSKI_EAST |
& (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) + |
|
./pkg/obcs/orlanski_east.F |
161 |
ORLANSKI_EAST |
& ab2*(VE_STORE_4(J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
163 |
ORLANSKI_EAST |
IF ((TE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
164 |
ORLANSKI_EAST |
& (TE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
167 |
ORLANSKI_EAST |
CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
168 |
ORLANSKI_EAST |
& (ab1*TE_STORE_2(J,K,bi,bj) + ab2*TE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
178 |
ORLANSKI_EAST |
CVEL_TE(J,K,bi,bj) = CFIX |
|
./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 |
181 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_TE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
184 |
ORLANSKI_EAST |
OBEt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
185 |
ORLANSKI_EAST |
& CVEL_TE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
186 |
ORLANSKI_EAST |
& (ab1*(theta(I_obc,J,K,bi,bj)-theta(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
187 |
ORLANSKI_EAST |
& ab2*(TE_STORE_4(J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
189 |
ORLANSKI_EAST |
IF ((SE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
190 |
ORLANSKI_EAST |
& (SE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
193 |
ORLANSKI_EAST |
CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
194 |
ORLANSKI_EAST |
& (ab1*SE_STORE_2(J,K,bi,bj) + ab2*SE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
204 |
ORLANSKI_EAST |
CVEL_SE(J,K,bi,bj) = CFIX |
|
./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 |
207 |
ORLANSKI_EAST |
$ /deltaT)+f2*CVEL_SE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
210 |
ORLANSKI_EAST |
OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
211 |
ORLANSKI_EAST |
& CVEL_SE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
212 |
ORLANSKI_EAST |
& (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
213 |
ORLANSKI_EAST |
& ab2*(SE_STORE_4(J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
217 |
ORLANSKI_EAST |
IF ((WE_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_east.F |
218 |
ORLANSKI_EAST |
& (WE_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_east.F |
221 |
ORLANSKI_EAST |
CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_east.F |
222 |
ORLANSKI_EAST |
& (ab1*WE_STORE_2(J,K,bi,bj)+ab2*WE_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_east.F |
232 |
ORLANSKI_EAST |
CVEL_WE(J,K,bi,bj) = CFIX |
|
./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 |
235 |
ORLANSKI_EAST |
& + f2*CVEL_WE(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
238 |
ORLANSKI_EAST |
OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)- |
|
./pkg/obcs/orlanski_east.F |
239 |
ORLANSKI_EAST |
& CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))* |
|
./pkg/obcs/orlanski_east.F |
240 |
ORLANSKI_EAST |
& (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_east.F |
241 |
ORLANSKI_EAST |
& ab2*(WE_STORE_4(J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_east.F |
247 |
ORLANSKI_EAST |
UE_STORE_3(J,K,bi,bj)=UE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
249 |
ORLANSKI_EAST |
UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
250 |
ORLANSKI_EAST |
& uVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
251 |
ORLANSKI_EAST |
UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
252 |
ORLANSKI_EAST |
UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
255 |
ORLANSKI_EAST |
VE_STORE_3(J,K,bi,bj)=VE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
257 |
ORLANSKI_EAST |
VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
258 |
ORLANSKI_EAST |
& vVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
259 |
ORLANSKI_EAST |
VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
260 |
ORLANSKI_EAST |
VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
263 |
ORLANSKI_EAST |
TE_STORE_3(J,K,bi,bj)=TE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
265 |
ORLANSKI_EAST |
TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
266 |
ORLANSKI_EAST |
& theta(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
267 |
ORLANSKI_EAST |
TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
268 |
ORLANSKI_EAST |
TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
271 |
ORLANSKI_EAST |
SE_STORE_3(J,K,bi,bj)=SE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
273 |
ORLANSKI_EAST |
SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
274 |
ORLANSKI_EAST |
& salt(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
275 |
ORLANSKI_EAST |
SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
276 |
ORLANSKI_EAST |
SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
281 |
ORLANSKI_EAST |
WE_STORE_3(J,K,bi,bj)=WE_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
283 |
ORLANSKI_EAST |
WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_east.F |
284 |
ORLANSKI_EAST |
& wVel(I_obc-2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
285 |
ORLANSKI_EAST |
WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
286 |
ORLANSKI_EAST |
WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_east.F |
93 |
ORLANSKI_EAST |
INTEGER J, K, I_obc |
|
./pkg/obcs/orlanski_init.F |
100 |
ORLANSKI_INIT |
UE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
101 |
ORLANSKI_INIT |
VE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
102 |
ORLANSKI_INIT |
TE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
103 |
ORLANSKI_INIT |
SE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
104 |
ORLANSKI_INIT |
UW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
105 |
ORLANSKI_INIT |
VW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
106 |
ORLANSKI_INIT |
TW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
107 |
ORLANSKI_INIT |
SW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
108 |
ORLANSKI_INIT |
UW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
109 |
ORLANSKI_INIT |
VW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
110 |
ORLANSKI_INIT |
TW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
111 |
ORLANSKI_INIT |
SW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
112 |
ORLANSKI_INIT |
UW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
113 |
ORLANSKI_INIT |
VW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
114 |
ORLANSKI_INIT |
TW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
115 |
ORLANSKI_INIT |
SW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
116 |
ORLANSKI_INIT |
UW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
117 |
ORLANSKI_INIT |
VW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
118 |
ORLANSKI_INIT |
TW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
119 |
ORLANSKI_INIT |
SW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
120 |
ORLANSKI_INIT |
CVEL_UE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
121 |
ORLANSKI_INIT |
CVEL_VE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
122 |
ORLANSKI_INIT |
CVEL_TE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
123 |
ORLANSKI_INIT |
CVEL_SE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
124 |
ORLANSKI_INIT |
CVEL_UW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
125 |
ORLANSKI_INIT |
CVEL_VW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
126 |
ORLANSKI_INIT |
CVEL_TW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
127 |
ORLANSKI_INIT |
CVEL_SW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
129 |
ORLANSKI_INIT |
WE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
130 |
ORLANSKI_INIT |
WE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
131 |
ORLANSKI_INIT |
WE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
132 |
ORLANSKI_INIT |
WE_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
133 |
ORLANSKI_INIT |
WW_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
134 |
ORLANSKI_INIT |
WW_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
135 |
ORLANSKI_INIT |
WW_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
136 |
ORLANSKI_INIT |
WW_STORE_4(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
137 |
ORLANSKI_INIT |
CVEL_WE(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
138 |
ORLANSKI_INIT |
CVEL_WW(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
30 |
ORLANSKI_INIT |
INTEGER I, J, K |
|
./pkg/obcs/orlanski_init.F |
87 |
ORLANSKI_INIT |
DO J=1-Oly,sNy+Oly |
|
./pkg/obcs/orlanski_init.F |
88 |
ORLANSKI_INIT |
UE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
89 |
ORLANSKI_INIT |
VE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
90 |
ORLANSKI_INIT |
TE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
91 |
ORLANSKI_INIT |
SE_STORE_1(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
92 |
ORLANSKI_INIT |
UE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
93 |
ORLANSKI_INIT |
VE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
94 |
ORLANSKI_INIT |
TE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
95 |
ORLANSKI_INIT |
SE_STORE_2(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
96 |
ORLANSKI_INIT |
UE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
97 |
ORLANSKI_INIT |
VE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
98 |
ORLANSKI_INIT |
TE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_init.F |
99 |
ORLANSKI_INIT |
SE_STORE_3(J,K,bi,bj)=0. |
|
./pkg/obcs/orlanski_west.F |
109 |
ORLANSKI_WEST |
DO J=1-OLy,sNy+OLy |
|
./pkg/obcs/orlanski_west.F |
110 |
ORLANSKI_WEST |
I_obc=OB_Iw(J,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
113 |
ORLANSKI_WEST |
IF ((UW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
114 |
ORLANSKI_WEST |
& (UW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
117 |
ORLANSKI_WEST |
CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
118 |
ORLANSKI_WEST |
& (ab1*UW_STORE_2(J,K,bi,bj) + ab2*UW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
128 |
ORLANSKI_WEST |
CVEL_UW(J,K,bi,bj) = CFIX |
|
./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 |
131 |
ORLANSKI_WEST |
& )+f2*CVEL_UW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
134 |
ORLANSKI_WEST |
OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
135 |
ORLANSKI_WEST |
& CVEL_UW(J,K,bi,bj)*(deltaT*recip_dxF(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
136 |
ORLANSKI_WEST |
& (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
137 |
ORLANSKI_WEST |
& ab2*(UW_STORE_1(J,K,bi,bj)-UW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
139 |
ORLANSKI_WEST |
IF ((VW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
140 |
ORLANSKI_WEST |
& (VW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
143 |
ORLANSKI_WEST |
CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
144 |
ORLANSKI_WEST |
& (ab1*VW_STORE_2(J,K,bi,bj) + ab2*VW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
154 |
ORLANSKI_WEST |
CVEL_VW(J,K,bi,bj) = CFIX |
|
./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 |
157 |
ORLANSKI_WEST |
& )+f2*CVEL_VW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
160 |
ORLANSKI_WEST |
OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
161 |
ORLANSKI_WEST |
& CVEL_VW(J,K,bi,bj)*(deltaT*recip_dxV(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
162 |
ORLANSKI_WEST |
& (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
163 |
ORLANSKI_WEST |
& ab2*(VW_STORE_1(J,K,bi,bj)-VW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
165 |
ORLANSKI_WEST |
IF ((TW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
166 |
ORLANSKI_WEST |
& (TW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
169 |
ORLANSKI_WEST |
CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
170 |
ORLANSKI_WEST |
& (ab1*TW_STORE_2(J,K,bi,bj) + ab2*TW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
180 |
ORLANSKI_WEST |
CVEL_TW(J,K,bi,bj) = CFIX |
|
./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 |
183 |
ORLANSKI_WEST |
& )+f2*CVEL_TW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
186 |
ORLANSKI_WEST |
OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
187 |
ORLANSKI_WEST |
& CVEL_TW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
188 |
ORLANSKI_WEST |
& (ab1*(theta(I_obc+1,J,K,bi,bj)-theta(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
189 |
ORLANSKI_WEST |
& ab2*(TW_STORE_1(J,K,bi,bj)-TW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
191 |
ORLANSKI_WEST |
IF ((SW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
192 |
ORLANSKI_WEST |
& (SW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
195 |
ORLANSKI_WEST |
CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
196 |
ORLANSKI_WEST |
& (ab1*SW_STORE_2(J,K,bi,bj) + ab2*SW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
206 |
ORLANSKI_WEST |
CVEL_SW(J,K,bi,bj) = CFIX |
|
./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 |
209 |
ORLANSKI_WEST |
& )+f2*CVEL_SW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
212 |
ORLANSKI_WEST |
OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
213 |
ORLANSKI_WEST |
& CVEL_SW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
214 |
ORLANSKI_WEST |
& (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
215 |
ORLANSKI_WEST |
& ab2*(SW_STORE_1(J,K,bi,bj)-SW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
219 |
ORLANSKI_WEST |
IF ((WW_STORE_2(J,K,bi,bj).eq.0.).and. |
|
./pkg/obcs/orlanski_west.F |
220 |
ORLANSKI_WEST |
& (WW_STORE_3(J,K,bi,bj).eq.0.)) THEN |
|
./pkg/obcs/orlanski_west.F |
223 |
ORLANSKI_WEST |
CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/ |
|
./pkg/obcs/orlanski_west.F |
224 |
ORLANSKI_WEST |
& (ab1*WW_STORE_2(J,K,bi,bj)+ab2*WW_STORE_3(J,K,bi,bj)) |
|
./pkg/obcs/orlanski_west.F |
234 |
ORLANSKI_WEST |
CVEL_WW(J,K,bi,bj) = CFIX |
|
./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 |
237 |
ORLANSKI_WEST |
& + f2*CVEL_WW(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
240 |
ORLANSKI_WEST |
OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+ |
|
./pkg/obcs/orlanski_west.F |
241 |
ORLANSKI_WEST |
& CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))* |
|
./pkg/obcs/orlanski_west.F |
242 |
ORLANSKI_WEST |
& (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+ |
|
./pkg/obcs/orlanski_west.F |
243 |
ORLANSKI_WEST |
& ab2*(WW_STORE_1(J,K,bi,bj)-WW_STORE_4(J,K,bi,bj))) |
|
./pkg/obcs/orlanski_west.F |
249 |
ORLANSKI_WEST |
UW_STORE_3(J,K,bi,bj)=UW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
251 |
ORLANSKI_WEST |
UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
252 |
ORLANSKI_WEST |
& uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
253 |
ORLANSKI_WEST |
UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
254 |
ORLANSKI_WEST |
UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
257 |
ORLANSKI_WEST |
VW_STORE_3(J,K,bi,bj)=VW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
259 |
ORLANSKI_WEST |
VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
260 |
ORLANSKI_WEST |
& vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
261 |
ORLANSKI_WEST |
VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
262 |
ORLANSKI_WEST |
VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
265 |
ORLANSKI_WEST |
TW_STORE_3(J,K,bi,bj)=TW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
267 |
ORLANSKI_WEST |
TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
268 |
ORLANSKI_WEST |
& theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
269 |
ORLANSKI_WEST |
TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
270 |
ORLANSKI_WEST |
TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
273 |
ORLANSKI_WEST |
SW_STORE_3(J,K,bi,bj)=SW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
275 |
ORLANSKI_WEST |
SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
276 |
ORLANSKI_WEST |
& salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
277 |
ORLANSKI_WEST |
SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
278 |
ORLANSKI_WEST |
SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
283 |
ORLANSKI_WEST |
WW_STORE_3(J,K,bi,bj)=WW_STORE_2(J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
285 |
ORLANSKI_WEST |
WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) - |
|
./pkg/obcs/orlanski_west.F |
286 |
ORLANSKI_WEST |
& wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
287 |
ORLANSKI_WEST |
WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
288 |
ORLANSKI_WEST |
WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj) |
|
./pkg/obcs/orlanski_west.F |
95 |
ORLANSKI_WEST |
INTEGER J, K, I_obc |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
49 |
CPL_INI_VARS |
DO J=1-OLy,sNy+OLy |
|
./pkg/opps/opps_calc.F |
22 |
OPPS_CALC |
I I, J, bi, bj, myTime, myIter, myThid ) |
|
./pkg/opps/opps_calc.F |
420 |
OPPS_CALC |
OPPSconvectCount(I,J,K,bi,bj) = |
|
./pkg/opps/opps_calc.F |
421 |
OPPS_CALC |
& OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0 |
|
./pkg/opps/opps_calc.F |
81 |
OPPS_CALC |
INTEGER I, J, bi, bj, KMax, nTracer, nTracerInUse |
|
./pkg/opps/opps_init.F |
42 |
OPPS_INIT |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/opps/opps_interface.F |
103 |
OPPS_INTERFACE |
DO J=jMin,jMax |
|
./pkg/opps/opps_interface.F |
105 |
OPPS_INTERFACE |
IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN |
|
./pkg/opps/opps_interface.F |
108 |
OPPS_INTERFACE |
tracerLoc(K,1) = theta(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
109 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
110 |
OPPS_INTERFACE |
wVelLoc(K) = wVel(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
114 |
OPPS_INTERFACE |
tracerLoc(K,1) = theta(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
115 |
OPPS_INTERFACE |
tracerLoc(K,2) = salt(I,J,K,bi,bj) |
|
./pkg/opps/opps_interface.F |
122 |
OPPS_INTERFACE |
tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2) |
|
./pkg/opps/opps_interface.F |
141 |
OPPS_INTERFACE |
kMax = kLowC(I,J,bi,bj) |
|
./pkg/opps/opps_interface.F |
145 |
OPPS_INTERFACE |
I I,J,bi,bj,myTime,myIter,myThid) |
|
./pkg/opps/opps_interface.F |
165 |
OPPS_INTERFACE |
WRITE(msgBuf,'(A,2I5)') ' for (i,j) = ', I,J |
|
./pkg/opps/opps_interface.F |
172 |
OPPS_INTERFACE |
theta(I,J,K,bi,bj) = tracerLoc(K,1) |
|
./pkg/opps/opps_interface.F |
173 |
OPPS_INTERFACE |
salt(I,J,K,bi,bj) = tracerLoc(K,2) |
|
./pkg/opps/opps_interface.F |
178 |
OPPS_INTERFACE |
ptracer(I,J,K,bi,bj,itr-2) = tracerLoc(K,itr) |
|
./pkg/opps/opps_interface.F |
69 |
OPPS_INTERFACE |
INTEGER I, J, K, kMax |
|
./pkg/opps/opps_interface.F |
95 |
OPPS_INTERFACE |
DO J=1-Oly,sNy+Oly |
|
./pkg/opps/opps_interface.F |
97 |
OPPS_INTERFACE |
OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/pp81/pp81_calc.F |
103 |
PP81_CALC |
DO J=jMin,jMax |
|
./pkg/pp81/pp81_calc.F |
105 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
106 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
112 |
PP81_CALC |
DO J=jMin,jMax |
|
./pkg/pp81/pp81_calc.F |
114 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
115 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
116 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
117 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
60 |
PP81_CALC |
INTEGER I, J, K |
|
./pkg/pp81/pp81_calc.F |
75 |
PP81_CALC |
DO J=jMin,jMax |
|
./pkg/pp81/pp81_calc.F |
77 |
PP81_CALC |
IF ( RiNumber(I,J) .LT. RiLimit ) THEN |
|
./pkg/pp81/pp81_calc.F |
81 |
PP81_CALC |
denom = 1.0 + PPalpha*RiNumber(I,J) |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_ri_number.F |
106 |
PP81_RI_NUMBER |
DO J= jMin, jMax |
|
./pkg/pp81/pp81_ri_number.F |
108 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
109 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
112 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
120 |
PP81_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
125 |
PP81_RI_NUMBER |
RiNumber(I,J) = buoyFreq/max(RiFlux,epsilon) |
|
./pkg/pp81/pp81_ri_number.F |
131 |
PP81_RI_NUMBER |
DO J=jMin,jMax |
|
./pkg/pp81/pp81_ri_number.F |
133 |
PP81_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
136 |
PP81_RI_NUMBER |
DO J=1-Oly+1,sNy+Oly-1 |
|
./pkg/pp81/pp81_ri_number.F |
138 |
PP81_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
139 |
PP81_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/pp81/pp81_ri_number.F |
140 |
PP81_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/pp81/pp81_ri_number.F |
62 |
PP81_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
143 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
82 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
95 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
107 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
109 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
111 |
SALT_PLUME_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
115 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
125 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
144 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = (plumekb(2)-plumekb(1))*maskC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
145 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
149 |
SALT_PLUME_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
152 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
153 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
88 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb2D(i,j) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
60 |
SALT_PLUME_TENDENCY_APPLY_T |
gT_arr(i,j) = gT_arr(i,j) + plumeEtend(I,J) |
|
./pkg/seaice/advect.F |
109 |
ADVECT |
DO J=1-Oly,sNy+Oly |
|
./pkg/seaice/dynsolver.F |
107 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*( |
|
./pkg/seaice/dynsolver.F |
110 |
DYNSOLVER |
COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
124 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
& +UWIND(I ,J-1,bi,bj)+UWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
126 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
127 |
DYNSOLVER |
& +VWIND(I ,J-1,bi,bj)+VWIND(I ,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
135 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag |
|
./pkg/seaice/dynsolver.F |
137 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
139 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
140 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
144 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
145 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
147 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
149 |
DYNSOLVER |
DAIRN(I,J,bi,bj) = |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
152 |
DYNSOLVER |
& +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
154 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
155 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
156 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)* |
|
./pkg/seaice/dynsolver.F |
157 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
196 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
197 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
& )*HALF*_recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
201 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
202 |
DYNSOLVER |
& -AMASS(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
205 |
DYNSOLVER |
& )*HALF*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
207 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
208 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
216 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
217 |
DYNSOLVER |
& -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
218 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
219 |
DYNSOLVER |
& +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
221 |
DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
222 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
225 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
228 |
DYNSOLVER |
ZMAX(I,J,bi,bj)=SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
230 |
DYNSOLVER |
ZMIN(I,J,bi,bj)=SEAICE_zetaMin |
|
./pkg/seaice/dynsolver.F |
231 |
DYNSOLVER |
PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
257 |
DYNSOLVER |
UICENM1(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
258 |
DYNSOLVER |
VICENM1(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
259 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
260 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
279 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
280 |
DYNSOLVER |
UICEC(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
VICEC(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
82 |
DYNSOLVER |
& +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/dynsolver.F |
83 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
84 |
DYNSOLVER |
& +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj)) |
|
./pkg/seaice/lsr.F |
1000 |
LSR |
DO J=1-OLy,sNy+OLy-1 |
|
./pkg/seaice/lsr.F |
1002 |
LSR |
dUdx(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1003 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1004 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
1005 |
LSR |
& +(UICEC(I+1,J ,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1006 |
LSR |
& * _recip_dxG(I,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1007 |
LSR |
dUdy(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1008 |
LSR |
& ( UICEC(I+1,J+1,bi,bj) - UICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1009 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1010 |
LSR |
& +(UICEC(I ,J+1,bi,bj) - UICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1011 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1024 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
1026 |
LSR |
rhsV(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1027 |
LSR |
& +FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1038 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dUdx(I ,J ) |
|
./pkg/seaice/lsr.F |
1039 |
LSR |
& + zetaMinusEta(I-1,J ,bi,bj) * dUdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
1040 |
LSR |
& - zetaMinusEta(I ,J-1,bi,bj) * dUdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
1041 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dUdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
1042 |
LSR |
& )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1045 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dUdy(I ,J ) |
|
./pkg/seaice/lsr.F |
1046 |
LSR |
& + ETA (I ,J-1,bi,bj) * dUdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
1047 |
LSR |
& - ETA (I-1,J ,bi,bj) * dUdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
1048 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dUdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
1049 |
LSR |
& )*0.5 _d 0* _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1051 |
LSR |
& +(ETA(I ,J ,bi,bj) + ETA(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1052 |
LSR |
& -ETA(I-1,J-1,bi,bj) - ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
1053 |
LSR |
& * UICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1054 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1055 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1056 |
LSR |
& +ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1057 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1058 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1060 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1061 |
LSR |
& *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1062 |
LSR |
& * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1064 |
LSR |
VRT1(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1065 |
LSR |
& ETA(I-1,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1066 |
LSR |
& +ETA(I-1,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1067 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1068 |
LSR |
VRT2(I,J,bi,bj)= 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
1069 |
LSR |
& ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1070 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1071 |
LSR |
& ) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1096 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
1098 |
LSR |
VTMP(I,J,bi,bj)=VICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1103 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
1104 |
LSR |
IF(J.EQ.1) THEN |
|
./pkg/seaice/lsr.F |
1105 |
LSR |
AA2= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1107 |
LSR |
& etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1110 |
LSR |
& +( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
1111 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
1112 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1113 |
LSR |
& + ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1114 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
1115 |
LSR |
& *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1116 |
LSR |
ELSE IF(J.EQ.sNy) THEN |
|
./pkg/seaice/lsr.F |
1117 |
LSR |
AA1= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1119 |
LSR |
& etaPlusZeta(I-1,J,bi,bj) + etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1122 |
LSR |
& -( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1123 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
1124 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
1125 |
LSR |
& - ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1126 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere ) |
|
./pkg/seaice/lsr.F |
1127 |
LSR |
& *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1132 |
LSR |
VRT(J)=rhsV(I,J,bi,bj)+AA3+VRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1133 |
LSR |
& +VRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1134 |
LSR |
VRT(J)=VRT(J)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1137 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
1138 |
LSR |
CVV(J)=CV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1141 |
LSR |
DO J=2,sNy |
|
./pkg/seaice/lsr.F |
1142 |
LSR |
JM=J-1 |
|
./pkg/seaice/lsr.F |
1143 |
LSR |
CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
1144 |
LSR |
VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM)) |
|
./pkg/seaice/lsr.F |
1145 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM)) |
|
./pkg/seaice/lsr.F |
1147 |
LSR |
DO J=1,sNy-1 |
|
./pkg/seaice/lsr.F |
1148 |
LSR |
J1=sNy-J |
|
./pkg/seaice/lsr.F |
1152 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
1153 |
LSR |
VICE(I,J,bi,bj)=VTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1154 |
LSR |
& +WFAV*(VRT(J)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1165 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
1167 |
LSR |
UERR=(VICE(I,J,bi,bj)-VTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
1168 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1202 |
LSR |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/lsr.F |
1204 |
LSR |
UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
1205 |
LSR |
VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
174 |
LSR |
ucLoc(I,J,bi,bj) = 0.25 _d 0 * ( |
|
./pkg/seaice/lsr.F |
175 |
LSR |
& + uIceC(I+1,J,bi,bj) + uIceC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
176 |
LSR |
& + uIceC(I ,J,bi,bj) + uIceC(I, J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
177 |
LSR |
vcLoc(I,J,bi,bj) = 0.25 _d 0 * ( |
|
./pkg/seaice/lsr.F |
178 |
LSR |
& + vIceC(I+1,J,bi,bj) + vIceC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
179 |
LSR |
& + vIceC(I ,J,bi,bj) + vIceC(I, J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
182 |
LSR |
DO J=1-OLy,sNy+OLy-1 |
|
./pkg/seaice/lsr.F |
184 |
LSR |
e11loc = 0.5 _d 0 * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
185 |
LSR |
& (uIceC(I+1,J+1,bi,bj)+uIceC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
186 |
LSR |
& -uIceC(I, J+1,bi,bj)-uIceC(I, J,bi,bj)) |
|
./pkg/seaice/lsr.F |
187 |
LSR |
& + vcLoc(I,J,bi,bj) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
188 |
LSR |
e22loc = 0.5 _d 0 * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
189 |
LSR |
& (vIceC(I+1,J+1,bi,bj)+vIceC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
190 |
LSR |
& -vIceC(I+1,J, bi,bj)-vIceC(I,J, bi,bj)) |
|
./pkg/seaice/lsr.F |
191 |
LSR |
& + ucLoc(I,J,bi,bj) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
193 |
LSR |
& 0.5 _d 0 * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
194 |
LSR |
& (uIceC(I+1,J+1,bi,bj)+uIceC(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
195 |
LSR |
& -uIceC(I+1,J, bi,bj)-uIceC(I,J, bi,bj)) |
|
./pkg/seaice/lsr.F |
196 |
LSR |
& + 0.5 _d 0 * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
197 |
LSR |
& (vIceC(I+1,J+1,bi,bj)+vIceC(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
198 |
LSR |
& -vIceC(I, J+1,bi,bj)-vIceC(I, J,bi,bj)) |
|
./pkg/seaice/lsr.F |
199 |
LSR |
& - vcLoc(I,J,bi,bj)*k1AtC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
200 |
LSR |
& - ucLoc(I,J,bi,bj)*k2AtC(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
210 |
LSR |
ZETA(I,J,bi,bj) = 0.5 _d 0*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/lsr.F |
212 |
LSR |
ZETA(I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
ZETA(I,J,bi,bj) = MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
215 |
LSR |
ZETA(I,J,bi,bj) = ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
216 |
LSR |
ETA(I,J,bi,bj) = ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
217 |
LSR |
PRESS(I,J,bi,bj) = 2.0 _d 0*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/lsr.F |
223 |
LSR |
TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
224 |
LSR |
& +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
225 |
LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
227 |
LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/lsr.F |
229 |
LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/lsr.F |
233 |
LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/lsr.F |
235 |
LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/lsr.F |
239 |
LSR |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/lsr.F |
241 |
LSR |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
242 |
LSR |
& *SIGN(SINWAT, _fCori(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
243 |
LSR |
& + AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
245 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
246 |
LSR |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
247 |
LSR |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
248 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
249 |
LSR |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
250 |
LSR |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
255 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
256 |
LSR |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
257 |
LSR |
& *(PRESS(I, J,bi,bj) + PRESS(I, J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
258 |
LSR |
& - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
259 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
260 |
LSR |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
261 |
LSR |
& *(PRESS(I,J, bi,bj) + PRESS(I-1,J, bi,bj) |
|
./pkg/seaice/lsr.F |
262 |
LSR |
& - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
264 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
265 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*uIceNm1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
266 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
267 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*vIceNm1(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
268 |
LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
269 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
281 |
LSR |
etaU(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
282 |
LSR |
& + eta(I,J,bi,bj) + eta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
283 |
LSR |
zetaU(I,J)= 0.5 _d 0 *( |
|
./pkg/seaice/lsr.F |
284 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
289 |
LSR |
etaV(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
290 |
LSR |
& + eta(I,J,bi,bj) + eta(I,J-1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
291 |
LSR |
zetaV(I,J)= 0.5 _d 0 *( |
|
./pkg/seaice/lsr.F |
292 |
LSR |
& + zeta(I,J,bi,bj) + zeta(I,J-1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
296 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
299 |
LSR |
UXX(I,J) = _dyC(I,J,bi,bj) * (zetaV(I,J)+etaV(I,J)) |
|
./pkg/seaice/lsr.F |
300 |
LSR |
& * _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
302 |
LSR |
UXM(I,J) = _dyC(I,J,bi,bj) * (zetaV(I,J)-etaV(I,J)) |
|
./pkg/seaice/lsr.F |
303 |
LSR |
& * k1AtV(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
306 |
LSR |
DO J=0,sNy |
|
./pkg/seaice/lsr.F |
309 |
LSR |
UYY(I,J) = _dxC(I,J,bi,bj) * etaU(I,J) |
|
./pkg/seaice/lsr.F |
310 |
LSR |
& * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
312 |
LSR |
UYM(I,J) = _dxC(I,J,bi,bj) * etaU(I,J) |
|
./pkg/seaice/lsr.F |
313 |
LSR |
& * k2AtU(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
316 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
319 |
LSR |
VXX(I,J) = _dyC(I,J,bi,bj) * etaV(I,J) |
|
./pkg/seaice/lsr.F |
320 |
LSR |
& * _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
322 |
LSR |
VXM(I,J) = _dyC(I,J,bi,bj) * etaV(I,J) |
|
./pkg/seaice/lsr.F |
323 |
LSR |
& * k1AtV(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
326 |
LSR |
DO J=0,sNy |
|
./pkg/seaice/lsr.F |
329 |
LSR |
VYY(I,J) = _dxC(I,J,bi,bj) * (zetaU(I,J)+etaU(I,J)) |
|
./pkg/seaice/lsr.F |
330 |
LSR |
& * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
332 |
LSR |
VYM(I,J) = _dxC(I,J,bi,bj) * (zetaU(I,J)-etaU(I,J)) |
|
./pkg/seaice/lsr.F |
333 |
LSR |
& * k2AtU(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/lsr.F |
341 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
344 |
LSR |
AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) ) |
|
./pkg/seaice/lsr.F |
345 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
347 |
LSR |
CU(I,J,bi,bj)= ( - UXX(I ,J) - UXM(I ,J) ) |
|
./pkg/seaice/lsr.F |
348 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
350 |
LSR |
BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
351 |
LSR |
& ( UXX(I-1,J) + UXX(I,J) + UYY(I,J-1) + UYY(I,J) |
|
./pkg/seaice/lsr.F |
352 |
LSR |
& + UXM(I-1,J) - UXM(I,J) - UYM(I,J-1) + UYM(I,J) |
|
./pkg/seaice/lsr.F |
353 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
355 |
LSR |
uRt1(I,J,bi,bj)= UYY(I,J-1) + UYM(I,J-1) |
|
./pkg/seaice/lsr.F |
357 |
LSR |
uRt2(I,J,bi,bj)= UYY(I,J ) - UYM(I,J ) |
|
./pkg/seaice/lsr.F |
362 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
364 |
LSR |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
365 |
LSR |
CU(I,J,bi,bj) = CU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
368 |
LSR |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
369 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
370 |
LSR |
& ( AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
371 |
LSR |
& + DRAGS(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
372 |
LSR |
uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
373 |
LSR |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
381 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
384 |
LSR |
AV(I,J,bi,bj)=( - VYY(I,J-1) + VYM(I,J-1) |
|
./pkg/seaice/lsr.F |
385 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
387 |
LSR |
CV(I,J,bi,bj)=( - VYY(I,J ) - VYM(I,J ) |
|
./pkg/seaice/lsr.F |
388 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
390 |
LSR |
BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) + |
|
./pkg/seaice/lsr.F |
391 |
LSR |
& ( VXX(I,J) + VXX(I-1,J) + VYY(I,J) + VYY(I,J-1) |
|
./pkg/seaice/lsr.F |
392 |
LSR |
& + VXM(I,J) - VXM(I-1,J) - VYM(I,J) + VYM(I,J-1) |
|
./pkg/seaice/lsr.F |
393 |
LSR |
& ) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
395 |
LSR |
vRt1(I,J,bi,bj) = VXX(I-1,J) + VXM(I-1,J) |
|
./pkg/seaice/lsr.F |
397 |
LSR |
vRt2(I,J,bi,bj) = VXX(I ,J) - VXM(I ,J) |
|
./pkg/seaice/lsr.F |
402 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
404 |
LSR |
AV(I,J,bi,bj) = AV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
405 |
LSR |
CV(I,J,bi,bj) = CV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
408 |
LSR |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
409 |
LSR |
& + UVM(I,J,bi,bj) * |
|
./pkg/seaice/lsr.F |
410 |
LSR |
& ( AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
411 |
LSR |
& + DRAGS(I,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
412 |
LSR |
vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
413 |
LSR |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * recip_rAz(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
421 |
LSR |
sig11(I,J) = |
|
./pkg/seaice/lsr.F |
422 |
LSR |
& (zetaV(I,J)-etaV(I,J)) |
|
./pkg/seaice/lsr.F |
423 |
LSR |
& * (vcLoc(I,J,bi,bj)-vcLoc(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
424 |
LSR |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
425 |
LSR |
& + (zetaV(I,J)+etaV(I,J))*k2atV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
426 |
LSR |
& * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I+1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
427 |
LSR |
& - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
428 |
LSR |
sig12(I,J) = etaV(I,J) |
|
./pkg/seaice/lsr.F |
429 |
LSR |
& * (ucLoc(I,J,bi,bj)-ucLoc(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
430 |
LSR |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
431 |
LSR |
& - etaV(I,J) * k2AtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
432 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I+1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
438 |
LSR |
sig22(I,J) = |
|
./pkg/seaice/lsr.F |
439 |
LSR |
& (zetaU(I,J)-etaU(I,J)) |
|
./pkg/seaice/lsr.F |
440 |
LSR |
& * (ucLoc(I,J,bi,bj)-ucLoc(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
441 |
LSR |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
442 |
LSR |
& + (zetaU(I,J)+etaU(I,J))*k2atU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
443 |
LSR |
& * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
444 |
LSR |
& - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
445 |
LSR |
sig21(I,J) = etaU(I,J) |
|
./pkg/seaice/lsr.F |
446 |
LSR |
& * (vcLoc(I,J,bi,bj)-vcLoc(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
447 |
LSR |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
448 |
LSR |
& - etaU(I,J) * k1AtU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
449 |
LSR |
& * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I,J+1,bi,bj)) |
|
./pkg/seaice/lsr.F |
454 |
LSR |
rhsU(I,J,bi,bj) = DRAGA(I,J,bi,bj)*vIceC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
455 |
LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
456 |
LSR |
& + ( _dyC(I, J, bi,bj) * sig11(I, J ) |
|
./pkg/seaice/lsr.F |
457 |
LSR |
& - _dyC(I-1,J, bi,bj) * sig11(I-1,J ) |
|
./pkg/seaice/lsr.F |
458 |
LSR |
& + _dxC(I, J, bi,bj) * sig21(I, J ) |
|
./pkg/seaice/lsr.F |
459 |
LSR |
& - _dxC(I, J-1,bi,bj) * sig21(I, J-1) ) |
|
./pkg/seaice/lsr.F |
460 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
461 |
LSR |
rhsV(I,J,bi,bj) = - DRAGA(I,J,bi,bj)*uIceC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
462 |
LSR |
& +FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
463 |
LSR |
& + ( _dyC(I, J, bi,bj) * sig12(I, J ) |
|
./pkg/seaice/lsr.F |
464 |
LSR |
& - _dyC(I-1,J, bi,bj) * sig12(I-1,J ) |
|
./pkg/seaice/lsr.F |
465 |
LSR |
& + _dxC(I, J, bi,bj) * sig22(I, J ) |
|
./pkg/seaice/lsr.F |
466 |
LSR |
& - _dxC(I, J-1,bi,bj) * sig22(I, J-1) ) |
|
./pkg/seaice/lsr.F |
467 |
LSR |
& * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
496 |
LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
502 |
LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
508 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
511 |
LSR |
IF (I.EQ.1) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
512 |
LSR |
IF (I.EQ.sNx) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
514 |
LSR |
URT(I,J)=rhsU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
517 |
LSR |
& + uRt1(I,J,bi,bj)*uTmp(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
518 |
LSR |
& + uRt2(I,J,bi,bj)*uTmp(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
520 |
LSR |
& + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
521 |
LSR |
& + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
523 |
LSR |
URT(I,J)=URT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
527 |
LSR |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
529 |
LSR |
CUU(1,J)=CUU(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
530 |
LSR |
URT(1,J)=URT(1,J)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
536 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
541 |
LSR |
CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
542 |
LSR |
URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J)) |
|
./pkg/seaice/lsr.F |
543 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)) |
|
./pkg/seaice/lsr.F |
548 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
553 |
LSR |
URT(J1,J)=URT(J1,J)-CUU(J1,J)*URT(J2,J) |
|
./pkg/seaice/lsr.F |
556 |
LSR |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
557 |
LSR |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
566 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
568 |
LSR |
IF (J.EQ.1) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
569 |
LSR |
IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
571 |
LSR |
VRT(I,J)=rhsV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
574 |
LSR |
& + vRt1(I,J,bi,bj)*vTmp(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
575 |
LSR |
& + vRt2(I,J,bi,bj)*vTmp(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
577 |
LSR |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
578 |
LSR |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
580 |
LSR |
VRT(I,J)=VRT(I,J)* UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
583 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
584 |
LSR |
CVV(I,J)=CV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
588 |
LSR |
DO J=2,sNy |
|
./pkg/seaice/lsr.F |
589 |
LSR |
JM=J-1 |
|
./pkg/seaice/lsr.F |
590 |
LSR |
CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
591 |
LSR |
VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM)) |
|
./pkg/seaice/lsr.F |
592 |
LSR |
& /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)) |
|
./pkg/seaice/lsr.F |
594 |
LSR |
DO J=1,sNy-1 |
|
./pkg/seaice/lsr.F |
595 |
LSR |
J1=sNy-J |
|
./pkg/seaice/lsr.F |
599 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
600 |
LSR |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
601 |
LSR |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
615 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
617 |
LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
618 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
640 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
642 |
LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
643 |
LSR |
& * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
704 |
LSR |
etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
705 |
LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
710 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*( |
|
./pkg/seaice/lsr.F |
711 |
LSR |
& ETA(I,J-1,bi,bj) + ETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
712 |
LSR |
& +ETA(I,J ,bi,bj) + ETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
713 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*( |
|
./pkg/seaice/lsr.F |
714 |
LSR |
& ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
715 |
LSR |
& +ZETA(I,J ,bi,bj) + ZETA(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
724 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
726 |
LSR |
AA1=( etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
727 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
728 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
729 |
LSR |
AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
730 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
731 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
732 |
LSR |
AA3= 0.5 _d 0 *(ETA(I-1,J ,bi,bj)+ETA(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
733 |
LSR |
AA4= 0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
734 |
LSR |
AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
735 |
LSR |
& * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
736 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
737 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
738 |
LSR |
AU(I,J,bi,bj)=-AA2 |
|
./pkg/seaice/lsr.F |
739 |
LSR |
CU(I,J,bi,bj)=-AA1 |
|
./pkg/seaice/lsr.F |
740 |
LSR |
BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
741 |
LSR |
& - AU(I,J,bi,bj) - CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
742 |
LSR |
& + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
744 |
LSR |
& + AMASS(I,J,bi,bj)/SEAICE_deltaTdyn |
|
./pkg/seaice/lsr.F |
745 |
LSR |
& + DRAGS(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
746 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
750 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
751 |
LSR |
AU(1,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
752 |
LSR |
CU(sNx,J,bi,bj)=ZERO |
|
./pkg/seaice/lsr.F |
753 |
LSR |
CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
757 |
LSR |
DO J=1-OLy,sNy+OLy-1 |
|
./pkg/seaice/lsr.F |
759 |
LSR |
dVdy(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
760 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
761 |
LSR |
& * _recip_dyG(I+1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
762 |
LSR |
& +(VICEC(I ,J+1,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
763 |
LSR |
& * _recip_dyG(I, J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
764 |
LSR |
dVdx(I,J) = 0.5 _d 0 * ( |
|
./pkg/seaice/lsr.F |
765 |
LSR |
& ( VICEC(I+1,J+1,bi,bj) - VICEC(I ,J+1,bi,bj) ) |
|
./pkg/seaice/lsr.F |
766 |
LSR |
& * _recip_dxG(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
767 |
LSR |
& +(VICEC(I+1,J ,bi,bj) - VICEC(I ,J ,bi,bj) ) |
|
./pkg/seaice/lsr.F |
768 |
LSR |
& * _recip_dxG(I,J, bi,bj) ) |
|
./pkg/seaice/lsr.F |
781 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
783 |
LSR |
rhsU(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
784 |
LSR |
& +FORCEX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
794 |
LSR |
& + ( zetaMinusEta(I ,J ,bi,bj) * dVdy(I ,J ) |
|
./pkg/seaice/lsr.F |
795 |
LSR |
& + zetaMinusEta(I ,J-1,bi,bj) * dVdy(I ,J-1) |
|
./pkg/seaice/lsr.F |
796 |
LSR |
& - zetaMinusEta(I-1,J ,bi,bj) * dVdy(I-1,J ) |
|
./pkg/seaice/lsr.F |
797 |
LSR |
& - zetaMinusEta(I-1,J-1,bi,bj) * dVdy(I-1,J-1) |
|
./pkg/seaice/lsr.F |
798 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
801 |
LSR |
& + ( ETA (I ,J ,bi,bj) * dVdx(I ,J ) |
|
./pkg/seaice/lsr.F |
802 |
LSR |
& + ETA (I-1,J ,bi,bj) * dVdx(I-1,J ) |
|
./pkg/seaice/lsr.F |
803 |
LSR |
& - ETA (I ,J-1,bi,bj) * dVdx(I ,J-1) |
|
./pkg/seaice/lsr.F |
804 |
LSR |
& - ETA (I-1,J-1,bi,bj) * dVdx(I-1,J-1) |
|
./pkg/seaice/lsr.F |
805 |
LSR |
& ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
807 |
LSR |
& -(etaPlusZeta(I ,J ,bi,bj)+etaPlusZeta(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
808 |
LSR |
& -etaPlusZeta(I-1,J-1,bi,bj)-etaPlusZeta(I-1,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
809 |
LSR |
& * VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
810 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
811 |
LSR |
& * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
813 |
LSR |
& -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
814 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
815 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
816 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
819 |
LSR |
& -ETAMEAN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
820 |
LSR |
& *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
821 |
LSR |
& *TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
822 |
LSR |
& * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) ) |
|
./pkg/seaice/lsr.F |
825 |
LSR |
URT1(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
826 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
827 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
828 |
LSR |
& - ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
829 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
830 |
LSR |
& + TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
831 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
832 |
LSR |
URT2(I,J,bi,bj)= |
|
./pkg/seaice/lsr.F |
833 |
LSR |
& 0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
834 |
LSR |
& * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
835 |
LSR |
& + ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
836 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
837 |
LSR |
& - TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
838 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
861 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
863 |
LSR |
UTMP(I,J,bi,bj)=UICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
867 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
870 |
LSR |
AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
871 |
LSR |
& +etaPlusZeta(I-1,J ,bi,bj) * _recip_dxF(I-1,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
872 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
873 |
LSR |
AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
875 |
LSR |
AA1=(etaPlusZeta(I ,J-1,bi,bj) * _recip_dxF(I ,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
876 |
LSR |
& +etaPlusZeta(I ,J ,bi,bj) * _recip_dxF(I ,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
877 |
LSR |
& )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
878 |
LSR |
AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
882 |
LSR |
URT(I)=rhsU(I,J,bi,bj)+AA3 |
|
./pkg/seaice/lsr.F |
883 |
LSR |
& +URT1(I,J,bi,bj)*UICE(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
884 |
LSR |
& +URT2(I,J,bi,bj)*UICE(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
885 |
LSR |
URT(I)=URT(I)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
889 |
LSR |
CUU(I)=CU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
891 |
LSR |
URT(1)=URT(1)/BU(1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
894 |
LSR |
CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
895 |
LSR |
URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM)) |
|
./pkg/seaice/lsr.F |
896 |
LSR |
& /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM)) |
|
./pkg/seaice/lsr.F |
904 |
LSR |
UICE(I,J,bi,bj)=UTMP(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
905 |
LSR |
& +WFAU*(URT(I)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
917 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
919 |
LSR |
UERR=(UICE(I,J,bi,bj)-UTMP(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
920 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
951 |
LSR |
DO J=1,sNy |
|
./pkg/seaice/lsr.F |
953 |
LSR |
AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
954 |
LSR |
& * (etaPlusZeta(I-1,J ,bi,bj) + etaPlusZeta(I,J ,bi,bj)) |
|
./pkg/seaice/lsr.F |
955 |
LSR |
AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
956 |
LSR |
& * (etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj)) |
|
./pkg/seaice/lsr.F |
957 |
LSR |
AA3= (ETA(I ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
958 |
LSR |
& +ETA(I ,J ,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
959 |
LSR |
& )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
960 |
LSR |
AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0 |
|
./pkg/seaice/lsr.F |
961 |
LSR |
& *_recip_dxV(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
962 |
LSR |
AA5=(zetaMinusEta(I-1,J ,bi,bj) + zetaMinusEta(I,J ,bi,bj) |
|
./pkg/seaice/lsr.F |
963 |
LSR |
& -zetaMinusEta(I-1,J-1,bi,bj) - zetaMinusEta(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
964 |
LSR |
& )* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
965 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
967 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere |
|
./pkg/seaice/lsr.F |
968 |
LSR |
& * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
970 |
LSR |
AV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
972 |
LSR |
& - (ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
973 |
LSR |
& * _tanPhiAtV(I,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
974 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
975 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
976 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
977 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
978 |
LSR |
CV(I,J,bi,bj)=( |
|
./pkg/seaice/lsr.F |
980 |
LSR |
& +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
981 |
LSR |
& * _tanPhiAtV(I,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
982 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
983 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
984 |
LSR |
& * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/lsr.F |
985 |
LSR |
& )*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
986 |
LSR |
BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
988 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
989 |
LSR |
& *UVM(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
55 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
56 |
OSTRES |
& *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
58 |
OSTRES |
& *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj)) |
|
./pkg/seaice/ostres.F |
72 |
OSTRES |
fuIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
74 |
OSTRES |
& ( UICE(I,J, bi,bj)-GWATX(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
75 |
OSTRES |
& + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
76 |
OSTRES |
& -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
77 |
OSTRES |
& ( VICE(I,J, bi,bj)-GWATY(I,J, bi,bj) |
|
./pkg/seaice/ostres.F |
78 |
OSTRES |
& + VICE(I,J+1,bi,bj)-GWATY(I,J+1,bi,bj) ) |
|
./pkg/seaice/ostres.F |
80 |
OSTRES |
fvIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
81 |
OSTRES |
& SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
82 |
OSTRES |
& ( UICE(I, J,bi,bj)-GWATX(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
83 |
OSTRES |
& + UICE(I+1,J,bi,bj)-GWATX(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
85 |
OSTRES |
& ( VICE(I, J,bi,bj)-GWATY(I, J,bi,bj) |
|
./pkg/seaice/ostres.F |
86 |
OSTRES |
& + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) ) |
|
./pkg/seaice/ostres.F |
88 |
OSTRES |
fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
89 |
OSTRES |
& AREA(I,J,bi,bj)*fuIce |
|
./pkg/seaice/ostres.F |
90 |
OSTRES |
fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+ |
|
./pkg/seaice/ostres.F |
91 |
OSTRES |
& AREA(I,J,bi,bj)*fvIce |
|
./pkg/seaice/seaice_advdiff.F |
435 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
467 |
SEAICE_ADVDIFF |
if (HEFF(I,J,bi,bj).GE.siEps) then |
|
./pkg/seaice/seaice_advdiff.F |
468 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
483 |
SEAICE_ADVDIFF |
& +tmpscal2*HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
486 |
SEAICE_ADVDIFF |
if (HEFF(I,J,bi,bj).GE.siEps) then |
|
./pkg/seaice/seaice_advdiff.F |
490 |
SEAICE_ADVDIFF |
& +HEFF(I,J,bi,bj)*tmpscal1 |
|
./pkg/seaice/seaice_advdiff.F |
493 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
494 |
SEAICE_ADVDIFF |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_advdiff.F |
495 |
SEAICE_ADVDIFF |
tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_advdiff.F |
496 |
SEAICE_ADVDIFF |
& + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
497 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5)= tmpscal1-diagArray(I,J,2+(iTr-1)*5) |
|
./pkg/seaice/seaice_advdiff.F |
498 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_advdiff.F |
507 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
508 |
SEAICE_ADVDIFF |
SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
521 |
SEAICE_ADVDIFF |
if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then |
|
./pkg/seaice/seaice_advdiff.F |
526 |
SEAICE_ADVDIFF |
diagArray(I,J,1+(iTr-1)*5)= 0. _d 0 |
|
./pkg/seaice/seaice_advdiff.F |
527 |
SEAICE_ADVDIFF |
diagArray(I,J,2+(iTr-1)*5)= - diagArray(I,J,2+(iTr-1)*5) |
|
./pkg/seaice/seaice_advdiff.F |
528 |
SEAICE_ADVDIFF |
& + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
529 |
SEAICE_ADVDIFF |
diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) * |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
104 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
114 |
SEAICE_BOTTOMDRAG_COEFFS |
& + uIce(i+1,J,bi,bj)*maskInW(i+1,j,bi,bj) )**2 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
118 |
SEAICE_BOTTOMDRAG_COEFFS |
tmpFld(I,J) = SEAICEbasalDragK2 / SQRT(tmp + u0sq) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
127 |
SEAICE_BOTTOMDRAG_COEFFS |
IF ( AREA(I,J,bi,bj) .GT. 0.01 _d 0 ) THEN |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
133 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFFITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
135 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREAITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
137 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
138 |
SEAICE_BOTTOMDRAG_COEFFS |
hCrit = ABS(R_low(I,J,bi,bj))*AREA(I,J,bi,bj)*recip_k1 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
148 |
SEAICE_BOTTOMDRAG_COEFFS |
CbotC(I,J,bi,bj) = CbotC(I,J,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
149 |
SEAICE_BOTTOMDRAG_COEFFS |
& + tmpFld(I,J) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
152 |
SEAICE_BOTTOMDRAG_COEFFS |
& *(SEAICE_area_max - AREA(I,J,bi,bj)) ) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
153 |
SEAICE_BOTTOMDRAG_COEFFS |
& * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
98 |
SEAICE_BOTTOMDRAG_COEFFS |
CbotC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
99 |
SEAICE_BOTTOMDRAG_COEFFS |
tmpFld(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
106 |
SEAICE_BUDGET_OCEAN |
DO J=1,sNy |
|
./pkg/seaice/seaice_budget_ocean.F |
109 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = Qnet(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
110 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = Qsw(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
120 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux(I,J) = (SEAICE_waterAlbedo - 1. _d 0) |
|
./pkg/seaice/seaice_budget_ocean.F |
121 |
SEAICE_BUDGET_OCEAN |
& *swdown(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
125 |
SEAICE_BUDGET_OCEAN |
lwflux(I,J,bi,bj) = - lwdownLoc(I,J)*SEAICE_emissivity |
|
./pkg/seaice/seaice_budget_ocean.F |
126 |
SEAICE_BUDGET_OCEAN |
& + D3*tsurfLoc(I,J)**4 |
|
./pkg/seaice/seaice_budget_ocean.F |
127 |
SEAICE_BUDGET_OCEAN |
sstdegC = tsurfLoc(I,J) - TMELT |
|
./pkg/seaice/seaice_budget_ocean.F |
129 |
SEAICE_BUDGET_OCEAN |
hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
134 |
SEAICE_BUDGET_OCEAN |
hl(I,J,bi,bj) = D1W*UG(I,J)*(AQH(I,J,bi,bj)-ssq) |
|
./pkg/seaice/seaice_budget_ocean.F |
136 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J)=SWHeatFlux(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
137 |
SEAICE_BUDGET_OCEAN |
& + lwflux(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
138 |
SEAICE_BUDGET_OCEAN |
& - hs(I,J,bi,bj) - hl(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
141 |
SEAICE_BUDGET_OCEAN |
evap(i,j,bi,bj) = -hl(I,J,bi,bj) |
|
./pkg/seaice/seaice_budget_ocean.F |
85 |
SEAICE_BUDGET_OCEAN |
DO J=1,sNy |
|
./pkg/seaice/seaice_budget_ocean.F |
87 |
SEAICE_BUDGET_OCEAN |
netHeatFlux(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
88 |
SEAICE_BUDGET_OCEAN |
SWHeatFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ocean.F |
92 |
SEAICE_BUDGET_OCEAN |
tsurfLoc (I,J) = TSURF(I,J) |
|
./pkg/seaice/seaice_budget_ocean.F |
95 |
SEAICE_BUDGET_OCEAN |
atempLoc (I,J) = MAX(celsius2K+MIN_ATEMP,ATEMP(I,J,bi,bj)) |
|
./pkg/seaice/seaice_budget_ocean.F |
98 |
SEAICE_BUDGET_OCEAN |
lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
117 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)=SEAICE_strength*tmpscal2 |
|
./pkg/seaice/seaice_calc_ice_strength.F |
119 |
SEAICE_CALC_ICE_STRENGTH |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
120 |
SEAICE_CALC_ICE_STRENGTH |
ZMIN(I,J,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_calc_ice_strength.F |
121 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
174 |
SEAICE_CALC_ICE_STRENGTH |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
175 |
SEAICE_CALC_ICE_STRENGTH |
ZMIN(I,J,bi,bj) = SEAICE_zetaMin |
|
./pkg/seaice/seaice_calc_ice_strength.F |
176 |
SEAICE_CALC_ICE_STRENGTH |
PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
109 |
SEAICE_CALC_LHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_lhs.F |
111 |
SEAICE_CALC_LHS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
112 |
SEAICE_CALC_LHS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
121 |
SEAICE_CALC_LHS |
dragSym(I,J) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_calc_lhs.F |
123 |
SEAICE_CALC_LHS |
& +CbotC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
137 |
SEAICE_CALC_LHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_lhs.F |
139 |
SEAICE_CALC_LHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
140 |
SEAICE_CALC_LHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
144 |
SEAICE_CALC_LHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_lhs.F |
147 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_calc_lhs.F |
148 |
SEAICE_CALC_LHS |
& bdfAlpha*seaiceMassU(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_calc_lhs.F |
149 |
SEAICE_CALC_LHS |
& *uIceLoc(I,J,bi,bj) - stressDivergenceX(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
151 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_calc_lhs.F |
152 |
SEAICE_CALC_LHS |
& bdfAlpha*seaiceMassV(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_calc_lhs.F |
153 |
SEAICE_CALC_LHS |
& *vIceLoc(I,J,bi,bj) - stressDivergenceY(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
155 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_calc_lhs.F |
156 |
SEAICE_CALC_LHS |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
157 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( vIceLoc(I ,J,bi,bj)+vIceLoc(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
158 |
SEAICE_CALC_LHS |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
159 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
162 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_calc_lhs.F |
163 |
SEAICE_CALC_LHS |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
164 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( uIceLoc(I,J ,bi,bj)+uIceLoc(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
165 |
SEAICE_CALC_LHS |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
166 |
SEAICE_CALC_LHS |
& * 0.5 _d 0*( uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
169 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_lhs.F |
170 |
SEAICE_CALC_LHS |
& 0.5 _d 0 * ( dragSym(I,J)+dragSym(I-1,J) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
171 |
SEAICE_CALC_LHS |
& * uIceLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
172 |
SEAICE_CALC_LHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
173 |
SEAICE_CALC_LHS |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
174 |
SEAICE_CALC_LHS |
& (vIceLoc(I ,J,bi,bj)+vIceLoc(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
175 |
SEAICE_CALC_LHS |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
176 |
SEAICE_CALC_LHS |
& (vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
177 |
SEAICE_CALC_LHS |
& ) ) * areaW(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
179 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_lhs.F |
180 |
SEAICE_CALC_LHS |
& 0.5 _d 0 * ( dragSym(I,J)+dragSym(I,J-1) ) |
|
./pkg/seaice/seaice_calc_lhs.F |
181 |
SEAICE_CALC_LHS |
& * vIceLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
182 |
SEAICE_CALC_LHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
183 |
SEAICE_CALC_LHS |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
184 |
SEAICE_CALC_LHS |
& (uIceLoc(I,J ,bi,bj)+uIceLoc(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
185 |
SEAICE_CALC_LHS |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_lhs.F |
186 |
SEAICE_CALC_LHS |
& (uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_lhs.F |
187 |
SEAICE_CALC_LHS |
& ) ) * areaS(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
189 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj)*maskinW(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
190 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj)*maskinS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_lhs.F |
195 |
SEAICE_CALC_LHS |
DO J=1-Oly,sNy+Oly |
|
./pkg/seaice/seaice_calc_lhs.F |
197 |
SEAICE_CALC_LHS |
gUmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
198 |
SEAICE_CALC_LHS |
gVmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_lhs.F |
208 |
SEAICE_CALC_LHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_lhs.F |
210 |
SEAICE_CALC_LHS |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - gUmom(I,J) |
|
./pkg/seaice/seaice_calc_lhs.F |
211 |
SEAICE_CALC_LHS |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - gVmom(I,J) |
|
./pkg/seaice/seaice_calc_residual.F |
137 |
SEAICE_CALC_RESIDUAL |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_residual.F |
139 |
SEAICE_CALC_RESIDUAL |
uIceRes(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_residual.F |
140 |
SEAICE_CALC_RESIDUAL |
vIceRes(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - vIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_residual.F |
70 |
SEAICE_CALC_RESIDUAL |
DO J=1-Oly,sNy+Oly |
|
./pkg/seaice/seaice_calc_residual.F |
72 |
SEAICE_CALC_RESIDUAL |
uIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
73 |
SEAICE_CALC_RESIDUAL |
vIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
74 |
SEAICE_CALC_RESIDUAL |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_residual.F |
75 |
SEAICE_CALC_RESIDUAL |
vIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
100 |
SEAICE_CALC_RHS |
& ) )*areaW(I,J) |
|
./pkg/seaice/seaice_calc_rhs.F |
101 |
SEAICE_CALC_RHS |
vIceRHS(I,J,bi,bj) = FORCEY(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_rhs.F |
102 |
SEAICE_CALC_RHS |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_calc_rhs.F |
103 |
SEAICE_CALC_RHS |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
104 |
SEAICE_CALC_RHS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
105 |
SEAICE_CALC_RHS |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
106 |
SEAICE_CALC_RHS |
& ( uVel(I,J ,kSrf,bi,bj)+uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
107 |
SEAICE_CALC_RHS |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
108 |
SEAICE_CALC_RHS |
& ( uVel(I,J-1,kSrf,bi,bj)+uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
109 |
SEAICE_CALC_RHS |
& ) )*areaS(I,J) |
|
./pkg/seaice/seaice_calc_rhs.F |
111 |
SEAICE_CALC_RHS |
uIceRHS(I,J,bi,bj) = uIceRHS(I,J,bi,bj)*maskinW(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
112 |
SEAICE_CALC_RHS |
vIceRHS(I,J,bi,bj) = vIceRHS(I,J,bi,bj)*maskinS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
70 |
SEAICE_CALC_RHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_rhs.F |
72 |
SEAICE_CALC_RHS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
73 |
SEAICE_CALC_RHS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
80 |
SEAICE_CALC_RHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_rhs.F |
82 |
SEAICE_CALC_RHS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
83 |
SEAICE_CALC_RHS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
87 |
SEAICE_CALC_RHS |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_rhs.F |
92 |
SEAICE_CALC_RHS |
uIceRHS(I,J,bi,bj) = FORCEX(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_calc_rhs.F |
93 |
SEAICE_CALC_RHS |
& 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_calc_rhs.F |
94 |
SEAICE_CALC_RHS |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
95 |
SEAICE_CALC_RHS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
96 |
SEAICE_CALC_RHS |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
97 |
SEAICE_CALC_RHS |
& ( vVel(I ,J,kSrf,bi,bj)+vVel(I ,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_calc_rhs.F |
98 |
SEAICE_CALC_RHS |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_calc_rhs.F |
99 |
SEAICE_CALC_RHS |
& ( vVel(I-1,J,kSrf,bi,bj)+vVel(I-1,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
82 |
SEAICE_CALC_STRESSDIV |
DO J=1,sNy |
|
./pkg/seaice/seaice_calc_stressdiv.F |
86 |
SEAICE_CALC_STRESSDIV |
& - sig11(i-1,J ) * _dyF(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_stressdiv.F |
93 |
SEAICE_CALC_STRESSDIV |
& + sig12(i+1,J ) * _dyU(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
106 |
SEAICE_CALC_VISCOSITIES |
& ( e12(I,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
107 |
SEAICE_CALC_VISCOSITIES |
& + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
116 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_viscosities.F |
117 |
SEAICE_CALC_VISCOSITIES |
& ( rAz(I ,J ,bi,bj)*e12(I ,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
118 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I+1,J ,bi,bj)*e12(I+1,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
119 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I ,J+1,bi,bj)*e12(I ,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
120 |
SEAICE_CALC_VISCOSITIES |
& + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
137 |
SEAICE_CALC_VISCOSITIES |
deltaC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_viscosities.F |
139 |
SEAICE_CALC_VISCOSITIES |
& deltaC(I,J,bi,bj) = SQRT(deltaCsq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
141 |
SEAICE_CALC_VISCOSITIES |
deltaC(I,J,bi,bj) = SQRT(deltaCsq) |
|
./pkg/seaice/seaice_calc_viscosities.F |
149 |
SEAICE_CALC_VISCOSITIES |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_deltaMin) |
|
./pkg/seaice/seaice_calc_viscosities.F |
156 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = ZMAX(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
159 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
160 |
SEAICE_CALC_VISCOSITIES |
& * ( 1. _d 0 + tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
163 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
165 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = MAX(ZMIN(I,J,bi,bj),zeta(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
167 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
168 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = recip_e2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
170 |
SEAICE_CALC_VISCOSITIES |
press(I,J,bi,bj) = |
|
./pkg/seaice/seaice_calc_viscosities.F |
171 |
SEAICE_CALC_VISCOSITIES |
& ( press0(I,J,bi,bj)*( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
172 |
SEAICE_CALC_VISCOSITIES |
& + TWO*zeta(I,J,bi,bj)*deltaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
173 |
SEAICE_CALC_VISCOSITIES |
& * SEAICEpressReplFac/( 1. _d 0 + tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
174 |
SEAICE_CALC_VISCOSITIES |
& ) * ( 1. _d 0 - tnsFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
189 |
SEAICE_CALC_VISCOSITIES |
etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)*ep |
|
./pkg/seaice/seaice_calc_viscosities.F |
191 |
SEAICE_CALC_VISCOSITIES |
eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax) |
|
./pkg/seaice/seaice_calc_viscosities.F |
199 |
SEAICE_CALC_VISCOSITIES |
sumNorm = maskC(I,J, k,bi,bj)+maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
200 |
SEAICE_CALC_VISCOSITIES |
& + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
202 |
SEAICE_CALC_VISCOSITIES |
etaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_calc_viscosities.F |
203 |
SEAICE_CALC_VISCOSITIES |
& ( eta (I,J ,bi,bj) + eta (I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
204 |
SEAICE_CALC_VISCOSITIES |
& + eta (I,J-1,bi,bj) + eta (I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
205 |
SEAICE_CALC_VISCOSITIES |
zetaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_calc_viscosities.F |
206 |
SEAICE_CALC_VISCOSITIES |
& ( zeta(I,J ,bi,bj) + zeta(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
207 |
SEAICE_CALC_VISCOSITIES |
& + zeta(I,J-1,bi,bj) + zeta(I-1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_calc_viscosities.F |
214 |
SEAICE_CALC_VISCOSITIES |
DO J=1-OLy+1,sNy+OLy-1 |
|
./pkg/seaice/seaice_calc_viscosities.F |
216 |
SEAICE_CALC_VISCOSITIES |
maskZ = maskC(I,J, k,bi,bj)*maskC(I-1,J, k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
217 |
SEAICE_CALC_VISCOSITIES |
& * maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
218 |
SEAICE_CALC_VISCOSITIES |
etaZ (I,J,bi,bj) = etaZ(I,J,bi,bj) * maskZ |
|
./pkg/seaice/seaice_calc_viscosities.F |
219 |
SEAICE_CALC_VISCOSITIES |
zetaZ(I,J,bi,bj) = zetaZ(I,J,bi,bj) * maskZ |
|
./pkg/seaice/seaice_diagnostics_state.F |
139 |
SEAICE_DIAGNOSTICS_STATE |
IF ( tensileStrFac(I,J,bi,bj) .EQ. 1. _d 0) THEN |
|
./pkg/seaice/seaice_diagnostics_state.F |
144 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
148 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = tensileStrFac(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
149 |
SEAICE_DIAGNOSTICS_STATE |
& *press(I,J,bi,bj)/(1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
169 |
SEAICE_DIAGNOSTICS_STATE |
sigp = seaice_sigma1(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
170 |
SEAICE_DIAGNOSTICS_STATE |
sigm = seaice_sigma2(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
171 |
SEAICE_DIAGNOSTICS_STATE |
sig12(I,J) = 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
172 |
SEAICE_DIAGNOSTICS_STATE |
& ( seaice_sigma12(I, J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
173 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J, bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
174 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I+1,J+1,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
175 |
SEAICE_DIAGNOSTICS_STATE |
& + seaice_sigma12(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
176 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = SQRT( sigm*sigm + 4. _d 0*sig12(I,J)*sig12(I,J) ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
178 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
179 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
180 |
SEAICE_DIAGNOSTICS_STATE |
sig1(I,J) = 0.5*(sigp + sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
181 |
SEAICE_DIAGNOSTICS_STATE |
sig2(I,J) = 0.5*(sigp - sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
211 |
SEAICE_DIAGNOSTICS_STATE |
sigp = sig11(I,J) + sig22(I,J) |
|
./pkg/seaice/seaice_diagnostics_state.F |
212 |
SEAICE_DIAGNOSTICS_STATE |
sigm = sig11(I,J) - sig22(I,J) |
|
./pkg/seaice/seaice_diagnostics_state.F |
221 |
SEAICE_DIAGNOSTICS_STATE |
sigTmp = 2.*eta(I,J,bi,bj) * 0.25 _d 0 * |
|
./pkg/seaice/seaice_diagnostics_state.F |
222 |
SEAICE_DIAGNOSTICS_STATE |
& (e12(I,J,bi,bj) + e12(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
223 |
SEAICE_DIAGNOSTICS_STATE |
& +e12(I,J+1,bi,bj)+e12(I+1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_diagnostics_state.F |
226 |
SEAICE_DIAGNOSTICS_STATE |
IF ( press0(I,J,bi,bj) .GT. 1. _d -13 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
227 |
SEAICE_DIAGNOSTICS_STATE |
& recip_prs = 1./press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
228 |
SEAICE_DIAGNOSTICS_STATE |
sig1(I,J) = 0.5*(sigp + sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
229 |
SEAICE_DIAGNOSTICS_STATE |
sig2(I,J) = 0.5*(sigp - sigTmp)*recip_prs |
|
./pkg/seaice/seaice_diagnostics_state.F |
242 |
SEAICE_DIAGNOSTICS_STATE |
sigm = e11(I,J,bi,bj) - e22(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
244 |
SEAICE_DIAGNOSTICS_STATE |
& ( e12(I, J, bi,bj)**2 + e12(I+1,J, bi,bj)**2 |
|
./pkg/seaice/seaice_diagnostics_state.F |
245 |
SEAICE_DIAGNOSTICS_STATE |
& + e12(I+1,J+1,bi,bj)**2 + e12(I ,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
248 |
SEAICE_DIAGNOSTICS_STATE |
sig1(I,J) = sqrt(sigm*sigm + sigTmp) |
|
./pkg/seaice/seaice_diagnostics_state.F |
77 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_diagnostics_state.F |
87 |
SEAICE_DIAGNOSTICS_STATE |
IF (AREA(I,J,bi,bj) .GT. ZERO) |
|
./pkg/seaice/seaice_diagnostics_state.F |
88 |
SEAICE_DIAGNOSTICS_STATE |
& tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
90 |
SEAICE_DIAGNOSTICS_STATE |
tIce(I,J,bi,bj) = tIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
91 |
SEAICE_DIAGNOSTICS_STATE |
& + TICES(I,J,K,bi,bj)*tmp*recip_multDim |
|
./pkg/seaice/seaice_do_ridging.F |
114 |
SEAICE_DO_RIDGING |
AREA(I,J,bi,bj) = MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_dynsolver.F |
116 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
117 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
119 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
126 |
SEAICE_DYNSOLVER |
seaiceMassC(I,J,bi,bj)=seaiceMassC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
128 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
132 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
149 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
151 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
153 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
155 |
SEAICE_DYNSOLVER |
seaiceMaskU(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
157 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
159 |
SEAICE_DYNSOLVER |
IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND. |
|
./pkg/seaice/seaice_dynsolver.F |
161 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
163 |
SEAICE_DYNSOLVER |
seaiceMaskV(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
180 |
SEAICE_DYNSOLVER |
TAUX (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
181 |
SEAICE_DYNSOLVER |
TAUY (I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
184 |
SEAICE_DYNSOLVER |
stressDivergenceX(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
185 |
SEAICE_DYNSOLVER |
stressDivergenceY(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_dynsolver.F |
236 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
237 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
238 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
239 |
SEAICE_DYNSOLVER |
& * 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
245 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
246 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
255 |
SEAICE_DYNSOLVER |
FORCEX0(I,J,bi,bj)=FORCEX0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
256 |
SEAICE_DYNSOLVER |
& -seaiceMassU(I,J,bi,bj)*_recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
258 |
SEAICE_DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
259 |
SEAICE_DYNSOLVER |
& -seaiceMassV(I,J,bi,bj)* _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
80 |
SEAICE_DYNSOLVER |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
202 |
SEAICE_EVP |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_evp.F |
204 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + 1. _d 0 ) |
|
./pkg/seaice/seaice_evp.F |
205 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / ( SEAICE_evpAlpha + ecc2 ) |
|
./pkg/seaice/seaice_evp.F |
226 |
SEAICE_EVP |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_evp.F |
228 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
229 |
SEAICE_EVP |
denom2(I,J,bi,bj) = denom1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
252 |
SEAICE_EVP |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
253 |
SEAICE_EVP |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
255 |
SEAICE_EVP |
e11 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
256 |
SEAICE_EVP |
e22 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
257 |
SEAICE_EVP |
e12 (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
259 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
260 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = SEAICE_evpAlpha |
|
./pkg/seaice/seaice_evp.F |
261 |
SEAICE_EVP |
evpBetaU (I,J,bi,bj) = SEAICE_evpBeta |
|
./pkg/seaice/seaice_evp.F |
262 |
SEAICE_EVP |
evpBetaV (I,J,bi,bj) = SEAICE_evpBeta |
|
./pkg/seaice/seaice_evp.F |
267 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
269 |
SEAICE_EVP |
areaW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
270 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
271 |
SEAICE_EVP |
areaS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
272 |
SEAICE_EVP |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
276 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
278 |
SEAICE_EVP |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
279 |
SEAICE_EVP |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_evp.F |
296 |
SEAICE_EVP |
zMax (I,J,bi,bj) = _rA(I,J,bi,bj) * fac |
|
./pkg/seaice/seaice_evp.F |
353 |
SEAICE_EVP |
sig11Pm1(I,J,bi,bj) = seaice_sigma1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
354 |
SEAICE_EVP |
sig22Pm1(I,J,bi,bj) = seaice_sigma2(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
355 |
SEAICE_EVP |
sig12Pm1(I,J,bi,bj) = seaice_sigma12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
356 |
SEAICE_EVP |
uIcePm1 (I,J,bi,bj) = uIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
357 |
SEAICE_EVP |
vIcePm1 (I,J,bi,bj) = vIce(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
364 |
SEAICE_EVP |
seaice_div (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
365 |
SEAICE_EVP |
seaice_tension(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
366 |
SEAICE_EVP |
seaice_shear (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
367 |
SEAICE_EVP |
pressC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
368 |
SEAICE_EVP |
e12Csq (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
369 |
SEAICE_EVP |
zetaC (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
370 |
SEAICE_EVP |
deltaZ (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
371 |
SEAICE_EVP |
zetaZ (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
372 |
SEAICE_EVP |
deltaC (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
388 |
SEAICE_EVP |
& ( e12(I,J ,bi,bj) + e12(I+1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
389 |
SEAICE_EVP |
& + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
399 |
SEAICE_EVP |
& ( rAz(I ,J ,bi,bj)*e12(I ,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
400 |
SEAICE_EVP |
& + rAz(I+1,J ,bi,bj)*e12(I+1,J ,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
401 |
SEAICE_EVP |
& + rAz(I ,J+1,bi,bj)*e12(I ,J+1,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
402 |
SEAICE_EVP |
& + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 ) |
|
./pkg/seaice/seaice_evp.F |
408 |
SEAICE_EVP |
deltaSq = ep(I,J)**2 + recip_ecc2 * em(I,J)**2 |
|
./pkg/seaice/seaice_evp.F |
409 |
SEAICE_EVP |
& + recip_ecc2 * 4. _d 0 * e12Csq(I,J) |
|
./pkg/seaice/seaice_evp.F |
412 |
SEAICE_EVP |
deltaC(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
414 |
SEAICE_EVP |
& deltaC(I,J,bi,bj) = SQRT(deltaSq) |
|
./pkg/seaice/seaice_evp.F |
416 |
SEAICE_EVP |
deltaC(I,J,bi,bj) = SQRT(deltaSq) |
|
./pkg/seaice/seaice_evp.F |
422 |
SEAICE_EVP |
deltaCreg = deltaC(I,J,bi,bj) + SEAICE_deltaMin |
|
./pkg/seaice/seaice_evp.F |
424 |
SEAICE_EVP |
deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_deltaMin) |
|
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
zetaC(I,J) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
427 |
SEAICE_EVP |
& * ( 1. _d 0 + tensileStrFac(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
436 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = SQRT(zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
437 |
SEAICE_EVP |
& * EVPcFac / MAX(seaiceMassC(I,J,bi,bj), 1.D-04) |
|
./pkg/seaice/seaice_evp.F |
438 |
SEAICE_EVP |
& * recip_rA(I,J,bi,bj) ) * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
evpAlphaC(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
440 |
SEAICE_EVP |
& MAX(evpAlphaC(I,J,bi,bj),SEAICEaEVPalphaMin) |
|
./pkg/seaice/seaice_evp.F |
446 |
SEAICE_EVP |
DO J=1,sNy+1 |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
sumNorm = maskC(I,J, kSrf,bi,bj)+maskC(I-1,J, kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
449 |
SEAICE_EVP |
& + maskC(I,J-1,kSrf,bi,bj)+maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
451 |
SEAICE_EVP |
zetaZ(I,J,bi,bj) = sumNorm * |
|
./pkg/seaice/seaice_evp.F |
452 |
SEAICE_EVP |
& ( zetaC(I, J) + zetaC(I-1,J-1) |
|
./pkg/seaice/seaice_evp.F |
453 |
SEAICE_EVP |
& + zetaC(I-1,J) + zetaC(I, J-1) ) |
|
./pkg/seaice/seaice_evp.F |
454 |
SEAICE_EVP |
deltaZ(I,J) = sumNorm * |
|
./pkg/seaice/seaice_evp.F |
455 |
SEAICE_EVP |
& ( deltaC(I, J,bi,bj) + deltaC(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
456 |
SEAICE_EVP |
& + deltaC(I-1,J,bi,bj) + deltaC(I, J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
469 |
SEAICE_EVP |
zetaC(I,J) = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
470 |
SEAICE_EVP |
& ,zetaC(I,J))) |
|
./pkg/seaice/seaice_evp.F |
476 |
SEAICE_EVP |
& MAX(zMax(I, J,bi,bj),zMax(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& MAX(zMax(I-1,J,bi,bj),zMax(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
479 |
SEAICE_EVP |
& MAX(zMin(I, J,bi,bj),zMin(I, J-1,bi,bj)), |
|
./pkg/seaice/seaice_evp.F |
480 |
SEAICE_EVP |
& MAX(zMin(I-1,J,bi,bj),zMin(I-1,J-1,bi,bj)) ) |
|
./pkg/seaice/seaice_evp.F |
481 |
SEAICE_EVP |
zetaZ(I,J,bi,bj) = MAX(zMinZ,MIN(zMaxZ,zetaZ(I,J,bi,bj))) |
|
./pkg/seaice/seaice_evp.F |
488 |
SEAICE_EVP |
pressC(I,J) = |
|
./pkg/seaice/seaice_evp.F |
489 |
SEAICE_EVP |
& ( press0(I,J,bi,bj) * ( 1. _d 0 - SEAICEpressReplFac ) |
|
./pkg/seaice/seaice_evp.F |
490 |
SEAICE_EVP |
& + TWO*zetaC(I,J)*deltaC(I,J,bi,bj)*SEAICEpressReplFac |
|
./pkg/seaice/seaice_evp.F |
491 |
SEAICE_EVP |
& /(1. _d 0 + tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
492 |
SEAICE_EVP |
& ) * (1. _d 0 - tensileStrFac(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
500 |
SEAICE_EVP |
press(I,J,bi,bj) = pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
501 |
SEAICE_EVP |
zeta (I,J,bi,bj) = zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
502 |
SEAICE_EVP |
eta (I,J,bi,bj) = zetaC(I,J)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
516 |
SEAICE_EVP |
etaDenC = em(I,J)**2 + 4. _d 0 * e12Csq(I,J) |
|
./pkg/seaice/seaice_evp.F |
518 |
SEAICE_EVP |
zetaMaxC = ecc2*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
519 |
SEAICE_EVP |
& *(deltaC(I,J,bi,bj)-ep(I,J))/etaDenC |
|
./pkg/seaice/seaice_evp.F |
522 |
SEAICE_EVP |
eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2 |
|
./pkg/seaice/seaice_evp.F |
524 |
SEAICE_EVP |
seaice_div (I,J) = |
|
./pkg/seaice/seaice_evp.F |
525 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
526 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
527 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*MIN(zetaC(I,J),zetaMaxC) |
|
./pkg/seaice/seaice_evp.F |
528 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
542 |
SEAICE_EVP |
& sumNorm * recip_rAz(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
543 |
SEAICE_EVP |
& ( _rA(I ,J ,bi,bj) * em(I, J )**2 |
|
./pkg/seaice/seaice_evp.F |
544 |
SEAICE_EVP |
& + _rA(I-1,J-1,bi,bj) * em(I-1,J-1)**2 |
|
./pkg/seaice/seaice_evp.F |
545 |
SEAICE_EVP |
& + _rA(I-1,J ,bi,bj) * em(I-1,J )**2 |
|
./pkg/seaice/seaice_evp.F |
546 |
SEAICE_EVP |
& + _rA(I ,J-1,bi,bj) * em(I, J-1)**2 ) |
|
./pkg/seaice/seaice_evp.F |
547 |
SEAICE_EVP |
& + 4. _d 0*e12(I,J,bi,bj)**2 |
|
./pkg/seaice/seaice_evp.F |
549 |
SEAICE_EVP |
zetaMaxZ = ecc2*zetaZ(I,J,bi,bj) * ( deltaZ(I,J) |
|
./pkg/seaice/seaice_evp.F |
550 |
SEAICE_EVP |
& - sumNorm * ( ep(I,J ) + ep(I-1,J ) |
|
./pkg/seaice/seaice_evp.F |
551 |
SEAICE_EVP |
& + ep(I,J-1) + ep(I-1,J-1) ) |
|
./pkg/seaice/seaice_evp.F |
553 |
SEAICE_EVP |
seaice_shear (I,J) = |
|
./pkg/seaice/seaice_evp.F |
554 |
SEAICE_EVP |
& 2. _d 0*MIN(zetaZ(I,J,bi,bj),zetaMaxZ) |
|
./pkg/seaice/seaice_evp.F |
555 |
SEAICE_EVP |
& * 2. _d 0*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
562 |
SEAICE_EVP |
DO J=0,sNy |
|
./pkg/seaice/seaice_evp.F |
564 |
SEAICE_EVP |
seaice_div (I,J) = |
|
./pkg/seaice/seaice_evp.F |
565 |
SEAICE_EVP |
& ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J) |
|
./pkg/seaice/seaice_evp.F |
566 |
SEAICE_EVP |
& ) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
567 |
SEAICE_EVP |
seaice_tension(I,J) = 2. _d 0*zetaC(I,J) |
|
./pkg/seaice/seaice_evp.F |
568 |
SEAICE_EVP |
& * em(I,J) * hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
571 |
SEAICE_EVP |
DO J=1,sNy+1 |
|
./pkg/seaice/seaice_evp.F |
573 |
SEAICE_EVP |
seaice_shear (I,J) = |
|
./pkg/seaice/seaice_evp.F |
574 |
SEAICE_EVP |
& 2. _d 0*zetaZ(I,J,bi,bj)*e12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
590 |
SEAICE_EVP |
denom1(I,J,bi,bj) = 1. _d 0 / evpAlphaC(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
591 |
SEAICE_EVP |
denom2(I,J,bi,bj) = denom1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
598 |
SEAICE_EVP |
seaice_sigma1 (I,J,bi,bj) = ( seaice_sigma1 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
599 |
SEAICE_EVP |
& * ( evpAlphaC(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
600 |
SEAICE_EVP |
& + seaice_div(I,J) |
|
./pkg/seaice/seaice_evp.F |
601 |
SEAICE_EVP |
& ) * denom1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
602 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
603 |
SEAICE_EVP |
seaice_sigma2 (I,J,bi,bj) = ( seaice_sigma2 (I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
604 |
SEAICE_EVP |
& * ( evpAlphaC(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
605 |
SEAICE_EVP |
& + seaice_tension(I,J)*recip_evpRevFac |
|
./pkg/seaice/seaice_evp.F |
606 |
SEAICE_EVP |
& ) * denom2(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
607 |
SEAICE_EVP |
& *hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
612 |
SEAICE_EVP |
seaice_sigma1(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
613 |
SEAICE_EVP |
& ABS( seaice_sigma1(I,J,bi,bj) ), SEAICE_EPS ), |
|
./pkg/seaice/seaice_evp.F |
614 |
SEAICE_EVP |
& seaice_sigma1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
615 |
SEAICE_EVP |
seaice_sigma2(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
616 |
SEAICE_EVP |
& ABS( seaice_sigma2(I,J,bi,bj) ), SEAICE_EPS ), |
|
./pkg/seaice/seaice_evp.F |
617 |
SEAICE_EVP |
& seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
620 |
SEAICE_EVP |
sig11(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
621 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)+seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
622 |
SEAICE_EVP |
sig22(I,J) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
623 |
SEAICE_EVP |
& ( seaice_sigma1(I,J,bi,bj)-seaice_sigma2(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
637 |
SEAICE_EVP |
evpAlphaZ(I,J,bi,bj) = 0.25 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
638 |
SEAICE_EVP |
& ( evpAlphaC(I, J,bi,bj)+evpAlphaC(I-1,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
639 |
SEAICE_EVP |
& + evpAlphaC(I-1,J,bi,bj)+evpAlphaC(I, J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
640 |
SEAICE_EVP |
denom2(I,J,bi,bj) = 1. _d 0 / evpAlphaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
646 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = ( seaice_sigma12(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
647 |
SEAICE_EVP |
& * ( evpAlphaZ(I,J,bi,bj) - evpRevFac ) |
|
./pkg/seaice/seaice_evp.F |
648 |
SEAICE_EVP |
& + seaice_shear(I,J)*recip_evpRevFac |
|
./pkg/seaice/seaice_evp.F |
649 |
SEAICE_EVP |
& ) * denom2(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
651 |
SEAICE_EVP |
seaice_sigma12(I,J,bi,bj) = SIGN(MAX( |
|
./pkg/seaice/seaice_evp.F |
652 |
SEAICE_EVP |
& ABS( seaice_sigma12(I,J,bi,bj) ), SEAICE_EPS ), |
|
./pkg/seaice/seaice_evp.F |
653 |
SEAICE_EVP |
& seaice_sigma12(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
660 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
662 |
SEAICE_EVP |
stressDivergenceX(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
663 |
SEAICE_EVP |
& ( sig11(I ,J ) * _dyF(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
664 |
SEAICE_EVP |
& - sig11(I-1,J ) * _dyF(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
665 |
SEAICE_EVP |
& + seaice_sigma12(I,J+1,bi,bj) * _dxV(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
666 |
SEAICE_EVP |
& - seaice_sigma12(I,J ,bi,bj) * _dxV(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
667 |
SEAICE_EVP |
& ) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
668 |
SEAICE_EVP |
stressDivergenceY(I,J,bi,bj) = |
|
./pkg/seaice/seaice_evp.F |
669 |
SEAICE_EVP |
& ( sig22(I,J ) * _dxF(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
670 |
SEAICE_EVP |
& - sig22(I,J-1) * _dxF(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
671 |
SEAICE_EVP |
& + seaice_sigma12(I+1,J,bi,bj) * _dyU(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
672 |
SEAICE_EVP |
& - seaice_sigma12(I ,J,bi,bj) * _dyU(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
673 |
SEAICE_EVP |
& ) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
693 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig11Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
695 |
SEAICE_EVP |
& evpAlphaC(I,J,bi,bj) * sig22Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
697 |
SEAICE_EVP |
& evpAlphaZ(I,J,bi,bj) * sig12Pm1(i,j,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
763 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
773 |
SEAICE_EVP |
locMaskU = seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
774 |
SEAICE_EVP |
locMaskV = seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
782 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
783 |
SEAICE_EVP |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
784 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
785 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
786 |
SEAICE_EVP |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
787 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
788 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIce(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
789 |
SEAICE_EVP |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
790 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIce(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
791 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
792 |
SEAICE_EVP |
& )*locMaskU ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
793 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_evp.F |
794 |
SEAICE_EVP |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_evp.F |
795 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
796 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
797 |
SEAICE_EVP |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
798 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
799 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIce(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
800 |
SEAICE_EVP |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
801 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIce(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
802 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
803 |
SEAICE_EVP |
& )*locMaskV ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
805 |
SEAICE_EVP |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
806 |
SEAICE_EVP |
& seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
807 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I ,J,bi,bj)+vIce(I ,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
808 |
SEAICE_EVP |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
809 |
SEAICE_EVP |
& * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
811 |
SEAICE_EVP |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*( |
|
./pkg/seaice/seaice_evp.F |
812 |
SEAICE_EVP |
& seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
813 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J ,bi,bj)+uIce(I+1, J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
814 |
SEAICE_EVP |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
815 |
SEAICE_EVP |
& * 0.5 _d 0*( uIce(I,J-1,bi,bj)+uIce(I+1,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
821 |
SEAICE_EVP |
DO J=1-Oly,sNy+Oly |
|
./pkg/seaice/seaice_evp.F |
823 |
SEAICE_EVP |
gUmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
824 |
SEAICE_EVP |
gVmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
832 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
834 |
SEAICE_EVP |
FORCEX(I,J,bi,bj) = FORCEX(I,J,bi,bj) + gUmom(I,J) |
|
./pkg/seaice/seaice_evp.F |
835 |
SEAICE_EVP |
FORCEY(I,J,bi,bj) = FORCEY(I,J,bi,bj) + gVmom(I,J) |
|
./pkg/seaice/seaice_evp.F |
844 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
847 |
SEAICE_EVP |
evpBetaU(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
848 |
SEAICE_EVP |
& +evpAlphaC(I, J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
849 |
SEAICE_EVP |
evpBetaV(I,J,bi,bj) = 0.5 _d 0*(evpAlphaC(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
850 |
SEAICE_EVP |
& +evpAlphaC(I,J, bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
855 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
857 |
SEAICE_EVP |
betaFacU = evpBetaU(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_evp.F |
858 |
SEAICE_EVP |
betaFacV = evpBetaV(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_evp.F |
862 |
SEAICE_EVP |
denomU = seaiceMassU(I,J,bi,bj)*betaFacP1U |
|
./pkg/seaice/seaice_evp.F |
863 |
SEAICE_EVP |
& + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
864 |
SEAICE_EVP |
& * COSWAT * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
865 |
SEAICE_EVP |
denomV = seaiceMassV(I,J,bi,bj)*betaFacP1V |
|
./pkg/seaice/seaice_evp.F |
866 |
SEAICE_EVP |
& + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
867 |
SEAICE_EVP |
& * COSWAT * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
869 |
SEAICE_EVP |
denomU = denomU + areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
870 |
SEAICE_EVP |
& * 0.5 _d 0*( CbotC(I,J,bi,bj) + CbotC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
871 |
SEAICE_EVP |
denomV = denomV + areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
872 |
SEAICE_EVP |
& * 0.5 _d 0*( CbotC(I,J,bi,bj) + CbotC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
876 |
SEAICE_EVP |
uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
877 |
SEAICE_EVP |
& ( seaiceMassU(I,J,bi,bj)*betaFacU |
|
./pkg/seaice/seaice_evp.F |
878 |
SEAICE_EVP |
& * uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
879 |
SEAICE_EVP |
& + seaiceMassU(I,J,bi,bj)*recip_deltaT*evpStarFac |
|
./pkg/seaice/seaice_evp.F |
880 |
SEAICE_EVP |
& * uIceNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
881 |
SEAICE_EVP |
& + FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
882 |
SEAICE_EVP |
& + stressDivergenceX(I,J,bi,bj) ) / denomU |
|
./pkg/seaice/seaice_evp.F |
883 |
SEAICE_EVP |
vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
884 |
SEAICE_EVP |
& ( seaiceMassV(I,J,bi,bj)*betaFacV |
|
./pkg/seaice/seaice_evp.F |
885 |
SEAICE_EVP |
& * vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
886 |
SEAICE_EVP |
& + seaiceMassV(I,J,bi,bj)*recip_deltaT*evpStarFac |
|
./pkg/seaice/seaice_evp.F |
887 |
SEAICE_EVP |
& * vIceNm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
888 |
SEAICE_EVP |
& + FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
889 |
SEAICE_EVP |
& + stressDivergenceY(I,J,bi,bj) ) / denomV |
|
./pkg/seaice/seaice_evp.F |
924 |
SEAICE_EVP |
DO J=1,sNy |
|
./pkg/seaice/seaice_evp.F |
926 |
SEAICE_EVP |
uIcePm1(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
927 |
SEAICE_EVP |
& ( uIce(I,J,bi,bj)-uIcePm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
928 |
SEAICE_EVP |
& * evpBetaU(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
929 |
SEAICE_EVP |
vIcePm1(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
930 |
SEAICE_EVP |
& ( vIce(I,J,bi,bj)-vIcePm1(i,j,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
931 |
SEAICE_EVP |
& * evpBetaV(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
939 |
SEAICE_EVP |
& ( uIcePm1(I,J,bi,bj)*uIcePm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
940 |
SEAICE_EVP |
& + vIcePm1(I,J,bi,bj)*vIcePm1(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
947 |
SEAICE_EVP |
& + uIcePm1(I,J,bi,bj)*uIcePm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
948 |
SEAICE_EVP |
& + vIcePm1(I,J,bi,bj)*vIcePm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
139 |
SEAICE_MAP_RS2VEC |
INTEGER I, J, bi, bj |
|
./pkg/seaice/seaice_fgmres.F |
149 |
SEAICE_MAP_RS2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
150 |
SEAICE_MAP_RS2VEC |
jj = 2*sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
153 |
SEAICE_MAP_RS2VEC |
vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
154 |
SEAICE_MAP_RS2VEC |
vector(ii, bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
158 |
SEAICE_MAP_RS2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
159 |
SEAICE_MAP_RS2VEC |
jj = 2*sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
162 |
SEAICE_MAP_RS2VEC |
xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
163 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
169 |
SEAICE_MAP_RS2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
170 |
SEAICE_MAP_RS2VEC |
jj = sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
173 |
SEAICE_MAP_RS2VEC |
vector(ii, bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
174 |
SEAICE_MAP_RS2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
178 |
SEAICE_MAP_RS2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
179 |
SEAICE_MAP_RS2VEC |
jj = sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
182 |
SEAICE_MAP_RS2VEC |
xfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
183 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
47 |
SEAICE_MAP2VEC |
INTEGER I, J, bi, bj |
|
./pkg/seaice/seaice_fgmres.F |
57 |
SEAICE_MAP2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
58 |
SEAICE_MAP2VEC |
jj = 2*sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
61 |
SEAICE_MAP2VEC |
vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
62 |
SEAICE_MAP2VEC |
vector(ii, bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
66 |
SEAICE_MAP2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
67 |
SEAICE_MAP2VEC |
jj = 2*sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
70 |
SEAICE_MAP2VEC |
xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
71 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
77 |
SEAICE_MAP2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
78 |
SEAICE_MAP2VEC |
jj = sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
81 |
SEAICE_MAP2VEC |
vector(ii, bi,bj) = xfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
82 |
SEAICE_MAP2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
86 |
SEAICE_MAP2VEC |
DO J=1,sNy |
|
./pkg/seaice/seaice_fgmres.F |
87 |
SEAICE_MAP2VEC |
jj = sNx*(J-1) |
|
./pkg/seaice/seaice_fgmres.F |
90 |
SEAICE_MAP2VEC |
xfld2d(I,J,bi,bj) = vector(ii, bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
91 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
109 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
127 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
89 |
SEAICE_FREEDRIFT |
mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1005 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1007 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1008 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1009 |
SEAICE_GROWTH |
a_QSWbyATMmult_cover(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1014 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1016 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1017 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1018 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1036 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1040 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1042 |
SEAICE_GROWTH |
IF ( theta(I,J,kSurface,bi,bj) .GE. tempFrz ) THEN |
|
./pkg/seaice/seaice_growth.F |
1048 |
SEAICE_GROWTH |
IF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1051 |
SEAICE_GROWTH |
& SEAICE_mcPheeTaper * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1052 |
SEAICE_GROWTH |
ELSEIF ( (AREApreTH(I,J) .GT. 0. _d 0).AND. |
|
./pkg/seaice/seaice_growth.F |
1060 |
SEAICE_GROWTH |
& * (theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1075 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1078 |
SEAICE_GROWTH |
& SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1079 |
SEAICE_GROWTH |
tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz) |
|
./pkg/seaice/seaice_growth.F |
1089 |
SEAICE_GROWTH |
& / ( floeDiameterMax*( 1. _d 0 - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1090 |
SEAICE_GROWTH |
& + floeDiameterMin*AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1134 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1136 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1137 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1144 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1151 |
SEAICE_GROWTH |
tmpscal1 = uWind(I,J,bi,bj)*uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1152 |
SEAICE_GROWTH |
& + vWind(I,J,bi,bj)*vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1180 |
SEAICE_GROWTH |
& ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2 |
|
./pkg/seaice/seaice_growth.F |
1181 |
SEAICE_GROWTH |
& + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2 |
|
./pkg/seaice/seaice_growth.F |
1189 |
SEAICE_GROWTH |
tmpscal3 = 0.5 _d 0 * (dxC(I,J,bi,bj)+dyC(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1199 |
SEAICE_GROWTH |
greaseLayerThick(I,J) = 0.763 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1211 |
SEAICE_GROWTH |
greaseLayerThick(I,J)=max(4. _d -2, greaseLayerThick(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1213 |
SEAICE_GROWTH |
greaseLayerThick(I,J)=min(4. _d 0 , greaseLayerThick(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1229 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1234 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1236 |
SEAICE_GROWTH |
d_HSNWbySublim_ITD(I,J,IT) = - tmpscal2 * ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1238 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = d_HSNWbySublim(I,J) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1240 |
SEAICE_GROWTH |
r_FWbySublimMult(I,J,IT)= r_FWbySublimMult(I,J,IT) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1242 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HSNOW(I,J,bi,bj)*SNOW2ICE),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1243 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = - tmpscal2 * ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1244 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) - tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1245 |
SEAICE_GROWTH |
r_FWbySublim(I,J) = r_FWbySublim(I,J) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1253 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1259 |
SEAICE_GROWTH |
d_HEFFbySublim_ITD(I,J,IT) = - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1261 |
SEAICE_GROWTH |
d_HEFFbySublim(I,J) = d_HEFFbySublim(I,J) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1262 |
SEAICE_GROWTH |
r_FWbySublimMult(I,J,IT) = r_FWbySublimMult(I,J,IT) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1264 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublim(I,J),HEFF(I,J,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1265 |
SEAICE_GROWTH |
d_HEFFbySublim(I,J) = - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1266 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1267 |
SEAICE_GROWTH |
r_FWbySublim(I,J) = r_FWbySublim(I,J) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1271 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1277 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J,IT) = a_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1278 |
SEAICE_GROWTH |
& - r_FWbySublimMult(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1279 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT) = r_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1280 |
SEAICE_GROWTH |
& - r_FWbySublimMult(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1282 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = a_QbyATM_cover(I,J)-r_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
1283 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = r_QbyATM_cover(I,J)-r_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
1304 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1309 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*areaFracFactor(I,J,IT), |
|
./pkg/seaice/seaice_growth.F |
1310 |
SEAICE_GROWTH |
& -HEFFITD(I,J,IT,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1311 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE_ITD(I,J,IT)=tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1312 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J) = d_HEFFbyOCNonICE(I,J) + tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1317 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1319 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2) = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1320 |
SEAICE_GROWTH |
& + d_HEFFbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
1321 |
SEAICE_GROWTH |
& + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1325 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1327 |
SEAICE_GROWTH |
r_QbyOCN(I,J)=r_QbyOCN(I,J)-d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1331 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1333 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1334 |
SEAICE_GROWTH |
r_QbyOCN(I,J)=r_QbyOCN(I,J)-d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1335 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1337 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,2)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1355 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1359 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATMmult_cover(I,J,IT), |
|
./pkg/seaice/seaice_growth.F |
1360 |
SEAICE_GROWTH |
& -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1366 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW_ITD(I,J,IT) = tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1367 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW(I,J) = d_HSNWbyATMonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
1369 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT)=r_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1375 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1379 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyATM_cover(I,J),-HSNOW(I,J,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1385 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW(I,J)= tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1386 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1387 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) - tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1407 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1409 |
SEAICE_GROWTH |
tmpscal1 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1410 |
SEAICE_GROWTH |
& + d_HEFFbySublim_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1411 |
SEAICE_GROWTH |
& + d_HEFFbyOCNonICE_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1413 |
SEAICE_GROWTH |
& r_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1415 |
SEAICE_GROWTH |
& + AREAITDpreTH(I,J,IT) * r_QbyOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1416 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1417 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover(I,J) = d_HEFFbyATMonOCN_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1419 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_ITD(I,J,IT) = d_HEFFbyATMonOCN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1421 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J) = d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1423 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT) = r_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1429 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1431 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,3) = SItrHEFF(I,J,bi,bj,2) |
|
./pkg/seaice/seaice_growth.F |
1432 |
SEAICE_GROWTH |
& + d_HEFFbyATMonOCN_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1437 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1440 |
SEAICE_GROWTH |
tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)+ |
|
./pkg/seaice/seaice_growth.F |
1442 |
SEAICE_GROWTH |
& AREApreTH(I,J) * r_QbyOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1444 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover(I,J)=tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1445 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1446 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J)-tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1447 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1450 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,3)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1465 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1467 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J) = convertPRECIP2HI * ICE2SNOW * |
|
./pkg/seaice/seaice_growth.F |
1468 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1469 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J) = -convertPRECIP2HI * |
|
./pkg/seaice/seaice_growth.F |
1470 |
SEAICE_GROWTH |
& ( PRECIP(I,J,bi,bj) - snowPrecip(I,J,bi,bj) ) * |
|
./pkg/seaice/seaice_growth.F |
1471 |
SEAICE_GROWTH |
& AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1472 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1478 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1483 |
SEAICE_GROWTH |
IF ( a_QbyATM_cover(I,J).GE. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1485 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1486 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J)=convertPRECIP2HI*ICE2SNOW* |
|
./pkg/seaice/seaice_growth.F |
1487 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1490 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J)=-convertPRECIP2HI* |
|
./pkg/seaice/seaice_growth.F |
1491 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1492 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1498 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1500 |
SEAICE_GROWTH |
d_HSNWbyRAIN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1501 |
SEAICE_GROWTH |
& = d_HSNWbyRAIN(I,J)*areaFracFactor(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1506 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1508 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1533 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1535 |
SEAICE_GROWTH |
tmpscal4 = HSNWITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1536 |
SEAICE_GROWTH |
& + d_HSNWbySublim_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1537 |
SEAICE_GROWTH |
& + d_HSNWbyATMonSNW_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1538 |
SEAICE_GROWTH |
& + d_HSNWbyRAIN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1539 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW*areaFracFactor(I,J,IT), |
|
./pkg/seaice/seaice_growth.F |
1546 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW_ITD(I,J,IT) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1547 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW(I,J) = d_HSNWbyOCNonSNW(I,J) + tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1548 |
SEAICE_GROWTH |
r_QbyOCN(I,J)=r_QbyOCN(I,J) - tmpscal2*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
1553 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1555 |
SEAICE_GROWTH |
tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1561 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW(I,J) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
1562 |
SEAICE_GROWTH |
r_QbyOCN(I,J)=r_QbyOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1563 |
SEAICE_GROWTH |
& -d_HSNWbyOCNonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
1564 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J) |
|
./pkg/seaice/seaice_growth.F |
1584 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1589 |
SEAICE_GROWTH |
tmpscal4 = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1590 |
SEAICE_GROWTH |
& + d_HEFFbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
1591 |
SEAICE_GROWTH |
& + d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1592 |
SEAICE_GROWTH |
& + d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1595 |
SEAICE_GROWTH |
tmpscal4 = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1599 |
SEAICE_GROWTH |
tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j) * |
|
./pkg/seaice/seaice_growth.F |
1600 |
SEAICE_GROWTH |
& (1.0 _d 0 - AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1603 |
SEAICE_GROWTH |
tmpscal2=SWFracB * a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1607 |
SEAICE_GROWTH |
& -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1620 |
SEAICE_GROWTH |
if ((1.0 _d 0 - AREApreTH(I,J)).LE.siEps) then |
|
./pkg/seaice/seaice_growth.F |
1621 |
SEAICE_GROWTH |
tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1622 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1635 |
SEAICE_GROWTH |
d_HEFFbyGREASE(I,J) = |
|
./pkg/seaice/seaice_growth.F |
1636 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1639 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1640 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) * tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1642 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1643 |
SEAICE_GROWTH |
& SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1644 |
SEAICE_GROWTH |
& + d_HEFFbyGREASE(I,J) |
|
./pkg/seaice/seaice_growth.F |
1652 |
SEAICE_GROWTH |
tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1654 |
SEAICE_GROWTH |
SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1658 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open_ITD(I,J,1)=tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1659 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_ITD(I,J,1) =d_HEFFbyATMonOCN_ITD(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
1662 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J)=tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1663 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1664 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=r_QbyATM_open(I,J)-tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1665 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1670 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1674 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,4)=SItrHEFF(I,J,bi,bj,3) |
|
./pkg/seaice/seaice_growth.F |
1675 |
SEAICE_GROWTH |
& +d_HEFFbyATMonOCN_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1677 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,4)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1694 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1696 |
SEAICE_GROWTH |
tmpscal3 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1697 |
SEAICE_GROWTH |
& + d_HEFFbySublim_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1698 |
SEAICE_GROWTH |
& + d_HEFFbyOCNonICE_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1699 |
SEAICE_GROWTH |
& + d_HEFFbyATMonOCN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1700 |
SEAICE_GROWTH |
tmpscal4 = HSNWITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1701 |
SEAICE_GROWTH |
& + d_HSNWbySublim_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1702 |
SEAICE_GROWTH |
& + d_HSNWbyATMonSNW_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1703 |
SEAICE_GROWTH |
& + d_HSNWbyRAIN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1708 |
SEAICE_GROWTH |
d_HEFFbyFLOODING_ITD(I,J,IT) = tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1709 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J) = d_HEFFbyFLOODING(I,J) + tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1714 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1716 |
SEAICE_GROWTH |
tmpscal0 = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1717 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst |
|
./pkg/seaice/seaice_growth.F |
1718 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1719 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J)=tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
1720 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1721 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)- |
|
./pkg/seaice/seaice_growth.F |
1722 |
SEAICE_GROWTH |
& d_HEFFbyFLOODING(I,J)*ICE2SNOW |
|
./pkg/seaice/seaice_growth.F |
1732 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1734 |
SEAICE_GROWTH |
HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1735 |
SEAICE_GROWTH |
& + d_HEFFbySublim_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1736 |
SEAICE_GROWTH |
& + d_HEFFbyOCNonICE_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1737 |
SEAICE_GROWTH |
& + d_HEFFbyATMonOCN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1738 |
SEAICE_GROWTH |
& + d_HEFFbyFLOODING_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1739 |
SEAICE_GROWTH |
HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1740 |
SEAICE_GROWTH |
& + d_HSNWbySublim_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1741 |
SEAICE_GROWTH |
& + d_HSNWbyATMonSNW_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1742 |
SEAICE_GROWTH |
& + d_HSNWbyRAIN_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1743 |
SEAICE_GROWTH |
& + d_HSNWbyOCNonSNW_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1744 |
SEAICE_GROWTH |
& - d_HEFFbyFLOODING_ITD(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1780 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1782 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1783 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1784 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOWITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1785 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFFITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
1786 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREAITDpreTH(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
1787 |
SEAICE_GROWTH |
recip_heffActual(I,J)=recip_heffActualMult(I,J,1) |
|
./pkg/seaice/seaice_growth.F |
1791 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1798 |
SEAICE_GROWTH |
recip_HO=4. _d 0 / greaseLayerThick(I,J) |
|
./pkg/seaice/seaice_growth.F |
1800 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1806 |
SEAICE_GROWTH |
recip_HH = recip_heffActual(I,J) |
|
./pkg/seaice/seaice_growth.F |
1811 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyGREASE(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1816 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1818 |
SEAICE_GROWTH |
tmpscal4=MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1827 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1828 |
SEAICE_GROWTH |
& + MIN( 0. _d 0 , d_HEFFbyATMonOCN_open(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1829 |
SEAICE_GROWTH |
& + MIN( 0. _d 0 , d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1831 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1832 |
SEAICE_GROWTH |
& + d_HEFFbyATMonOCN_open(I,J) + d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1835 |
SEAICE_GROWTH |
tmpscal0=HEFF(I,J,bi,bj) - d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
1837 |
SEAICE_GROWTH |
tmpscal1= a_QbyATM_open(I,J)+a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1838 |
SEAICE_GROWTH |
& - d_HSNWbyATMonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
1847 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=MAX(0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1848 |
SEAICE_GROWTH |
& MIN( SEAICE_area_max, AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1852 |
SEAICE_GROWTH |
AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1855 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1858 |
SEAICE_GROWTH |
d_AREAbyATM(I,J)= |
|
./pkg/seaice/seaice_growth.F |
1859 |
SEAICE_GROWTH |
& recip_HO*MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1860 |
SEAICE_GROWTH |
& +HALF*recip_HH*MIN(0. _d 0,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1862 |
SEAICE_GROWTH |
d_AREAbyICE(I,J)= |
|
./pkg/seaice/seaice_growth.F |
1863 |
SEAICE_GROWTH |
& HALF*recip_HH*MIN(0. _d 0,d_HEFFbyATMonOCN_cover(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1865 |
SEAICE_GROWTH |
d_AREAbyOCN(I,J)= |
|
./pkg/seaice/seaice_growth.F |
1866 |
SEAICE_GROWTH |
& HALF*recip_HH*MIN( 0. _d 0,d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1873 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1875 |
SEAICE_GROWTH |
HEFFITD(I,J,1,bi,bj)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1876 |
SEAICE_GROWTH |
AREAITD(I,J,1,bi,bj)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1877 |
SEAICE_GROWTH |
HSNOWITD(I,J,1,bi,bj)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1884 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1886 |
SEAICE_GROWTH |
IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1888 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj)=ZERO |
|
./pkg/seaice/seaice_growth.F |
1894 |
SEAICE_GROWTH |
IF ( HEFFITDpreTH(I,J,IT).LE.ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1897 |
SEAICE_GROWTH |
tmpscal1=AREAITDpreTH(I,J,IT)* |
|
./pkg/seaice/seaice_growth.F |
1898 |
SEAICE_GROWTH |
& HEFFITD(I,J,IT,bi,bj)/HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1902 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1903 |
SEAICE_GROWTH |
& * (ONE - latMeltFrac(I,J,IT)) |
|
./pkg/seaice/seaice_growth.F |
1907 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj), |
|
./pkg/seaice/seaice_growth.F |
1911 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=SItrAREA(I,J,bi,bj,3) |
|
./pkg/seaice/seaice_growth.F |
1912 |
SEAICE_GROWTH |
& +AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1925 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1927 |
SEAICE_GROWTH |
AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1928 |
SEAICE_GROWTH |
& ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) ) |
|
./pkg/seaice/seaice_growth.F |
1933 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1936 |
SEAICE_GROWTH |
AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 * |
|
./pkg/seaice/seaice_growth.F |
1937 |
SEAICE_GROWTH |
& ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1956 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1958 |
SEAICE_GROWTH |
if (HEFF(I,J,bi,bj).GT.siEps) then |
|
./pkg/seaice/seaice_growth.F |
1959 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = |
|
./pkg/seaice/seaice_growth.F |
1960 |
SEAICE_GROWTH |
& SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1962 |
SEAICE_GROWTH |
SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1987 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
1989 |
SEAICE_GROWTH |
tmpscal1 = d_HEFFbyNEG(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) + |
|
./pkg/seaice/seaice_growth.F |
1990 |
SEAICE_GROWTH |
& d_HEFFbyATMonOCN(I,J) + d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
1991 |
SEAICE_GROWTH |
& + d_HEFFbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
1993 |
SEAICE_GROWTH |
& + d_HEFFbyRLX(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1997 |
SEAICE_GROWTH |
& min(SEAICE_salt0,salt(I,J,kSurface,bi,bj)) ) |
|
./pkg/seaice/seaice_growth.F |
1998 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2000 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2004 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
2006 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(2) |
|
./pkg/seaice/seaice_growth.F |
2007 |
SEAICE_GROWTH |
IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0 |
|
./pkg/seaice/seaice_growth.F |
2008 |
SEAICE_GROWTH |
& .AND. XC(I,J,bi,bj) .LT. -90.0) THEN |
|
./pkg/seaice/seaice_growth.F |
2009 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
2013 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC |
|
./pkg/seaice/seaice_growth.F |
2023 |
SEAICE_GROWTH |
IceGrowthRateInLeads(I,J)=max(0. _d 0,d_HEFFbyATMonOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2024 |
SEAICE_GROWTH |
tmpscal1 = IceGrowthRateInLeads(I,J) |
|
./pkg/seaice/seaice_growth.F |
2025 |
SEAICE_GROWTH |
leadPlumeFraction(I,J) = |
|
./pkg/seaice/seaice_growth.F |
2026 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2028 |
SEAICE_GROWTH |
localSPfrac(I,J)=localSPfrac(I,J)*leadPlumeFraction(I,J) |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2032 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
2033 |
SEAICE_GROWTH |
& *localSPfrac(I,J) |
|
./pkg/seaice/seaice_growth.F |
2036 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2050 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2053 |
SEAICE_GROWTH |
tmpscal1=d_HEFFbyOCNonICE(I,J)+d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
2056 |
SEAICE_GROWTH |
tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J) |
|
./pkg/seaice/seaice_growth.F |
2059 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2060 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2061 |
SEAICE_GROWTH |
& *SEAICE_saltFrac*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2066 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
2068 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(2) |
|
./pkg/seaice/seaice_growth.F |
2069 |
SEAICE_GROWTH |
IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0 |
|
./pkg/seaice/seaice_growth.F |
2070 |
SEAICE_GROWTH |
& .AND. XC(I,J,bi,bj) .LT. -90.0) THEN |
|
./pkg/seaice/seaice_growth.F |
2071 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC(1) |
|
./pkg/seaice/seaice_growth.F |
2075 |
SEAICE_GROWTH |
localSPfrac(I,J) = SPsalFRAC |
|
./pkg/seaice/seaice_growth.F |
2079 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
2080 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2081 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2083 |
SEAICE_GROWTH |
& *localSPfrac(I,J) |
|
./pkg/seaice/seaice_growth.F |
2089 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2090 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2091 |
SEAICE_GROWTH |
& *HSALT(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2109 |
SEAICE_GROWTH |
IceGrowthRateInLeads(I,J)=max(0. _d 0,d_HEFFbyATMonOCN(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2110 |
SEAICE_GROWTH |
tmpscal1 = IceGrowthRateInLeads(I,J) |
|
./pkg/seaice/seaice_growth.F |
2111 |
SEAICE_GROWTH |
leadPlumeFraction(I,J) = |
|
./pkg/seaice/seaice_growth.F |
2112 |
SEAICE_GROWTH |
& (ONE + EXP( (SPinflectionPoint - AREApreTH(I,J))*5.0 |
|
./pkg/seaice/seaice_growth.F |
2114 |
SEAICE_GROWTH |
localSPfrac(I,J)=localSPfrac(I,J)*leadPlumeFraction(I,J) |
|
./pkg/seaice/seaice_growth.F |
2117 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
2118 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2119 |
SEAICE_GROWTH |
& *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2121 |
SEAICE_GROWTH |
& *localSPfrac(I,J) |
|
./pkg/seaice/seaice_growth.F |
2123 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2128 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2133 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
2134 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) * SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2135 |
SEAICE_GROWTH |
saltFlux(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2136 |
SEAICE_GROWTH |
& saltFlux(I,J,bi,bj) + saltFluxAdjust(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2142 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2145 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,5)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2160 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2162 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2163 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2164 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2165 |
SEAICE_GROWTH |
r_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2169 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2181 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J)=a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
2182 |
SEAICE_GROWTH |
& + a_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
2183 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=r_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
2184 |
SEAICE_GROWTH |
& + r_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
2185 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J)=a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
2186 |
SEAICE_GROWTH |
& + a_QSWbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
2187 |
SEAICE_GROWTH |
r_FWbySublim(I,J)=r_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
2188 |
SEAICE_GROWTH |
& + r_FWbySublimMult(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
2200 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2202 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = r_QbyATM_cover(I,J) + r_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
2203 |
SEAICE_GROWTH |
& + a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
2204 |
SEAICE_GROWTH |
& - ( d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
2205 |
SEAICE_GROWTH |
& + d_HSNWbyOCNonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2206 |
SEAICE_GROWTH |
& + d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2208 |
SEAICE_GROWTH |
& + d_HEFFbyRLX(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2210 |
SEAICE_GROWTH |
& + d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2212 |
SEAICE_GROWTH |
& snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2213 |
SEAICE_GROWTH |
& ) * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2216 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2218 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = a_QSWbyATM_cover(I,J) + a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
2225 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2227 |
SEAICE_GROWTH |
QNET(I,J,bi,bj) = QNET(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
2228 |
SEAICE_GROWTH |
QSW(I,J,bi,bj) = QSW(I,J,bi,bj)*convertHI2Q |
|
./pkg/seaice/seaice_growth.F |
2257 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2262 |
SEAICE_GROWTH |
tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2263 |
SEAICE_GROWTH |
& ( d_HSNWbyATMonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2264 |
SEAICE_GROWTH |
& + d_HSNWbyOCNonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2265 |
SEAICE_GROWTH |
& + d_HEFFbyOCNonICE(I,J) + d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
2266 |
SEAICE_GROWTH |
& + d_HEFFbyNEG(I,J,bi,bj)+ d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE ) |
|
./pkg/seaice/seaice_growth.F |
2268 |
SEAICE_GROWTH |
& - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) ) |
|
./pkg/seaice/seaice_growth.F |
2277 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2280 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2286 |
SEAICE_GROWTH |
DIAGarrayA(I,J)=tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2291 |
SEAICE_GROWTH |
& QNET(I,J,bi,bj)=QNET(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
2304 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2314 |
SEAICE_GROWTH |
SIatmQnt(I,J,bi,bj) = |
|
./pkg/seaice/seaice_growth.F |
2315 |
SEAICE_GROWTH |
& maskC(I,J,kSurface,bi,bj)*convertHI2Q*( |
|
./pkg/seaice/seaice_growth.F |
2316 |
SEAICE_GROWTH |
& a_QSWbyATM_cover(I,J) + |
|
./pkg/seaice/seaice_growth.F |
2317 |
SEAICE_GROWTH |
& a_QbyATM_cover(I,J) + a_QbyATM_open(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2321 |
SEAICE_GROWTH |
tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2322 |
SEAICE_GROWTH |
& * convertHI2PRECIP * ( - d_HSNWbyRAIN(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2323 |
SEAICE_GROWTH |
& + a_FWbySublim(I,J) - r_FWbySublim(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2325 |
SEAICE_GROWTH |
tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
2326 |
SEAICE_GROWTH |
& ( ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2327 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2329 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2331 |
SEAICE_GROWTH |
& + ( d_HFRWbyRAIN(I,J) + r_FWbySublim(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2345 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2348 |
SEAICE_GROWTH |
& ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2352 |
SEAICE_GROWTH |
SItflux(I,J,bi,bj)= SIatmQnt(I,J,bi,bj)-tmpscal1-tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
2360 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2362 |
SEAICE_GROWTH |
tmpscal1= d_HSNWbyATMonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2363 |
SEAICE_GROWTH |
& +d_HFRWbyRAIN(I,J) |
|
./pkg/seaice/seaice_growth.F |
2364 |
SEAICE_GROWTH |
& +d_HSNWbyOCNonSNW(I,J)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2365 |
SEAICE_GROWTH |
& +d_HEFFbyOCNonICE(I,J) |
|
./pkg/seaice/seaice_growth.F |
2366 |
SEAICE_GROWTH |
& +d_HEFFbyATMonOCN(I,J) |
|
./pkg/seaice/seaice_growth.F |
2367 |
SEAICE_GROWTH |
& +d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2369 |
SEAICE_GROWTH |
& +d_HEFFbyRLX(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2371 |
SEAICE_GROWTH |
& +d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE |
|
./pkg/seaice/seaice_growth.F |
2373 |
SEAICE_GROWTH |
& +r_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
2374 |
SEAICE_GROWTH |
EmPmR(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2375 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2376 |
SEAICE_GROWTH |
& * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2378 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2385 |
SEAICE_GROWTH |
& - fw2ObyRidge(I,J,bi,bj)*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2386 |
SEAICE_GROWTH |
& * maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2389 |
SEAICE_GROWTH |
SIatmFW(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2390 |
SEAICE_GROWTH |
& EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2391 |
SEAICE_GROWTH |
& - PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2393 |
SEAICE_GROWTH |
& - RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2396 |
SEAICE_GROWTH |
& + a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2403 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2405 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2406 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2407 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2409 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2413 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2421 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2423 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2424 |
SEAICE_GROWTH |
& PRECIP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2425 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2426 |
SEAICE_GROWTH |
& *( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2428 |
SEAICE_GROWTH |
& + RUNOFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2431 |
SEAICE_GROWTH |
& - a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2455 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2458 |
SEAICE_GROWTH |
tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
2459 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
2462 |
SEAICE_GROWTH |
tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce |
|
./pkg/seaice/seaice_growth.F |
2463 |
SEAICE_GROWTH |
& + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
2489 |
SEAICE_GROWTH |
& HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2542 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2544 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2545 |
SEAICE_GROWTH |
& * d_HSNWbyRAIN(I,J)*SEAICE_rhoSnow*recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2546 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj)-AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
2553 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2555 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = maskC(I,J,kSurface,bi,bj) * |
|
./pkg/seaice/seaice_growth.F |
2556 |
SEAICE_GROWTH |
& a_FWbySublim(I,J) * SEAICE_rhoIce * recip_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
2562 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
2565 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2566 |
SEAICE_GROWTH |
& * (a_FWbySublim(I,J)-r_FWbySublim(I,J)) |
|
./pkg/seaice/seaice_growth.F |
2569 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2570 |
SEAICE_GROWTH |
& * r_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
2573 |
SEAICE_GROWTH |
tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2574 |
SEAICE_GROWTH |
& + r_FWbySublim(I,J)*convertHI2PRECIP |
|
./pkg/seaice/seaice_growth.F |
2575 |
SEAICE_GROWTH |
tmpscal2= ( a_FWbySublim(I,J)-r_FWbySublim(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2578 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = -maskC(I,J,kSurface,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2649 |
SEAICE_GROWTH |
& ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2652 |
SEAICE_GROWTH |
& HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
424 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
426 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
427 |
SEAICE_GROWTH |
a_QbyATM_open(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
428 |
SEAICE_GROWTH |
r_QbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
429 |
SEAICE_GROWTH |
r_QbyATM_open (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
431 |
SEAICE_GROWTH |
a_QSWbyATM_open (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
432 |
SEAICE_GROWTH |
a_QSWbyATM_cover (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
434 |
SEAICE_GROWTH |
a_QbyOCN (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
435 |
SEAICE_GROWTH |
r_QbyOCN (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
438 |
SEAICE_GROWTH |
d_AREAbyATM(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
439 |
SEAICE_GROWTH |
d_AREAbyICE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
440 |
SEAICE_GROWTH |
d_AREAbyOCN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
443 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
444 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
445 |
SEAICE_GROWTH |
d_HEFFbyFLOODING(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
447 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
448 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
450 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
451 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
452 |
SEAICE_GROWTH |
d_HSNWbyRAIN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
453 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
454 |
SEAICE_GROWTH |
r_FWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
455 |
SEAICE_GROWTH |
d_HEFFbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
456 |
SEAICE_GROWTH |
d_HSNWbySublim(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
458 |
SEAICE_GROWTH |
latentHeatFluxMax(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
460 |
SEAICE_GROWTH |
d_HFRWbyRAIN(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
461 |
SEAICE_GROWTH |
tmparr1(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
463 |
SEAICE_GROWTH |
greaseLayerThick(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
464 |
SEAICE_GROWTH |
d_HEFFbyGREASE(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
467 |
SEAICE_GROWTH |
ticeInMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
468 |
SEAICE_GROWTH |
ticeOutMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
469 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
470 |
SEAICE_GROWTH |
a_QSWbyATMmult_cover(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
471 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
473 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
476 |
SEAICE_GROWTH |
d_HEFFbySublim_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
477 |
SEAICE_GROWTH |
d_HSNWbySublim_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
478 |
SEAICE_GROWTH |
d_HEFFbyOCNonICE_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
479 |
SEAICE_GROWTH |
d_HSNWbyATMonSNW_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
480 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
481 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_cover_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
482 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
483 |
SEAICE_GROWTH |
d_HSNWbyRAIN_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
484 |
SEAICE_GROWTH |
d_HSNWbyOCNonSNW_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
485 |
SEAICE_GROWTH |
d_HEFFbyFLOODING_ITD(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
486 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
487 |
SEAICE_GROWTH |
r_FWbySublimMult(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
489 |
SEAICE_GROWTH |
latMeltFrac(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
490 |
SEAICE_GROWTH |
latMeltRate(I,J,IT) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
496 |
SEAICE_GROWTH |
DO J=1-oLy,sNy+oLy |
|
./pkg/seaice/seaice_growth.F |
498 |
SEAICE_GROWTH |
frWtrAtm(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
511 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
513 |
SEAICE_GROWTH |
HEFFpreTH(I,J)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
514 |
SEAICE_GROWTH |
HSNWpreTH(I,J)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
515 |
SEAICE_GROWTH |
AREApreTH(I,J)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
517 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
518 |
SEAICE_GROWTH |
DIAGarrayC(I,J) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
519 |
SEAICE_GROWTH |
DIAGarrayD(I,J) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
522 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,1)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
523 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,2)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
529 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
531 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
532 |
SEAICE_GROWTH |
HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
533 |
SEAICE_GROWTH |
AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
536 |
SEAICE_GROWTH |
IF (AREA(I,J,bi,bj) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
537 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
541 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=ONE |
|
./pkg/seaice/seaice_growth.F |
543 |
SEAICE_GROWTH |
areaFracFactor(I,J,IT)=ZERO |
|
./pkg/seaice/seaice_growth.F |
552 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
554 |
SEAICE_GROWTH |
SItrHEFF(I,J,bi,bj,iTr)=ZERO |
|
./pkg/seaice/seaice_growth.F |
559 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
561 |
SEAICE_GROWTH |
SItrAREA(I,J,bi,bj,3)=ZERO |
|
./pkg/seaice/seaice_growth.F |
592 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
594 |
SEAICE_GROWTH |
HEFFpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
595 |
SEAICE_GROWTH |
HSNWpreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
596 |
SEAICE_GROWTH |
AREApreTH(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
601 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
603 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
604 |
SEAICE_GROWTH |
HSNWITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
605 |
SEAICE_GROWTH |
AREAITDpreTH(I,J,IT) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
614 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
616 |
SEAICE_GROWTH |
AREAforAtmFW(I,J,bi,bj) = AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
631 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
633 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
635 |
SEAICE_GROWTH |
tmpscal1 = SQRT(AREAITDpreTH(I,J,IT) * AREAITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
638 |
SEAICE_GROWTH |
tmpscal2 = HEFFITDpreTH(I,J,IT) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
640 |
SEAICE_GROWTH |
heffActualMult(I,J,IT) = SQRT(tmpscal2 * tmpscal2 |
|
./pkg/seaice/seaice_growth.F |
643 |
SEAICE_GROWTH |
hsnowActualMult(I,J,IT) = HSNWITDpreTH(I,J,IT) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
645 |
SEAICE_GROWTH |
recip_heffActualMult(I,J,IT) = AREAITDpreTH(I,J,IT) / |
|
./pkg/seaice/seaice_growth.F |
646 |
SEAICE_GROWTH |
& sqrt(HEFFITDpreTH(I,J,IT) * HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
650 |
SEAICE_GROWTH |
heffActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
651 |
SEAICE_GROWTH |
hsnowActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
652 |
SEAICE_GROWTH |
recip_heffActualMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
658 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
660 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
662 |
SEAICE_GROWTH |
tmpscal1 = SQRT(AREApreTH(I,J)* AREApreTH(I,J) + area_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
664 |
SEAICE_GROWTH |
tmpscal2 = HEFFpreTH(I,J) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
666 |
SEAICE_GROWTH |
heffActual(I,J) = SQRT(tmpscal2 * tmpscal2 + hice_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
668 |
SEAICE_GROWTH |
hsnowActual(I,J) = HSNWpreTH(I,J) / tmpscal1 |
|
./pkg/seaice/seaice_growth.F |
670 |
SEAICE_GROWTH |
recip_heffActual(I,J) = AREApreTH(I,J) / |
|
./pkg/seaice/seaice_growth.F |
671 |
SEAICE_GROWTH |
& sqrt(HEFFpreTH(I,J)*HEFFpreTH(I,J) + hice_reg_sq) |
|
./pkg/seaice/seaice_growth.F |
674 |
SEAICE_GROWTH |
heffActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
675 |
SEAICE_GROWTH |
hsnowActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
676 |
SEAICE_GROWTH |
recip_heffActual(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
696 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
698 |
SEAICE_GROWTH |
IF (HEFFITDpreTH(I,J,IT) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
699 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = lhSublim*recip_deltaTtherm * |
|
./pkg/seaice/seaice_growth.F |
700 |
SEAICE_GROWTH |
& (HEFFITDpreTH(I,J,IT)*SEAICE_rhoIce + |
|
./pkg/seaice/seaice_growth.F |
701 |
SEAICE_GROWTH |
& HSNWITDpreTH(I,J,IT)*SEAICE_rhoSnow) |
|
./pkg/seaice/seaice_growth.F |
702 |
SEAICE_GROWTH |
& /AREAITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
704 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
710 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
712 |
SEAICE_GROWTH |
IF (HEFFpreTH(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
713 |
SEAICE_GROWTH |
latentHeatFluxMax(I,J) = lhSublim * recip_deltaTtherm * |
|
./pkg/seaice/seaice_growth.F |
714 |
SEAICE_GROWTH |
& (HEFFpreTH(I,J) * SEAICE_rhoIce + |
|
./pkg/seaice/seaice_growth.F |
715 |
SEAICE_GROWTH |
& HSNWpreTH(I,J) * SEAICE_rhoSnow)/AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
717 |
SEAICE_GROWTH |
latentHeatFluxMax(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
736 |
SEAICE_GROWTH |
UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
758 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
761 |
SEAICE_GROWTH |
& (uWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
765 |
SEAICE_GROWTH |
& +(vWind(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
770 |
SEAICE_GROWTH |
UG(I,J)=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
772 |
SEAICE_GROWTH |
UG(I,J)=SQRT(SPEED_SQ) |
|
./pkg/seaice/seaice_growth.F |
790 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
792 |
SEAICE_GROWTH |
ticeInMult(I,J,IT) = TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
793 |
SEAICE_GROWTH |
ticeOutMult(I,J,IT) = TICES(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
794 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ZERO |
|
./pkg/seaice/seaice_growth.F |
804 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
806 |
SEAICE_GROWTH |
heffActualMult(I,J,IT) = heffActual(I,J)*pFac |
|
./pkg/seaice/seaice_growth.F |
807 |
SEAICE_GROWTH |
hsnowActualMult(I,J,IT) = hsnowActual(I,J)*pFacSnow |
|
./pkg/seaice/seaice_growth.F |
809 |
SEAICE_GROWTH |
latentHeatFluxMaxMult(I,J,IT) = latentHeatFluxMax(I,J)*pFac |
|
./pkg/seaice/seaice_growth.F |
862 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
879 |
SEAICE_GROWTH |
TICES(I,J,IT,bi,bj) = ticeOutMult(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
884 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
885 |
SEAICE_GROWTH |
& + a_QbyATMmult_cover(I,J,IT)*areaFracFactor(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
886 |
SEAICE_GROWTH |
a_QSWbyATM_cover (I,J) = a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
887 |
SEAICE_GROWTH |
& + a_QSWbyATMmult_cover(I,J,IT)*areaFracFactor(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
888 |
SEAICE_GROWTH |
a_FWbySublim (I,J) = a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
889 |
SEAICE_GROWTH |
& + a_FWbySublimMult(I,J,IT)*areaFracFactor(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
891 |
SEAICE_GROWTH |
a_QbyATM_cover (I,J) = a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
892 |
SEAICE_GROWTH |
& + a_QbyATMmult_cover(I,J,IT)*SEAICE_PDF(IT) |
|
./pkg/seaice/seaice_growth.F |
893 |
SEAICE_GROWTH |
a_QSWbyATM_cover (I,J) = a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
894 |
SEAICE_GROWTH |
& + a_QSWbyATMmult_cover(I,J,IT)*SEAICE_PDF(IT) |
|
./pkg/seaice/seaice_growth.F |
895 |
SEAICE_GROWTH |
a_FWbySublim (I,J) = a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_growth.F |
896 |
SEAICE_GROWTH |
& + a_FWbySublimMult(I,J,IT)*SEAICE_PDF(IT) |
|
./pkg/seaice/seaice_growth.F |
904 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
907 |
SEAICE_GROWTH |
DIAGarrayA(I,J) = a_FWbySublim(I,J) * lhSublim |
|
./pkg/seaice/seaice_growth.F |
932 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
934 |
SEAICE_GROWTH |
a_QbyATMmult_cover(I,J,IT) = a_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
935 |
SEAICE_GROWTH |
& * convertQ2HI * AREAITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
936 |
SEAICE_GROWTH |
a_QSWbyATMmult_cover(I,J,IT) = a_QSWbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
937 |
SEAICE_GROWTH |
& * convertQ2HI * AREAITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
939 |
SEAICE_GROWTH |
r_QbyATMmult_cover(I,J,IT)=a_QbyATMmult_cover(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
943 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J,IT) = ZERO |
|
./pkg/seaice/seaice_growth.F |
945 |
SEAICE_GROWTH |
a_FWbySublimMult(I,J,IT) = SEAICE_deltaTtherm*recip_rhoIce |
|
./pkg/seaice/seaice_growth.F |
946 |
SEAICE_GROWTH |
& * a_FWbySublimMult(I,J,IT)*AREAITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
947 |
SEAICE_GROWTH |
r_FWbySublimMult(I,J,IT)=a_FWbySublimMult(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
951 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
953 |
SEAICE_GROWTH |
a_QbyATM_open(I,J) = a_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
954 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
955 |
SEAICE_GROWTH |
a_QSWbyATM_open(I,J) = a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
956 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
958 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=a_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
962 |
SEAICE_GROWTH |
DO J=1,sNy |
|
./pkg/seaice/seaice_growth.F |
964 |
SEAICE_GROWTH |
a_QbyATM_cover(I,J) = a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
965 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
966 |
SEAICE_GROWTH |
a_QSWbyATM_cover(I,J) = a_QSWbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
967 |
SEAICE_GROWTH |
& * convertQ2HI * AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
968 |
SEAICE_GROWTH |
a_QbyATM_open(I,J) = a_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
969 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
970 |
SEAICE_GROWTH |
a_QSWbyATM_open(I,J) = a_QSWbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
971 |
SEAICE_GROWTH |
& * convertQ2HI * ( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
973 |
SEAICE_GROWTH |
r_QbyATM_cover(I,J)=a_QbyATM_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
974 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=a_QbyATM_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
979 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = ZERO |
|
./pkg/seaice/seaice_growth.F |
981 |
SEAICE_GROWTH |
a_FWbySublim(I,J) = SEAICE_deltaTtherm*recip_rhoIce |
|
./pkg/seaice/seaice_growth.F |
982 |
SEAICE_GROWTH |
& * a_FWbySublim(I,J)*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
983 |
SEAICE_GROWTH |
r_FWbySublim(I,J)=a_FWbySublim(I,J) |
|
./pkg/seaice/seaice_init_varia.F |
111 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
112 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
120 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
121 |
SEAICE_INIT_VARIA |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
122 |
SEAICE_INIT_VARIA |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
127 |
SEAICE_INIT_VARIA |
k1AtZ(I,J,bi,bj) = _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
128 |
SEAICE_INIT_VARIA |
& * ( _dyC(I,J,bi,bj) - _dyC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
129 |
SEAICE_INIT_VARIA |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
134 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
135 |
SEAICE_INIT_VARIA |
& * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
136 |
SEAICE_INIT_VARIA |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
141 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
142 |
SEAICE_INIT_VARIA |
& * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
143 |
SEAICE_INIT_VARIA |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
150 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
151 |
SEAICE_INIT_VARIA |
k1AtU(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
152 |
SEAICE_INIT_VARIA |
k1AtV(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
153 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
154 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
155 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
167 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
168 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
169 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_varia.F |
177 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
178 |
SEAICE_INIT_VARIA |
& * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
179 |
SEAICE_INIT_VARIA |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
184 |
SEAICE_INIT_VARIA |
k1AtU(I,J,bi,bj) = _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
185 |
SEAICE_INIT_VARIA |
& * ( _dyF(I,J,bi,bj) - _dyF(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
186 |
SEAICE_INIT_VARIA |
& * _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
191 |
SEAICE_INIT_VARIA |
k1AtV(I,J,bi,bj) = _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
192 |
SEAICE_INIT_VARIA |
& * ( _dyU(I+1,J,bi,bj) - _dyU(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
193 |
SEAICE_INIT_VARIA |
& * _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
198 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
199 |
SEAICE_INIT_VARIA |
& * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
200 |
SEAICE_INIT_VARIA |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
205 |
SEAICE_INIT_VARIA |
k2AtU(I,J,bi,bj) = _recip_dxC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
206 |
SEAICE_INIT_VARIA |
& * ( _dxV(I,J+1,bi,bj) - _dxV(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
207 |
SEAICE_INIT_VARIA |
& * _recip_dyG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
212 |
SEAICE_INIT_VARIA |
k2AtV(I,J,bi,bj) = _recip_dxG(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
213 |
SEAICE_INIT_VARIA |
& * ( _dxF(I,J,bi,bj) - _dxF(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_init_varia.F |
214 |
SEAICE_INIT_VARIA |
& * _recip_dyC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
576 |
SEAICE_INIT_VARIA |
AREAITD(I,J,1,bi,bj) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
577 |
SEAICE_INIT_VARIA |
HEFFITD(I,J,1,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
578 |
SEAICE_INIT_VARIA |
HSNOWITD(I,J,1,bi,bj) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
579 |
SEAICE_INIT_VARIA |
opnWtrFrac(I,J,bi,bj) = 1. _d 0 - AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
580 |
SEAICE_INIT_VARIA |
fw2ObyRidge(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
680 |
SEAICE_INIT_VARIA |
ZMAX(I,J,bi,bj) = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
96 |
SEAICE_INIT_VARIA |
k1AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
97 |
SEAICE_INIT_VARIA |
k1AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
98 |
SEAICE_INIT_VARIA |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
99 |
SEAICE_INIT_VARIA |
k2AtZ(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_jacvec.F |
157 |
SEAICE_JACVEC |
DO J=1-Oly,sNy+Oly |
|
./pkg/seaice/seaice_jacvec.F |
159 |
SEAICE_JACVEC |
utp(I,J,bi,bj) = uIce(I,J,bi,bj) + epsilon * duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
160 |
SEAICE_JACVEC |
vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jacvec.F |
177 |
SEAICE_JACVEC |
DO J = 1, sNy |
|
./pkg/seaice/seaice_jacvec.F |
178 |
SEAICE_JACVEC |
duIce(I,J,bi,bj) = |
|
./pkg/seaice/seaice_jacvec.F |
179 |
SEAICE_JACVEC |
& (uIceResP(I,J,bi,bj)-uIceRes(I,J,bi,bj))*reps |
|
./pkg/seaice/seaice_jacvec.F |
180 |
SEAICE_JACVEC |
dvIce(I,J,bi,bj) = |
|
./pkg/seaice/seaice_jacvec.F |
181 |
SEAICE_JACVEC |
& (vIceResP(I,J,bi,bj)-vIceRes(I,J,bi,bj))*reps |
|
./pkg/seaice/seaice_jfnk.F |
148 |
SEAICE_JFNK |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_jfnk.F |
150 |
SEAICE_JFNK |
uIceRes(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
151 |
SEAICE_JFNK |
vIceRes(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
152 |
SEAICE_JFNK |
duIce (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
153 |
SEAICE_JFNK |
dvIce (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
157 |
SEAICE_JFNK |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_jfnk.F |
159 |
SEAICE_JFNK |
duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_jfnk.F |
160 |
SEAICE_JFNK |
& + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
161 |
SEAICE_JFNK |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_jfnk.F |
162 |
SEAICE_JFNK |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_jfnk.F |
163 |
SEAICE_JFNK |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
164 |
SEAICE_JFNK |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
172 |
SEAICE_JFNK |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_jfnk.F |
174 |
SEAICE_JFNK |
FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
175 |
SEAICE_JFNK |
& + seaiceMassU(I,J,bi,bj)*duIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_jfnk.F |
176 |
SEAICE_JFNK |
FORCEY(I,J,bi,bj) = FORCEY0(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
177 |
SEAICE_JFNK |
& + seaiceMassV(I,J,bi,bj)*dvIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_jfnk.F |
200 |
SEAICE_JFNK |
zetaPre(I,J,bi,bj) = zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
201 |
SEAICE_JFNK |
zetaZPre(I,J,bi,bj)= zetaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
202 |
SEAICE_JFNK |
etaPre(I,J,bi,bj) = eta(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
203 |
SEAICE_JFNK |
etaZPre(I,J,bi,bj) = etaZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
204 |
SEAICE_JFNK |
dwatPre(I,J,bi,bj) = DWATN(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
343 |
SEAICE_JFNK |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_jfnk.F |
345 |
SEAICE_JFNK |
duIce(I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
346 |
SEAICE_JFNK |
dvIce(I,J,bi,bj)= 0. _d 0 |
|
./pkg/seaice/seaice_jfnk.F |
550 |
SEAICE_JFNK_UPDATE |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_jfnk.F |
552 |
SEAICE_JFNK_UPDATE |
uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+facLS*duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_jfnk.F |
553 |
SEAICE_JFNK_UPDATE |
vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+facLS*dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
148 |
SEAICE_KRYLOV |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_krylov.F |
150 |
SEAICE_KRYLOV |
uIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
151 |
SEAICE_KRYLOV |
vIceLHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
152 |
SEAICE_KRYLOV |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
153 |
SEAICE_KRYLOV |
vIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
157 |
SEAICE_KRYLOV |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_krylov.F |
159 |
SEAICE_KRYLOV |
duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_krylov.F |
160 |
SEAICE_KRYLOV |
& + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_krylov.F |
161 |
SEAICE_KRYLOV |
dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha |
|
./pkg/seaice/seaice_krylov.F |
162 |
SEAICE_KRYLOV |
& + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac |
|
./pkg/seaice/seaice_krylov.F |
163 |
SEAICE_KRYLOV |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
164 |
SEAICE_KRYLOV |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
165 |
SEAICE_KRYLOV |
uIceLin(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
166 |
SEAICE_KRYLOV |
vIceLin(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
172 |
SEAICE_KRYLOV |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_krylov.F |
174 |
SEAICE_KRYLOV |
FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
175 |
SEAICE_KRYLOV |
& + seaiceMassU(I,J,bi,bj)*duIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_krylov.F |
176 |
SEAICE_KRYLOV |
FORCEY(I,J,bi,bj) = FORCEY0(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
177 |
SEAICE_KRYLOV |
& + seaiceMassV(I,J,bi,bj)*dvIcNm1(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_krylov.F |
193 |
SEAICE_KRYLOV |
uIceLin(I,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_krylov.F |
194 |
SEAICE_KRYLOV |
& (uIce(I,J,bi,bj) + uIceLin(I,J,bi,bj)) |
|
./pkg/seaice/seaice_krylov.F |
195 |
SEAICE_KRYLOV |
vIceLin(I,J,bi,bj) = 0.5 _d 0 * |
|
./pkg/seaice/seaice_krylov.F |
196 |
SEAICE_KRYLOV |
& (vIce(I,J,bi,bj) + vIceLin(I,J,bi,bj)) |
|
./pkg/seaice/seaice_krylov.F |
239 |
SEAICE_KRYLOV |
DO J=1,sNy |
|
./pkg/seaice/seaice_krylov.F |
241 |
SEAICE_KRYLOV |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
242 |
SEAICE_KRYLOV |
vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - vIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1247 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1249 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1250 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1254 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1256 |
SEAICE_LSR_CALC_COEFFS |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1257 |
SEAICE_LSR_CALC_COEFFS |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1264 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1267 |
SEAICE_LSR_CALC_COEFFS |
UXX(I,J) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1268 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1270 |
SEAICE_LSR_CALC_COEFFS |
UXM(I,J) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1271 |
SEAICE_LSR_CALC_COEFFS |
& * k1AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1274 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax+1 |
|
./pkg/seaice/seaice_lsr.F |
1277 |
SEAICE_LSR_CALC_COEFFS |
UYY(I,J) = _dxV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1278 |
SEAICE_LSR_CALC_COEFFS |
& ( etaZloc(I,J,bi,bj) + strImpCplFac*zetaZloc(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1279 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1281 |
SEAICE_LSR_CALC_COEFFS |
UYM(I,J) = _dxV(I,J,bi,bj) * etaZloc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1282 |
SEAICE_LSR_CALC_COEFFS |
& * k2AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1285 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1288 |
SEAICE_LSR_CALC_COEFFS |
VXX(I,J) = _dyU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1289 |
SEAICE_LSR_CALC_COEFFS |
& ( etaZloc(I,J,bi,bj) + strImpCplFac*zetaZloc(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1290 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1292 |
SEAICE_LSR_CALC_COEFFS |
VXM(I,J) = _dyU(I,J,bi,bj) * etaZloc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1293 |
SEAICE_LSR_CALC_COEFFS |
& * k1AtZ(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1296 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin-1,jMax |
|
./pkg/seaice/seaice_lsr.F |
1299 |
SEAICE_LSR_CALC_COEFFS |
VYY(I,J) = _dxF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1300 |
SEAICE_LSR_CALC_COEFFS |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1302 |
SEAICE_LSR_CALC_COEFFS |
VYM(I,J) = _dxF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1303 |
SEAICE_LSR_CALC_COEFFS |
& * k2AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1312 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1315 |
SEAICE_LSR_CALC_COEFFS |
AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1316 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1318 |
SEAICE_LSR_CALC_COEFFS |
CU(I,J,bi,bj)= ( - UXX(I ,J) - UXM(I ,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1319 |
SEAICE_LSR_CALC_COEFFS |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1321 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1322 |
SEAICE_LSR_CALC_COEFFS |
& ( UXX(I-1,J) + UXX(I,J) + UYY(I,J+1) + UYY(I,J) |
|
./pkg/seaice/seaice_lsr.F |
1323 |
SEAICE_LSR_CALC_COEFFS |
& + UXM(I-1,J) - UXM(I,J) + UYM(I,J+1) - UYM(I,J) |
|
./pkg/seaice/seaice_lsr.F |
1324 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1326 |
SEAICE_LSR_CALC_COEFFS |
uRt1(I,J,bi,bj)= UYY(I,J ) + UYM(I,J ) |
|
./pkg/seaice/seaice_lsr.F |
1328 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj)= UYY(I,J+1) - UYM(I,J+1) |
|
./pkg/seaice/seaice_lsr.F |
1335 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1337 |
SEAICE_LSR_CALC_COEFFS |
hFacM = seaiceMaskU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1338 |
SEAICE_LSR_CALC_COEFFS |
hFacP = seaiceMaskU(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1342 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1343 |
SEAICE_LSR_CALC_COEFFS |
& ( ( 1. _d 0 - hFacM ) * ( UYY(I ,J ) + UYM(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
1344 |
SEAICE_LSR_CALC_COEFFS |
& + ( 1. _d 0 - hFacP ) * ( UYY(I ,J+1) - UYM(I ,J+1) ) ) |
|
./pkg/seaice/seaice_lsr.F |
1346 |
SEAICE_LSR_CALC_COEFFS |
uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1347 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1352 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1354 |
SEAICE_LSR_CALC_COEFFS |
AU(I,J,bi,bj) = AU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1355 |
SEAICE_LSR_CALC_COEFFS |
CU(I,J,bi,bj) = CU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1359 |
SEAICE_LSR_CALC_COEFFS |
BU(I,J,bi,bj) = BU(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1360 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1361 |
SEAICE_LSR_CALC_COEFFS |
& ( bdfAlphaOverDt*seaiceMassU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1362 |
SEAICE_LSR_CALC_COEFFS |
& + 0.5 _d 0 * ( dragSym(I, J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1363 |
SEAICE_LSR_CALC_COEFFS |
& + dragSym(I-1,J,bi,bj) )*areaW(I,J) |
|
./pkg/seaice/seaice_lsr.F |
1365 |
SEAICE_LSR_CALC_COEFFS |
uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1366 |
SEAICE_LSR_CALC_COEFFS |
uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * recip_rAw(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1375 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1378 |
SEAICE_LSR_CALC_COEFFS |
AV(I,J,bi,bj)=( - VYY(I,J-1) + VYM(I,J-1) |
|
./pkg/seaice/seaice_lsr.F |
1379 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1381 |
SEAICE_LSR_CALC_COEFFS |
CV(I,J,bi,bj)=( - VYY(I,J ) - VYM(I,J ) |
|
./pkg/seaice/seaice_lsr.F |
1382 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1384 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) + |
|
./pkg/seaice/seaice_lsr.F |
1385 |
SEAICE_LSR_CALC_COEFFS |
& ( VXX(I,J) + VXX(I+1,J) + VYY(I,J) + VYY(I,J-1) |
|
./pkg/seaice/seaice_lsr.F |
1386 |
SEAICE_LSR_CALC_COEFFS |
& - VXM(I,J) + VXM(I+1,J) - VYM(I,J) + VYM(I,J-1) |
|
./pkg/seaice/seaice_lsr.F |
1387 |
SEAICE_LSR_CALC_COEFFS |
& ) * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1389 |
SEAICE_LSR_CALC_COEFFS |
vRt1(I,J,bi,bj) = VXX(I ,J) + VXM(I ,J) |
|
./pkg/seaice/seaice_lsr.F |
1391 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = VXX(I+1,J) - VXM(I+1,J) |
|
./pkg/seaice/seaice_lsr.F |
1398 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1405 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1406 |
SEAICE_LSR_CALC_COEFFS |
& ( ( 1. _d 0 - hFacM ) * ( VXX(I ,J) + VXM(I ,J) ) |
|
./pkg/seaice/seaice_lsr.F |
1407 |
SEAICE_LSR_CALC_COEFFS |
& + ( 1. _d 0 - hFacP ) * ( VXX(I+1,J) - VXM(I+1,J) ) ) |
|
./pkg/seaice/seaice_lsr.F |
1409 |
SEAICE_LSR_CALC_COEFFS |
vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * hFacM |
|
./pkg/seaice/seaice_lsr.F |
1410 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * hFacP |
|
./pkg/seaice/seaice_lsr.F |
1415 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1417 |
SEAICE_LSR_CALC_COEFFS |
AV(I,J,bi,bj) = AV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1418 |
SEAICE_LSR_CALC_COEFFS |
CV(I,J,bi,bj) = CV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1422 |
SEAICE_LSR_CALC_COEFFS |
BV(I,J,bi,bj) = BV(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1423 |
SEAICE_LSR_CALC_COEFFS |
& + seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1424 |
SEAICE_LSR_CALC_COEFFS |
& ( bdfAlphaOverDt*seaiceMassV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1425 |
SEAICE_LSR_CALC_COEFFS |
& + 0.5 _d 0 * ( dragSym(I,J, bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1426 |
SEAICE_LSR_CALC_COEFFS |
& + dragSym(I,J-1,bi,bj) )*areaS(I,J) |
|
./pkg/seaice/seaice_lsr.F |
1428 |
SEAICE_LSR_CALC_COEFFS |
vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1429 |
SEAICE_LSR_CALC_COEFFS |
vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * recip_rAs(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1442 |
SEAICE_LSR_CALC_COEFFS |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1444 |
SEAICE_LSR_CALC_COEFFS |
IF (BU(I,J,bi,bj).EQ.0 _d 0) BU(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1445 |
SEAICE_LSR_CALC_COEFFS |
IF (BV(I,J,bi,bj).EQ.0 _d 0) BV(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1501 |
SEAICE_LSR_RHSU |
INTEGER I,J |
|
./pkg/seaice/seaice_lsr.F |
1509 |
SEAICE_LSR_RHSU |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_lsr.F |
1511 |
SEAICE_LSR_RHSU |
sig11(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1512 |
SEAICE_LSR_RHSU |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1516 |
SEAICE_LSR_RHSU |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1518 |
SEAICE_LSR_RHSU |
sig11(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1519 |
SEAICE_LSR_RHSU |
& * ( vIceC(I,J+1,bi,bj) - vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1520 |
SEAICE_LSR_RHSU |
& * _recip_dyF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1521 |
SEAICE_LSR_RHSU |
& + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1522 |
SEAICE_LSR_RHSU |
& * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1523 |
SEAICE_LSR_RHSU |
& - 0.5 _d 0 * pressLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1527 |
SEAICE_LSR_RHSU |
DO J=jMin,jMax+1 |
|
./pkg/seaice/seaice_lsr.F |
1529 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1530 |
SEAICE_LSR_RHSU |
sig12(I,J) = etaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1531 |
SEAICE_LSR_RHSU |
& ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1532 |
SEAICE_LSR_RHSU |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1533 |
SEAICE_LSR_RHSU |
& - k1AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1534 |
SEAICE_LSR_RHSU |
& * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1537 |
SEAICE_LSR_RHSU |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1538 |
SEAICE_LSR_RHSU |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1542 |
SEAICE_LSR_RHSU |
& + etaZloc(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1543 |
SEAICE_LSR_RHSU |
& * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1552 |
SEAICE_LSR_RHSU |
DO J=jMin,jMax+1 |
|
./pkg/seaice/seaice_lsr.F |
1554 |
SEAICE_LSR_RHSU |
hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1555 |
SEAICE_LSR_RHSU |
sig12(I,J) = sig12(I,J) - zetaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1556 |
SEAICE_LSR_RHSU |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1557 |
SEAICE_LSR_RHSU |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1560 |
SEAICE_LSR_RHSU |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1561 |
SEAICE_LSR_RHSU |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1565 |
SEAICE_LSR_RHSU |
& - zetaZloc(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1566 |
SEAICE_LSR_RHSU |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1572 |
SEAICE_LSR_RHSU |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1575 |
SEAICE_LSR_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1576 |
SEAICE_LSR_RHSU |
& + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1577 |
SEAICE_LSR_RHSU |
& ( _dyF(I ,J ,bi,bj)*sig11(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1578 |
SEAICE_LSR_RHSU |
& - _dyF(I-1,J ,bi,bj)*sig11(I-1,J ) |
|
./pkg/seaice/seaice_lsr.F |
1579 |
SEAICE_LSR_RHSU |
& + _dxV(I ,J+1,bi,bj)*sig12(I ,J+1) |
|
./pkg/seaice/seaice_lsr.F |
1580 |
SEAICE_LSR_RHSU |
& - _dxV(I ,J ,bi,bj)*sig12(I ,J ) ) |
|
./pkg/seaice/seaice_lsr.F |
1632 |
SEAICE_LSR_RHSV |
INTEGER I,J |
|
./pkg/seaice/seaice_lsr.F |
1640 |
SEAICE_LSR_RHSV |
DO J = 1-Oly,sNy+Oly |
|
./pkg/seaice/seaice_lsr.F |
1642 |
SEAICE_LSR_RHSV |
sig22(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1643 |
SEAICE_LSR_RHSV |
sig12(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1648 |
SEAICE_LSR_RHSV |
DO J=jMin-1,jMax |
|
./pkg/seaice/seaice_lsr.F |
1650 |
SEAICE_LSR_RHSV |
sig22(I,J) = zetaMinusEta(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1651 |
SEAICE_LSR_RHSV |
& * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1652 |
SEAICE_LSR_RHSV |
& * _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1653 |
SEAICE_LSR_RHSV |
& + etaPlusZeta(I,J,bi,bj) * k1AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1654 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1655 |
SEAICE_LSR_RHSV |
& - 0.5 _d 0 * pressLoc(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1659 |
SEAICE_LSR_RHSV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1662 |
SEAICE_LSR_RHSV |
sig12(I,J) = etaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1663 |
SEAICE_LSR_RHSV |
& ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1664 |
SEAICE_LSR_RHSV |
& * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1665 |
SEAICE_LSR_RHSV |
& - k2AtZ(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1666 |
SEAICE_LSR_RHSV |
& * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1669 |
SEAICE_LSR_RHSV |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1670 |
SEAICE_LSR_RHSV |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1674 |
SEAICE_LSR_RHSV |
& + etaZloc(I,J,bi,bj) * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1675 |
SEAICE_LSR_RHSV |
& * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1684 |
SEAICE_LSR_RHSV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1687 |
SEAICE_LSR_RHSV |
sig12(I,J) = sig12(I,J) - zetaZloc(I,J,bi,bj) * ( |
|
./pkg/seaice/seaice_lsr.F |
1688 |
SEAICE_LSR_RHSV |
& ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1689 |
SEAICE_LSR_RHSV |
& * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1692 |
SEAICE_LSR_RHSV |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1693 |
SEAICE_LSR_RHSV |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1697 |
SEAICE_LSR_RHSV |
& - zetaZloc(I,J,bi,bj) * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1698 |
SEAICE_LSR_RHSV |
& * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
1704 |
SEAICE_LSR_RHSV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1707 |
SEAICE_LSR_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1708 |
SEAICE_LSR_RHSV |
& + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) * |
|
./pkg/seaice/seaice_lsr.F |
1709 |
SEAICE_LSR_RHSV |
& ( _dyU(I+1,J ,bi,bj) * sig12(I+1,J ) |
|
./pkg/seaice/seaice_lsr.F |
1710 |
SEAICE_LSR_RHSV |
& - _dyU(I ,J ,bi,bj) * sig12(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1711 |
SEAICE_LSR_RHSV |
& + _dxF(I ,J ,bi,bj) * sig22(I ,J ) |
|
./pkg/seaice/seaice_lsr.F |
1712 |
SEAICE_LSR_RHSV |
& - _dxF(I ,J-1,bi,bj) * sig22(I ,J-1) ) |
|
./pkg/seaice/seaice_lsr.F |
1771 |
SEAICE_LSR_TRIDIAGU |
INTEGER I,J,IM |
|
./pkg/seaice/seaice_lsr.F |
1784 |
SEAICE_LSR_TRIDIAGU |
DO J = 1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_lsr.F |
1786 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1787 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1796 |
SEAICE_LSR_TRIDIAGU |
DO J=jMinLoc,jMax,jStep |
|
./pkg/seaice/seaice_lsr.F |
1799 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1800 |
SEAICE_LSR_TRIDIAGU |
IF (I.EQ.iMax) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1802 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1804 |
SEAICE_LSR_TRIDIAGU |
& + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1805 |
SEAICE_LSR_TRIDIAGU |
& + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1806 |
SEAICE_LSR_TRIDIAGU |
URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1810 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J)=CU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1812 |
SEAICE_LSR_TRIDIAGU |
CUU(iMin,J)=CUU(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1813 |
SEAICE_LSR_TRIDIAGU |
URT(iMin,J)=URT(iMin,J)/BU(iMin,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1820 |
SEAICE_LSR_TRIDIAGU |
DO J=jMinLoc,jMax,jStep |
|
./pkg/seaice/seaice_lsr.F |
1826 |
SEAICE_LSR_TRIDIAGU |
bet = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J) |
|
./pkg/seaice/seaice_lsr.F |
1827 |
SEAICE_LSR_TRIDIAGU |
CUU(I,J) = CUU(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1828 |
SEAICE_LSR_TRIDIAGU |
URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet |
|
./pkg/seaice/seaice_lsr.F |
1835 |
SEAICE_LSR_TRIDIAGU |
DO J=jMinLoc,jMax,jStep |
|
./pkg/seaice/seaice_lsr.F |
1841 |
SEAICE_LSR_TRIDIAGU |
URT(IM,J)=URT(IM,J)-CUU(IM,J)*URT(IM+1,J) |
|
./pkg/seaice/seaice_lsr.F |
1850 |
SEAICE_LSR_TRIDIAGU |
DO J=jMinLoc,jMax,jStep |
|
./pkg/seaice/seaice_lsr.F |
1853 |
SEAICE_LSR_TRIDIAGU |
uIce(I,J,bi,bj)=uTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1854 |
SEAICE_LSR_TRIDIAGU |
& +WFAU*(URT(I,J)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1916 |
SEAICE_LSR_TRIDIAGV |
INTEGER I,J,JM |
|
./pkg/seaice/seaice_lsr.F |
1929 |
SEAICE_LSR_TRIDIAGV |
DO J = 1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_lsr.F |
1931 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1932 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
1942 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1946 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
1949 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMin) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1950 |
SEAICE_LSR_TRIDIAGV |
IF (J.EQ.jMax) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1952 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1954 |
SEAICE_LSR_TRIDIAGV |
& + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1955 |
SEAICE_LSR_TRIDIAGV |
& + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1956 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1959 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J)=CV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1971 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin+1,jMax |
|
./pkg/seaice/seaice_lsr.F |
1972 |
SEAICE_LSR_TRIDIAGV |
JM=J-1 |
|
./pkg/seaice/seaice_lsr.F |
1976 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin+1,jMax |
|
./pkg/seaice/seaice_lsr.F |
1977 |
SEAICE_LSR_TRIDIAGV |
JM=J-1 |
|
./pkg/seaice/seaice_lsr.F |
1979 |
SEAICE_LSR_TRIDIAGV |
bet = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM) |
|
./pkg/seaice/seaice_lsr.F |
1980 |
SEAICE_LSR_TRIDIAGV |
CVV(I,J) = CVV(I,J)/bet |
|
./pkg/seaice/seaice_lsr.F |
1981 |
SEAICE_LSR_TRIDIAGV |
VRT(I,J) = (VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))/bet |
|
./pkg/seaice/seaice_lsr.F |
1987 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin,jMax-1 |
|
./pkg/seaice/seaice_lsr.F |
1988 |
SEAICE_LSR_TRIDIAGV |
JM=sNy-J |
|
./pkg/seaice/seaice_lsr.F |
1992 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin,jMax-1 |
|
./pkg/seaice/seaice_lsr.F |
1993 |
SEAICE_LSR_TRIDIAGV |
JM=sNy-J |
|
./pkg/seaice/seaice_lsr.F |
2001 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
2004 |
SEAICE_LSR_TRIDIAGV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
2006 |
SEAICE_LSR_TRIDIAGV |
vIce(I,J,bi,bj)=vTmp(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
2007 |
SEAICE_LSR_TRIDIAGV |
& +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
204 |
SEAICE_LSR |
areaW(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
205 |
SEAICE_LSR |
areaS(I,J,bi,bj) = 1. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
209 |
SEAICE_LSR |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
211 |
SEAICE_LSR |
areaW(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
212 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
213 |
SEAICE_LSR |
areaS(I,J,bi,bj) = |
|
./pkg/seaice/seaice_lsr.F |
214 |
SEAICE_LSR |
& 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
277 |
SEAICE_LSR |
uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
278 |
SEAICE_LSR |
vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
279 |
SEAICE_LSR |
uIceC (I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
280 |
SEAICE_LSR |
vIceC (I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
291 |
SEAICE_LSR |
uIce (I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
292 |
SEAICE_LSR |
vIce (I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
293 |
SEAICE_LSR |
uIceC(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
294 |
SEAICE_LSR |
vIceC(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
306 |
SEAICE_LSR |
uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
307 |
SEAICE_LSR |
vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
354 |
SEAICE_LSR |
DO J=jMin-1,jMax |
|
./pkg/seaice/seaice_lsr.F |
356 |
SEAICE_LSR |
etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
357 |
SEAICE_LSR |
zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
360 |
SEAICE_LSR |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_lsr.F |
362 |
SEAICE_LSR |
dragSym(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
364 |
SEAICE_LSR |
& +CbotC(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
376 |
SEAICE_LSR |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
380 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
381 |
SEAICE_LSR |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
383 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
384 |
SEAICE_LSR |
& ( DWATN(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
386 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
387 |
SEAICE_LSR |
& + DWATN(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
388 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
389 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
390 |
SEAICE_LSR |
& ) ) * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
391 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+ |
|
./pkg/seaice/seaice_lsr.F |
392 |
SEAICE_LSR |
& ( 0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) * |
|
./pkg/seaice/seaice_lsr.F |
393 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
394 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
395 |
SEAICE_LSR |
& ( DWATN(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
398 |
SEAICE_LSR |
& + DWATN(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
399 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
400 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
401 |
SEAICE_LSR |
& ) ) * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
407 |
SEAICE_LSR |
FORCEX(I,J,bi,bj) = FORCEX(I,J,bi,bj) + HALF* |
|
./pkg/seaice/seaice_lsr.F |
408 |
SEAICE_LSR |
& ( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
410 |
SEAICE_LSR |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
412 |
SEAICE_LSR |
FORCEY(I,J,bi,bj) = FORCEY(I,J,bi,bj) - HALF* |
|
./pkg/seaice/seaice_lsr.F |
413 |
SEAICE_LSR |
& ( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
415 |
SEAICE_LSR |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
422 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
423 |
SEAICE_LSR |
& +seaiceMassU(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
425 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
426 |
SEAICE_LSR |
& +seaiceMassV(I,J,bi,bj)*recip_deltaT |
|
./pkg/seaice/seaice_lsr.F |
428 |
SEAICE_LSR |
FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
429 |
SEAICE_LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
438 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = FORCEX(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
451 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = FORCEY(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
462 |
SEAICE_LSR |
DO J=1-Oly,sNy+Oly |
|
./pkg/seaice/seaice_lsr.F |
464 |
SEAICE_LSR |
gUmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
465 |
SEAICE_LSR |
gVmom(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
473 |
SEAICE_LSR |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
475 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) + gUmom(I,J) |
|
./pkg/seaice/seaice_lsr.F |
476 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) + gVmom(I,J) |
|
./pkg/seaice/seaice_lsr.F |
500 |
SEAICE_LSR |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_lsr.F |
503 |
SEAICE_LSR |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
504 |
SEAICE_LSR |
BU(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_lsr.F |
505 |
SEAICE_LSR |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
506 |
SEAICE_LSR |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
507 |
SEAICE_LSR |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
508 |
SEAICE_LSR |
rhsU(I,J,bi,bj) = uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
511 |
SEAICE_LSR |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
512 |
SEAICE_LSR |
BV(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_lsr.F |
513 |
SEAICE_LSR |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
514 |
SEAICE_LSR |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
515 |
SEAICE_LSR |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_lsr.F |
516 |
SEAICE_LSR |
rhsV(I,J,bi,bj) = vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
714 |
SEAICE_LSR |
& + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
715 |
SEAICE_LSR |
& + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
778 |
SEAICE_LSR |
uTmp(I,J,bi,bj)=uIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
779 |
SEAICE_LSR |
vTmp(I,J,bi,bj)=vIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
811 |
SEAICE_LSR |
DO J=1,sNy |
|
./pkg/seaice/seaice_lsr.F |
813 |
SEAICE_LSR |
UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
814 |
SEAICE_LSR |
& * seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
836 |
SEAICE_LSR |
DO J=1,sNy |
|
./pkg/seaice/seaice_lsr.F |
838 |
SEAICE_LSR |
UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
839 |
SEAICE_LSR |
& * seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
923 |
SEAICE_LSR |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_lsr.F |
925 |
SEAICE_LSR |
uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
926 |
SEAICE_LSR |
vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& + DWATN(I-1,J,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
104 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
106 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
109 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I,J ,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
SEAICE_OCEAN_STRESS |
& + DWATN(I,J-1,bi,bj) * |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
115 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
117 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
119 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
121 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
122 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc |
|
./pkg/seaice/seaice_ocean_stress.F |
61 |
SEAICE_OCEAN_STRESS |
DO J=1,sNy |
|
./pkg/seaice/seaice_ocean_stress.F |
65 |
SEAICE_OCEAN_STRESS |
areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
69 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceX(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
73 |
SEAICE_OCEAN_STRESS |
DO J=1,sNy |
|
./pkg/seaice/seaice_ocean_stress.F |
75 |
SEAICE_OCEAN_STRESS |
areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
77 |
SEAICE_OCEAN_STRESS |
fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
78 |
SEAICE_OCEAN_STRESS |
& + areaS*tauy(I,J,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
79 |
SEAICE_OCEAN_STRESS |
& + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor |
|
./pkg/seaice/seaice_ocean_stress.F |
95 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
98 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& ( DWATN(I ,J,bi,bj) * |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
101 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0.25 _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
103 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
107 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0. |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
109 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0.25 _d 0 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
111 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
114 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj) = CwatC(I,J,bi,bj) * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
89 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
96 |
SEAICE_OCEANDRAG_COEFFS |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
98 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=0. |
|
./pkg/seaice/seaice_preconditioner.F |
154 |
SEAICE_PRECONDITIONER |
rhsU (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
155 |
SEAICE_PRECONDITIONER |
rhsV (I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
156 |
SEAICE_PRECONDITIONER |
rhsU0(I,J,bi,bj) = duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
157 |
SEAICE_PRECONDITIONER |
rhsV0(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
159 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
160 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
162 |
SEAICE_PRECONDITIONER |
dragSym(I,J,bi,bj) = dwatPre(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_preconditioner.F |
172 |
SEAICE_PRECONDITIONER |
DO J=jMin-1,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
174 |
SEAICE_PRECONDITIONER |
etaPlusZeta (I,J,bi,bj)= etaPre(I,J,bi,bj)+zetaPre(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
175 |
SEAICE_PRECONDITIONER |
zetaMinusEta(I,J,bi,bj)=zetaPre(I,J,bi,bj)- etaPre(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
193 |
SEAICE_PRECONDITIONER |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
196 |
SEAICE_PRECONDITIONER |
AU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
197 |
SEAICE_PRECONDITIONER |
BU(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_preconditioner.F |
198 |
SEAICE_PRECONDITIONER |
CU(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
199 |
SEAICE_PRECONDITIONER |
uRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
200 |
SEAICE_PRECONDITIONER |
uRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
203 |
SEAICE_PRECONDITIONER |
AV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
204 |
SEAICE_PRECONDITIONER |
BV(I,J,bi,bj) = ONE |
|
./pkg/seaice/seaice_preconditioner.F |
205 |
SEAICE_PRECONDITIONER |
CV(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
206 |
SEAICE_PRECONDITIONER |
vRt1(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
207 |
SEAICE_PRECONDITIONER |
vRt2(I,J,bi,bj) = ZERO |
|
./pkg/seaice/seaice_preconditioner.F |
237 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = rhsU0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
238 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
254 |
SEAICE_PRECONDITIONER |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
257 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
260 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
288 |
SEAICE_PRECONDITIONER |
uTmp(I,J,bi,bj)=duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
289 |
SEAICE_PRECONDITIONER |
vTmp(I,J,bi,bj)=dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
296 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = rhsU0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
298 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
318 |
SEAICE_PRECONDITIONER |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
321 |
SEAICE_PRECONDITIONER |
rhsU(I,J,bi,bj) = duIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
325 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
349 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
360 |
SEAICE_PRECONDITIONER |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
363 |
SEAICE_PRECONDITIONER |
rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
420 |
SEAICE_PRECONDITIONER |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_preconditioner.F |
422 |
SEAICE_PRECONDITIONER |
duIce(I,J,bi,bj)=duIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
423 |
SEAICE_PRECONDITIONER |
dvIce(I,J,bi,bj)=dvIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
479 |
SEAICE_PRECOND_RHSU |
INTEGER I,J,K |
|
./pkg/seaice/seaice_preconditioner.F |
486 |
SEAICE_PRECOND_RHSU |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_preconditioner.F |
488 |
SEAICE_PRECOND_RHSU |
zeros(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
500 |
SEAICE_PRECOND_RHSU |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
502 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I-1,J,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
506 |
SEAICE_PRECOND_RHSU |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
508 |
SEAICE_PRECOND_RHSU |
areaW(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
512 |
SEAICE_PRECOND_RHSU |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
514 |
SEAICE_PRECOND_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
515 |
SEAICE_PRECOND_RHSU |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
516 |
SEAICE_PRECOND_RHSU |
& ( dwatPre(I ,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
517 |
SEAICE_PRECOND_RHSU |
& (vVel(I ,J ,k,bi,bj)-vIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
518 |
SEAICE_PRECOND_RHSU |
& +vVel(I ,J+1,k,bi,bj)-vIceLoc(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
519 |
SEAICE_PRECOND_RHSU |
& + dwatPre(I-1,J,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
520 |
SEAICE_PRECOND_RHSU |
& (vVel(I-1,J ,k,bi,bj)-vIceLoc(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
521 |
SEAICE_PRECOND_RHSU |
& +vVel(I-1,J+1,k,bi,bj)-vIceLoc(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
522 |
SEAICE_PRECOND_RHSU |
& ) * fricFac * areaW(I,J) |
|
./pkg/seaice/seaice_preconditioner.F |
524 |
SEAICE_PRECOND_RHSU |
rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) + 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
525 |
SEAICE_PRECOND_RHSU |
& ( seaiceMassC(I ,J,bi,bj) * _fCori(I ,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
527 |
SEAICE_PRECOND_RHSU |
& + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
584 |
SEAICE_PRECOND_RHSV |
INTEGER I,J,K |
|
./pkg/seaice/seaice_preconditioner.F |
591 |
SEAICE_PRECOND_RHSV |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_preconditioner.F |
593 |
SEAICE_PRECOND_RHSV |
zeros(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
605 |
SEAICE_PRECOND_RHSV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
607 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 0.5 _d 0*(AREA(I,J,bi,bj)+AREA(I,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
611 |
SEAICE_PRECOND_RHSV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
613 |
SEAICE_PRECOND_RHSV |
areaS(I,J) = 1. _d 0 |
|
./pkg/seaice/seaice_preconditioner.F |
617 |
SEAICE_PRECOND_RHSV |
DO J=jMin,jMax |
|
./pkg/seaice/seaice_preconditioner.F |
619 |
SEAICE_PRECOND_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
620 |
SEAICE_PRECOND_RHSV |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
621 |
SEAICE_PRECOND_RHSV |
& ( dwatPre(I,J ,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
622 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J ,k,bi,bj)-uIceLoc(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
623 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J ,k,bi,bj)-uIceLoc(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
624 |
SEAICE_PRECOND_RHSV |
& + dwatPre(I,J-1,bi,bj) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
625 |
SEAICE_PRECOND_RHSV |
& (uVel(I ,J-1,k,bi,bj)-uIceLoc(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
626 |
SEAICE_PRECOND_RHSV |
& +uVel(I+1,J-1,k,bi,bj)-uIceLoc(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_preconditioner.F |
627 |
SEAICE_PRECOND_RHSV |
& ) * fricFac * areaS(I,J) |
|
./pkg/seaice/seaice_preconditioner.F |
629 |
SEAICE_PRECOND_RHSV |
rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) - 0.5 _d 0 * |
|
./pkg/seaice/seaice_preconditioner.F |
630 |
SEAICE_PRECOND_RHSV |
& ( seaiceMassC(I,J ,bi,bj) * _fCori(I,J ,bi,bj) |
|
./pkg/seaice/seaice_preconditioner.F |
632 |
SEAICE_PRECOND_RHSV |
& + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
102 |
SEAICE_REG_RIDGE |
DO J=1-OLy,sNy+OLy |
|
./pkg/seaice/seaice_reg_ridge.F |
104 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
105 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
107 |
SEAICE_REG_RIDGE |
d_AREAbyRLX(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
108 |
SEAICE_REG_RIDGE |
d_HEFFbyRLX(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
111 |
SEAICE_REG_RIDGE |
saltFluxAdjust(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
130 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
132 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.AREA(I,J,bi,bj) ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
135 |
SEAICE_REG_RIDGE |
& * (exf_iceFraction(I,J,bi,bj) - AREA(I,J,bi,bj)) |
|
./pkg/seaice/seaice_reg_ridge.F |
137 |
SEAICE_REG_RIDGE |
IF ( exf_iceFraction(I,J,bi,bj).GT.zeroRS .AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
138 |
SEAICE_REG_RIDGE |
& AREA(I,J,bi,bj).EQ.0. _d 0) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
143 |
SEAICE_REG_RIDGE |
AREAITD(I,J,1,bi,bj) = AREAITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
145 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,1,bi,bj) = HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
148 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj) = AREA(I,J,bi,bj) + d_AREAbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
149 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + d_HEFFbyRLX(i,j,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
159 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
163 |
SEAICE_REG_RIDGE |
tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
164 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
165 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
166 |
SEAICE_REG_RIDGE |
tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
167 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
168 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
169 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)=MAX(AREAITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
184 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
186 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=MAX(-HEFF(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
187 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+d_HEFFbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
188 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=MAX(-HSNOW(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
189 |
SEAICE_REG_RIDGE |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
190 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
204 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
206 |
SEAICE_REG_RIDGE |
IF (HEFF(I,J,bi,bj).LE.siEps) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
207 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
208 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
217 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
221 |
SEAICE_REG_RIDGE |
IF (HEFF(I,J,bi,bj).LE.siEps) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
222 |
SEAICE_REG_RIDGE |
tmpscal1=-HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
223 |
SEAICE_REG_RIDGE |
tmpscal2=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
225 |
SEAICE_REG_RIDGE |
TICES(I,J,IT,bi,bj)=celsius2K |
|
./pkg/seaice/seaice_reg_ridge.F |
228 |
SEAICE_REG_RIDGE |
HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
229 |
SEAICE_REG_RIDGE |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
230 |
SEAICE_REG_RIDGE |
d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
231 |
SEAICE_REG_RIDGE |
d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
239 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
241 |
SEAICE_REG_RIDGE |
IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
242 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0)) |
|
./pkg/seaice/seaice_reg_ridge.F |
243 |
SEAICE_REG_RIDGE |
& AREAITD(I,J,IT,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
252 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
255 |
SEAICE_REG_RIDGE |
& (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
266 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
268 |
SEAICE_REG_RIDGE |
IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR. |
|
./pkg/seaice/seaice_reg_ridge.F |
269 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
273 |
SEAICE_REG_RIDGE |
AREAITD(I,J,IT,bi,bj)= |
|
./pkg/seaice/seaice_reg_ridge.F |
274 |
SEAICE_REG_RIDGE |
& MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd) |
|
./pkg/seaice/seaice_reg_ridge.F |
283 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
286 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),SEAICE_area_floor) |
|
./pkg/seaice/seaice_reg_ridge.F |
299 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
301 |
SEAICE_REG_RIDGE |
IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR. |
|
./pkg/seaice/seaice_reg_ridge.F |
302 |
SEAICE_REG_RIDGE |
& (HEFF(I,J,bi,bj) .EQ. 0.0) ) THEN |
|
./pkg/seaice/seaice_reg_ridge.F |
303 |
SEAICE_REG_RIDGE |
saltFluxAdjust(I,J,bi,bj) = - HEFFM(I,J,bi,bj) * |
|
./pkg/seaice/seaice_reg_ridge.F |
304 |
SEAICE_REG_RIDGE |
& HSALT(I,J,bi,bj) * recip_deltaTtherm |
|
./pkg/seaice/seaice_reg_ridge.F |
305 |
SEAICE_REG_RIDGE |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
320 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
328 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
333 |
SEAICE_REG_RIDGE |
& + TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
334 |
SEAICE_REG_RIDGE |
tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
336 |
SEAICE_REG_RIDGE |
tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
340 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
347 |
SEAICE_REG_RIDGE |
DIAGarrayA(I,J) = tmpscal3itd(i,j) |
|
./pkg/seaice/seaice_reg_ridge.F |
350 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=tmpscal3itd(i,j) |
|
./pkg/seaice/seaice_reg_ridge.F |
369 |
SEAICE_REG_RIDGE |
DO J=1,sNy |
|
./pkg/seaice/seaice_reg_ridge.F |
373 |
SEAICE_REG_RIDGE |
DIAGarrayA(I,J) = AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
376 |
SEAICE_REG_RIDGE |
SItrAREA(I,J,bi,bj,1)=AREA(I,J,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
380 |
SEAICE_REG_RIDGE |
AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),SEAICE_area_max) |
|
./pkg/seaice/seaice_solve4temp.F |
221 |
SEAICE_SOLVE4TEMP |
DO J=1,sNy |
|
./pkg/seaice/seaice_solve4temp.F |
224 |
SEAICE_SOLVE4TEMP |
TSURFout (I,J) = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
225 |
SEAICE_SOLVE4TEMP |
F_ia (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
226 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J)= 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
227 |
SEAICE_SOLVE4TEMP |
FWsublim (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
231 |
SEAICE_SOLVE4TEMP |
iceOrNot (I,J) = HICE_ACTUAL(I,J) .GT. 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
233 |
SEAICE_SOLVE4TEMP |
qhice (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
234 |
SEAICE_SOLVE4TEMP |
dqh_dTs (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
235 |
SEAICE_SOLVE4TEMP |
F_lh (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
236 |
SEAICE_SOLVE4TEMP |
F_lwu (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
237 |
SEAICE_SOLVE4TEMP |
F_sens (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
239 |
SEAICE_SOLVE4TEMP |
tsurfLoc (I,J) = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
241 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = MAX( MIN_LWDOWN, LWDOWN(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
242 |
SEAICE_SOLVE4TEMP |
atempLoc (I,J) = MAX( celsius2K+MIN_ATEMP, ATEMP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_solve4temp.F |
245 |
SEAICE_SOLVE4TEMP |
tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
250 |
SEAICE_SOLVE4TEMP |
IF(HSNOW_ACTUAL(I,J).GT.0.0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
252 |
SEAICE_SOLVE4TEMP |
D3(I,J)=SEAICE_snow_emiss*SEAICE_boltzmann |
|
./pkg/seaice/seaice_solve4temp.F |
255 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = SEAICE_snow_emiss*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
257 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
261 |
SEAICE_SOLVE4TEMP |
D3(I,J)=SEAICE_ice_emiss*SEAICE_boltzmann |
|
./pkg/seaice/seaice_solve4temp.F |
264 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = SEAICE_ice_emiss*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
266 |
SEAICE_SOLVE4TEMP |
lwdownLoc(I,J) = 0.97 _d 0*lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
272 |
SEAICE_SOLVE4TEMP |
DO J=1,sNy |
|
./pkg/seaice/seaice_solve4temp.F |
276 |
SEAICE_SOLVE4TEMP |
IF ( iceOrNot(I,J) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
278 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
279 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
280 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_wetIceAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
281 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_wetSnowAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
283 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_dryIceAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
284 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_drySnowAlb_south |
|
./pkg/seaice/seaice_solve4temp.F |
287 |
SEAICE_SOLVE4TEMP |
IF (tsurfLoc(I,J) .GE. SurfMeltTemp) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
288 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_wetIceAlb |
|
./pkg/seaice/seaice_solve4temp.F |
289 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_wetSnowAlb |
|
./pkg/seaice/seaice_solve4temp.F |
291 |
SEAICE_SOLVE4TEMP |
ALB_ICE (I,J) = SEAICE_dryIceAlb |
|
./pkg/seaice/seaice_solve4temp.F |
292 |
SEAICE_SOLVE4TEMP |
ALB_SNOW(I,J) = SEAICE_drySnowAlb |
|
./pkg/seaice/seaice_solve4temp.F |
297 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. HCUT) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
298 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_SNOW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
300 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = ALB_ICE(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
303 |
SEAICE_SOLVE4TEMP |
ALB(I,J) = MIN( ALB_ICE(I,J) + HSNOW_ACTUAL(I,J)*recip_HCUT |
|
./pkg/seaice/seaice_solve4temp.F |
304 |
SEAICE_SOLVE4TEMP |
& *(ALB_SNOW(I,J) -ALB_ICE(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
305 |
SEAICE_SOLVE4TEMP |
& , ALB_SNOW(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
311 |
SEAICE_SOLVE4TEMP |
IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
314 |
SEAICE_SOLVE4TEMP |
penetSWFrac = XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
317 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J) = -(1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
318 |
SEAICE_SOLVE4TEMP |
& *penetSWFrac * SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
320 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = (1.0 _d 0 - ALB(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
321 |
SEAICE_SOLVE4TEMP |
& *(1.0 _d 0 - penetSWFrac)* SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
328 |
SEAICE_SOLVE4TEMP |
effConduct(I,J) = XKI * XKS / |
|
./pkg/seaice/seaice_solve4temp.F |
329 |
SEAICE_SOLVE4TEMP |
& (XKS * HICE_ACTUAL(I,J) + XKI * HSNOW_ACTUAL(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
333 |
SEAICE_SOLVE4TEMP |
& (J .EQ. SEAICE_debugPointJ) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
338 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
343 |
SEAICE_SOLVE4TEMP |
& HICE_ACTUAL(I,J), effConduct(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
346 |
SEAICE_SOLVE4TEMP |
& HSNOW_ACTUAL(I,J), ALB(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
358 |
SEAICE_SOLVE4TEMP |
DO J=1,sNy |
|
./pkg/seaice/seaice_solve4temp.F |
361 |
SEAICE_SOLVE4TEMP |
iicekey = I + sNx*(J-1) + (ITER-1)*sNx*sNy |
|
./pkg/seaice/seaice_solve4temp.F |
367 |
SEAICE_SOLVE4TEMP |
tsurfPrev(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
368 |
SEAICE_SOLVE4TEMP |
IF ( iceOrNot(I,J) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
370 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
378 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
379 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
389 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
395 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2) |
|
./pkg/seaice/seaice_solve4temp.F |
403 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
404 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
408 |
SEAICE_SOLVE4TEMP |
IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
409 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
410 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = ZERO |
|
./pkg/seaice/seaice_solve4temp.F |
414 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J) = t4 * D3(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
415 |
SEAICE_SOLVE4TEMP |
F_sens(I,J)= D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
416 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
417 |
SEAICE_SOLVE4TEMP |
& + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
419 |
SEAICE_SOLVE4TEMP |
dFia_dTs(I,J) = 4.0 _d 0*D3(I,J)*t3 + D1*UG(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
420 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqh_dTs(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
424 |
SEAICE_SOLVE4TEMP |
& (J .EQ. SEAICE_debugPointJ) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
426 |
SEAICE_SOLVE4TEMP |
& 'ice-iter qhICE, ', ITER,qhIce(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
429 |
SEAICE_SOLVE4TEMP |
& dFia_dTs(I,J)+effConduct(I,J), F_ia(I,J)-F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
434 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
435 |
SEAICE_SOLVE4TEMP |
& + ( F_c(I,J)-F_ia(I,J) ) / ( effConduct(I,J)+dFia_dTs(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
442 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MAX( celsius2K+MIN_TICE, tsurfLoc(I,J) ) |
|
./pkg/seaice/seaice_solve4temp.F |
450 |
SEAICE_SOLVE4TEMP |
tsurfLoc(I,J) = MIN( tsurfLoc(I,J), TMELT ) |
|
./pkg/seaice/seaice_solve4temp.F |
454 |
SEAICE_SOLVE4TEMP |
& (J .EQ. SEAICE_debugPointJ) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
457 |
SEAICE_SOLVE4TEMP |
& tsurfLoc(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
458 |
SEAICE_SOLVE4TEMP |
& LOG10(ABS(tsurfLoc(I,J) - t1)) |
|
./pkg/seaice/seaice_solve4temp.F |
468 |
SEAICE_SOLVE4TEMP |
DO J=1,sNy |
|
./pkg/seaice/seaice_solve4temp.F |
470 |
SEAICE_SOLVE4TEMP |
IF ( iceOrNot(I,J) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
473 |
SEAICE_SOLVE4TEMP |
TSURFout(I,J) = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
478 |
SEAICE_SOLVE4TEMP |
CALL ZERO_ADJ_1D( 1, TSURFin(I,J), myThid) |
|
./pkg/seaice/seaice_solve4temp.F |
479 |
SEAICE_SOLVE4TEMP |
absorbedSW(I,J) = 0.3 _d 0 *SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
480 |
SEAICE_SOLVE4TEMP |
IcePenetSW(I,J)= 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
483 |
SEAICE_SOLVE4TEMP |
t1 = TSURFin(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
488 |
SEAICE_SOLVE4TEMP |
t1 = tsurfLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
495 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
504 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
506 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J) * (tempFrz(I,J) - t1) |
|
./pkg/seaice/seaice_solve4temp.F |
507 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
509 |
SEAICE_SOLVE4TEMP |
IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
510 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
513 |
SEAICE_SOLVE4TEMP |
F_lwu(I,J) = t4 * D3(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
514 |
SEAICE_SOLVE4TEMP |
F_sens(I,J) = D1 * UG(I,J) * (t1 - atempLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
516 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = -lwdownLoc(I,J) -absorbedSW(I,J) + F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
517 |
SEAICE_SOLVE4TEMP |
& + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
521 |
SEAICE_SOLVE4TEMP |
delTsurf = tsurfLoc(I,J)-tsurfPrev(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
522 |
SEAICE_SOLVE4TEMP |
F_c(I,J) = effConduct(I,J)*(tempFrz(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_solve4temp.F |
523 |
SEAICE_SOLVE4TEMP |
F_ia(I,J) = F_ia(I,J) + dFia_dTs(I,J)*delTsurf |
|
./pkg/seaice/seaice_solve4temp.F |
524 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
525 |
SEAICE_SOLVE4TEMP |
& + D1I*UG(I,J)*dqh_dTs(I,J)*delTsurf |
|
./pkg/seaice/seaice_solve4temp.F |
535 |
SEAICE_SOLVE4TEMP |
FWsublim(I,J) = F_lh(I,J)/lhSublim |
|
./pkg/seaice/seaice_solve4temp.F |
539 |
SEAICE_SOLVE4TEMP |
IF (F_c(I,J) .GT. 0.0 _d 0) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
540 |
SEAICE_SOLVE4TEMP |
F_io_net = F_c(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
544 |
SEAICE_SOLVE4TEMP |
F_ia_net = F_ia(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
548 |
SEAICE_SOLVE4TEMP |
& (J .EQ. SEAICE_debugPointJ) ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
553 |
SEAICE_SOLVE4TEMP |
& TSURFout(I,J), tsurfLoc(I,J),atempLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
555 |
SEAICE_SOLVE4TEMP |
& 'ibi LWL ', lwdownLoc(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
558 |
SEAICE_SOLVE4TEMP |
& SWDOWN(I,J,bi,bj), IcePenetSW(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
561 |
SEAICE_SOLVE4TEMP |
& AQH(I,J,bi,bj),qhice(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
564 |
SEAICE_SOLVE4TEMP |
& -lwdownLoc(I,J), -absorbedSW(I,J), F_lwu(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
567 |
SEAICE_SOLVE4TEMP |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
569 |
SEAICE_SOLVE4TEMP |
IF (F_lh_max(I,J) .GT. ZERO) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
572 |
SEAICE_SOLVE4TEMP |
& F_lh_max(I,J), F_lh(I,J)/ F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
579 |
SEAICE_SOLVE4TEMP |
& FWsublim(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
580 |
SEAICE_SOLVE4TEMP |
& FWsublim(I,J)*SEAICE_deltaTtherm/SEAICE_rhoICE |
|
./pkg/seaice/seaice_solve4temp.F |
584 |
SEAICE_SOLVE4TEMP |
& F_ia(I,J), F_ia_net, F_c(I,J) |
|
./pkg/seaice/seaice_tracer_phys.F |
127 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = HEFFpost*SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
128 |
SEAICE_TRACER_PHYS |
& +SItrBucket(i,j,bi,bj,iTr)-DIAGarray(I,J,5+(iTr-1)*5) |
|
./pkg/seaice/seaice_tracer_phys.F |
141 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
159 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
177 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
205 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
207 |
SEAICE_TRACER_PHYS |
saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
208 |
SEAICE_TRACER_PHYS |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
212 |
SEAICE_TRACER_PHYS |
saltPlumeFlux(I,J,bi,bj) = MAX(ZERO,saltFlux(I,J,bi,bj)) |
|
./pkg/seaice/seaice_tracer_phys.F |
219 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
222 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,4+(iTr-1)*5) = - SItrBucket(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
223 |
SEAICE_TRACER_PHYS |
& *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
238 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
241 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
242 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
245 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce |
|
./pkg/seaice/seaice_tracer_phys.F |
247 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,3+(iTr-1)*5) = HEFFpost |
|
./pkg/seaice/seaice_tracer_phys.F |
254 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
257 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr) |
|
./pkg/seaice/seaice_tracer_phys.F |
258 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*AREApost |
|
./pkg/seaice/seaice_tracer_phys.F |
42 |
SEAICE_TRACER_PHYS |
INTEGER iTr, jTh, I, J, bi, bj, ks |
|
./pkg/seaice/seaice_tracer_phys.F |
66 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
76 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
86 |
SEAICE_TRACER_PHYS |
DO J=1,sNy |
|
./pkg/seaice/seaice_tracer_phys.F |
90 |
SEAICE_TRACER_PHYS |
DIAGarray(I,J,5+(iTr-1)*5) = |
|
./pkg/shap_filt/shap_filt_relvort3.F |
121 |
SHAP_FILT_RELVORT3 |
J=1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
124 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
125 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
126 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
127 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
128 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
139 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
140 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
141 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
142 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
143 |
SHAP_FILT_RELVORT3 |
& -uFld(I-1,J)*dxC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
144 |
SHAP_FILT_RELVORT3 |
& +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
148 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
163 |
SHAP_FILT_RELVORT3 |
J=1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
167 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
168 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
169 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
170 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
171 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
174 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
175 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
176 |
SHAP_FILT_RELVORT3 |
& (-vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
177 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
178 |
SHAP_FILT_RELVORT3 |
& - uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
181 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
182 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
183 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
184 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
185 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
197 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
198 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
199 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
200 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
201 |
SHAP_FILT_RELVORT3 |
& -uFld(I+1,J)*dxC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
202 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
206 |
SHAP_FILT_RELVORT3 |
vort3(I,J-1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
221 |
SHAP_FILT_RELVORT3 |
J=sNy+1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
225 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
226 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
227 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
228 |
SHAP_FILT_RELVORT3 |
& +vFld(I,J)*dyC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
229 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
232 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
233 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
234 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
235 |
SHAP_FILT_RELVORT3 |
& +uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
236 |
SHAP_FILT_RELVORT3 |
& + vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
239 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
240 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
241 |
SHAP_FILT_RELVORT3 |
& (+vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
242 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
243 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
255 |
SHAP_FILT_RELVORT3 |
vort3(I-1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
256 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I-1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
257 |
SHAP_FILT_RELVORT3 |
& vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
258 |
SHAP_FILT_RELVORT3 |
& -vFld(I-2,J)*dyC(I-2,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
259 |
SHAP_FILT_RELVORT3 |
& +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
260 |
SHAP_FILT_RELVORT3 |
& +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
264 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I-1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
279 |
SHAP_FILT_RELVORT3 |
J=sNy+1 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
283 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
284 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
285 |
SHAP_FILT_RELVORT3 |
& (-uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
286 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
287 |
SHAP_FILT_RELVORT3 |
& + uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
290 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
291 |
SHAP_FILT_RELVORT3 |
& +recip_rA(I-1,J-1,bi,bj)/AZcorner*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
292 |
SHAP_FILT_RELVORT3 |
& (+uFld(I,J-1)*dxC(I,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
293 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J)*dxC(I,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
294 |
SHAP_FILT_RELVORT3 |
& - vFld(I-1,J)*dyC(I-1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
306 |
SHAP_FILT_RELVORT3 |
vort3(I+1,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
307 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I+1,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
308 |
SHAP_FILT_RELVORT3 |
& vFld(I+1,J)*dyC(I+1,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
309 |
SHAP_FILT_RELVORT3 |
& -vFld(I-0,J)*dyC(I-0,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
310 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
311 |
SHAP_FILT_RELVORT3 |
& +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
315 |
SHAP_FILT_RELVORT3 |
vort3(I,J+1)=vort3(I+1,J) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
50 |
SHAP_FILT_RELVORT3 |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_relvort3.F |
52 |
SHAP_FILT_RELVORT3 |
vort3(I,J) = 0. _d 0 |
|
./pkg/shap_filt/shap_filt_relvort3.F |
57 |
SHAP_FILT_RELVORT3 |
DO J=2-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_relvort3.F |
61 |
SHAP_FILT_RELVORT3 |
vort3(I,J)= |
|
./pkg/shap_filt/shap_filt_relvort3.F |
62 |
SHAP_FILT_RELVORT3 |
& recip_rAz(I,J,bi,bj)*( |
|
./pkg/shap_filt/shap_filt_relvort3.F |
63 |
SHAP_FILT_RELVORT3 |
& ( vFld(I,J)*dyC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
64 |
SHAP_FILT_RELVORT3 |
& -vFld(I-1,J)*dyC(I-1,J,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
65 |
SHAP_FILT_RELVORT3 |
& -( uFld(I,J)*dxC(I,J,bi,bj) |
|
./pkg/shap_filt/shap_filt_relvort3.F |
66 |
SHAP_FILT_RELVORT3 |
& -uFld(I,J-1)*dxC(I,J-1,bi,bj) ) |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
109 |
SHAP_FILT_TRACER_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
136 |
SHAP_FILT_TRACER_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
146 |
SHAP_FILT_TRACER_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
162 |
SHAP_FILT_TRACER_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
49 |
SHAP_FILT_TRACER_S1 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
59 |
SHAP_FILT_TRACER_S1 |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
83 |
SHAP_FILT_TRACER_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s1.F |
93 |
SHAP_FILT_TRACER_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
108 |
SHAP_FILT_TRACER_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
134 |
SHAP_FILT_TRACER_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
144 |
SHAP_FILT_TRACER_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
160 |
SHAP_FILT_TRACER_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
49 |
SHAP_FILT_TRACER_S4 |
INTEGER bi,bj,K,I,J,N |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
58 |
SHAP_FILT_TRACER_S4 |
DO J=1-OLy,sNy+Oly |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
82 |
SHAP_FILT_TRACER_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracer_s4.F |
92 |
SHAP_FILT_TRACER_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_tracerold.F |
34 |
SHAP_FILT_TRACEROLD |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
36 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_tracerold.F |
46 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_tracerold.F |
58 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_tracerold.F |
65 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_tracerold.F |
76 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy+1,sNy+OLy-1 |
|
./pkg/shap_filt/shap_filt_tracerold.F |
89 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_tracerold.F |
95 |
SHAP_FILT_TRACEROLD |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
105 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
33 |
SHAP_FILT_U |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_u.F |
35 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
46 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
57 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
65 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
72 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_u.F |
84 |
SHAP_FILT_U |
DO J=1-OLy+1,sNy+OLy-1 |
|
./pkg/shap_filt/shap_filt_u.F |
99 |
SHAP_FILT_U |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
105 |
SHAP_FILT_UV_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
112 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
121 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
137 |
SHAP_FILT_UV_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
145 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
173 |
SHAP_FILT_UV_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
189 |
SHAP_FILT_UV_S1 |
J=1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
197 |
SHAP_FILT_UV_S1 |
J=sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
208 |
SHAP_FILT_UV_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
215 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
230 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
250 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
266 |
SHAP_FILT_UV_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
272 |
SHAP_FILT_UV_S1 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
68 |
SHAP_FILT_UV_S1 |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_uv_s1.F |
96 |
SHAP_FILT_UV_S1 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
104 |
SHAP_FILT_UV_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
111 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
120 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
136 |
SHAP_FILT_UV_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
143 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
170 |
SHAP_FILT_UV_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
185 |
SHAP_FILT_UV_S4 |
J=1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
195 |
SHAP_FILT_UV_S4 |
J=sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
207 |
SHAP_FILT_UV_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
214 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
229 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
240 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
252 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
268 |
SHAP_FILT_UV_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
274 |
SHAP_FILT_UV_S4 |
DO J=1,sNy+1 |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
67 |
SHAP_FILT_UV_S4 |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_uv_s4.F |
95 |
SHAP_FILT_UV_S4 |
DO J=1,sNy |
|
./pkg/shap_filt/shap_filt_v.F |
105 |
SHAP_FILT_V |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_v.F |
33 |
SHAP_FILT_V |
INTEGER I,J,N,N1,N2 |
|
./pkg/shap_filt/shap_filt_v.F |
36 |
SHAP_FILT_V |
DO J=1-OLy+1,sNy+OLy |
|
./pkg/shap_filt/shap_filt_v.F |
43 |
SHAP_FILT_V |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_v.F |
54 |
SHAP_FILT_V |
DO J=1-OLy+1,sNy+OLy |
|
./pkg/shap_filt/shap_filt_v.F |
68 |
SHAP_FILT_V |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_v.F |
75 |
SHAP_FILT_V |
DO J=1-OLy,sNy+OLy |
|
./pkg/shap_filt/shap_filt_v.F |
87 |
SHAP_FILT_V |
DO J=1-OLy+1,sNy+OLy-1 |
|
./pkg/shap_filt/shap_filt_v.F |
99 |
SHAP_FILT_V |
DO J=1-OLy,sNy+OLy |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
169 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
172 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
176 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
77 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
80 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
84 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./model/src/ini_dynvars.F |
93 |
INI_DYNVARS |
DO J=1-OLy,sNy+OLy |
|
./pkg/shelfice/shelfice_step_icemass.F |
60 |
SHELFICE_STEP_ICEMASS |
& H_streamice(I,J,bi,bj) * streamice_density |
|
./pkg/shelfice/shelfice_step_icemass.F |
78 |
SHELFICE_STEP_ICEMASS |
& + shelfIceFreshWaterFlux(I,J,bi,bj) * deltaT |
|
./pkg/shelfice/shelfice_step_icemass.F |
82 |
SHELFICE_STEP_ICEMASS |
& + shelfIceMassDynTendency(I,J,bi,bj)*deltaT |
|
./pkg/shelfice/shelfice_thermodynamics.F |
129 |
SHELFICE_THERMODYNAMICS |
DO J = 1-OLy,sNy+OLy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
156 |
SHELFICE_THERMODYNAMICS |
DO J = 1-OLy,sNy+OLy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
207 |
SHELFICE_THERMODYNAMICS |
DO J = 1-OLy,sNy+OLy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
209 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
210 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
211 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
212 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
214 |
SHELFICE_THERMODYNAMICS |
uStarDiag (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
223 |
SHELFICE_THERMODYNAMICS |
DO J = 1-OLy,sNy+OLy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
225 |
SHELFICE_THERMODYNAMICS |
xx_shifwflx_loc(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
258 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
260 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
261 |
SHELFICE_THERMODYNAMICS |
pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
263 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
264 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
269 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
271 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = 0. |
|
./pkg/shelfice/shelfice_thermodynamics.F |
272 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = 0. |
|
./pkg/shelfice/shelfice_thermodynamics.F |
273 |
SHELFICE_THERMODYNAMICS |
velSq(I,J) = 0. |
|
./pkg/shelfice/shelfice_thermodynamics.F |
274 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
275 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacW(I, J,K,bi,bj) + _hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
277 |
SHELFICE_THERMODYNAMICS |
& velSq(I,J) = ( |
|
./pkg/shelfice/shelfice_thermodynamics.F |
278 |
SHELFICE_THERMODYNAMICS |
& uVel( I, J,K,bi,bj)*uVel( I, J,K,bi,bj)*_hFacW( I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
279 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj)*_hFacW(I+1,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
281 |
SHELFICE_THERMODYNAMICS |
tmpFac = _hFacS(I,J, K,bi,bj) + _hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
283 |
SHELFICE_THERMODYNAMICS |
& velSq(I,J) = velSq(I,J) + ( |
|
./pkg/shelfice/shelfice_thermodynamics.F |
284 |
SHELFICE_THERMODYNAMICS |
& vVel(I, J, K,bi,bj)*vVel(I, J, K,bi,bj)*_hFacS(I, J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
285 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj)*_hFacS(I,J+1,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
291 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
293 |
SHELFICE_THERMODYNAMICS |
K = MAX(1,kTopC(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
294 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
295 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,K,bi,bj) * _hFacW(I, J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
296 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,K,bi,bj) * _hFacW(I+1,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
297 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = recip_hFacC(I,J,K,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
298 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, K,bi,bj) * _hFacS(I,J, K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
299 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
300 |
SHELFICE_THERMODYNAMICS |
velSq(I,J) = uLoc(I,J)*uLoc(I,J)+vLoc(I,J)*vLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
306 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
308 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
312 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
314 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
317 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
318 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
319 |
SHELFICE_THERMODYNAMICS |
& + theta(I,J,Kp1,bi,bj) *drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
321 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
322 |
SHELFICE_THERMODYNAMICS |
& + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
324 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
325 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
326 |
SHELFICE_THERMODYNAMICS |
& ( uVel(I, J,Kp1,bi,bj) * _hFacW(I, J,Kp1,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
327 |
SHELFICE_THERMODYNAMICS |
& + uVel(I+1,J,Kp1,bi,bj) * _hFacW(I+1,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
329 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
330 |
SHELFICE_THERMODYNAMICS |
& + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) * halfRL * |
|
./pkg/shelfice/shelfice_thermodynamics.F |
331 |
SHELFICE_THERMODYNAMICS |
& ( vVel(I,J, Kp1,bi,bj) * _hFacS(I,J, Kp1,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
332 |
SHELFICE_THERMODYNAMICS |
& + vVel(I,J+1,Kp1,bi,bj) * _hFacS(I,J+1,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
334 |
SHELFICE_THERMODYNAMICS |
velSq(I,J) = uLoc(I,J)*uLoc(I,J)+vLoc(I,J)*vLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
342 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
345 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
347 |
SHELFICE_THERMODYNAMICS |
CALL SW_TEMP(sLoc(I,J),tLoc(I,J),pLoc(I,J),zeroRL,tLoc(I,J)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
354 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
356 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
357 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
358 |
SHELFICE_THERMODYNAMICS |
ustarSq = shiCdrag * MAX( 1.D-6, velSq(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
361 |
SHELFICE_THERMODYNAMICS |
uStarDiag(I,J,bi,bj) = ustar |
|
./pkg/shelfice/shelfice_thermodynamics.F |
367 |
SHELFICE_THERMODYNAMICS |
IF ( fCori(I,J,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
369 |
SHELFICE_THERMODYNAMICS |
& / ABS(fCori(I,J,bi,bj) * 5.0 _d 0 * shiKinVisc)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
398 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
400 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
401 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
404 |
SHELFICE_THERMODYNAMICS |
& sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
405 |
SHELFICE_THERMODYNAMICS |
& + b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
407 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
409 |
SHELFICE_THERMODYNAMICS |
& * ( tLoc(I,J) - thetaFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
412 |
SHELFICE_THERMODYNAMICS |
& - xx_shifwflx_loc(I,J,bi,bj)*SHELFICElatentHeat |
|
./pkg/shelfice/shelfice_thermodynamics.F |
417 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
418 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
422 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
424 |
SHELFICE_THERMODYNAMICS |
& - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
425 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
427 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
428 |
SHELFICE_THERMODYNAMICS |
& * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
432 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
433 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
434 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
435 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
448 |
SHELFICE_THERMODYNAMICS |
DO J = 1, sNy |
|
./pkg/shelfice/shelfice_thermodynamics.F |
450 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
451 |
SHELFICE_THERMODYNAMICS |
IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
454 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
456 |
SHELFICE_THERMODYNAMICS |
IF ( tLoc(I,J) .GT. thetaFreeze ) fwflxFac = dFac |
|
./pkg/shelfice/shelfice_thermodynamics.F |
475 |
SHELFICE_THERMODYNAMICS |
eps3 = eps3a/pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
476 |
SHELFICE_THERMODYNAMICS |
eps4 = b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
477 |
SHELFICE_THERMODYNAMICS |
eps6 = eps4 - tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
487 |
SHELFICE_THERMODYNAMICS |
& + ( c0 - SHELFICEthetaSurface )/pLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
489 |
SHELFICE_THERMODYNAMICS |
& + eps8*( a0*sLoc(I,J) - eps7 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
490 |
SHELFICE_THERMODYNAMICS |
cqe = ( eps2 + eps8*eps7 )*sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
496 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: pLoc = ', pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
497 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: tLoc = ', tLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
498 |
SHELFICE_THERMODYNAMICS |
print *, 'ml-shelfice: sLoc = ', sLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
535 |
SHELFICE_THERMODYNAMICS |
& * ( 1. _d 0 - sLoc(I,J) / saltFreeze ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
537 |
SHELFICE_THERMODYNAMICS |
& + xx_shifwflx_loc(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
542 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
547 |
SHELFICE_THERMODYNAMICS |
& - HeatCapacity_Cp*( thetaFreeze - rFac*tLoc(I,J) ) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
548 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = freshWaterFlux |
|
./pkg/shelfice/shelfice_thermodynamics.F |
552 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
553 |
SHELFICE_THERMODYNAMICS |
& * ( thetaFreeze - tLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
556 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
557 |
SHELFICE_THERMODYNAMICS |
& * ( saltFreeze - sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
559 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
560 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
561 |
SHELFICE_THERMODYNAMICS |
shelficeForcingT (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
562 |
SHELFICE_THERMODYNAMICS |
shelficeForcingS (I,J,bi,bj) = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
85 |
SHELFICE_THERMODYNAMICS |
INTEGER I,J,K,Kp1 |
|
./pkg/sphere/sphere.F |
313 |
SHC2ZONE |
INTEGER LMAX1, J, K, L, M |
|
./pkg/sphere/sphere.F |
337 |
SHC2ZONE |
J = L*L+L+1 |
|
./pkg/sphere/sphere.F |
339 |
SHC2ZONE |
DA = Q*SHC(J+M) |
|
./pkg/sphere/sphere.F |
340 |
SHC2ZONE |
DB = Q*SHC(J-M) |
|
./pkg/sphere/sphere.F |
346 |
SHC2ZONE |
J = J+L+L+2 |
|
./pkg/sphere/sphere.F |
348 |
SHC2ZONE |
DA = Q*SHC(J+M) |
|
./pkg/sphere/sphere.F |
349 |
SHC2ZONE |
DB = Q*SHC(J-M) |
|
./pkg/sphere/sphere.F |
357 |
SHC2ZONE |
J = LMAX*LMAX+LMAX+1 |
|
./pkg/sphere/sphere.F |
359 |
SHC2ZONE |
DA = Q*SHC(J+M) |
|
./pkg/sphere/sphere.F |
360 |
SHC2ZONE |
DB = Q*SHC(J-M) |
|
./pkg/sphere/sphere.F |
404 |
SHC4ZONE |
INTEGER I, J, K, L, M |
|
./pkg/sphere/sphere.F |
432 |
SHC4ZONE |
J = 1 |
|
./pkg/sphere/sphere.F |
435 |
SHC4ZONE |
J = 2*M |
|
./pkg/sphere/sphere.F |
436 |
SHC4ZONE |
JP = J+1 |
|
./pkg/sphere/sphere.F |
438 |
SHC4ZONE |
CE = HS(J)+HN(J) |
|
./pkg/sphere/sphere.F |
439 |
SHC4ZONE |
CO = HS(J)-HN(J) |
|
./pkg/sphere/sphere.F |
440 |
SHC4ZONE |
SE = HS(J)+HN(JP) |
|
./pkg/sphere/sphere.F |
441 |
SHC4ZONE |
SO = HS(J)-HN(JP) |
|
./pkg/sphere/sphere.F |
495 |
FRSBASE |
SUBROUTINE FRSBASE(A,H,I,J) |
|
./pkg/sphere/sphere.F |
503 |
FRSBASE |
INTEGER I, J |
|
./pkg/sphere/sphere.F |
510 |
FRSBASE |
N = J-I+1 |
|
./pkg/sphere/sphere.F |
524 |
FRSBASE |
DO L = I+5,J |
|
./pkg/streamice/streamice_advect_thickness.F |
347 |
STREAMICE_ADVECT_THICKNESS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * irho * |
|
./pkg/thsice/thsice_calc_thickn.F |
1035 |
THSICE_CALC_THICKN |
& flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt |
|
./pkg/timeave/timeave_surf_flux.F |
36 |
TIMEAVE_SURF_FLUX |
INTEGER I, J, K |
|
./pkg/timeave/timeave_surf_flux.F |
71 |
TIMEAVE_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./pkg/zonal_filt/fftpack.F |
1169 |
R8ADBG |
106 DO 108 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1170 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1171 |
R8ADBG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1173 |
R8ADBG |
CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1179 |
R8ADBG |
DO 111 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1180 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1184 |
R8ADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1185 |
R8ADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1186 |
R8ADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1187 |
R8ADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1192 |
R8ADBG |
112 DO 115 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1193 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1197 |
R8ADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1198 |
R8ADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1199 |
R8ADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1200 |
R8ADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1219 |
R8ADBG |
DO 119 J=3,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1220 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1225 |
R8ADBG |
C2(IK,L) = C2(IK,L)+AR2*CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1230 |
R8ADBG |
DO 122 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1232 |
R8ADBG |
CH2(IK,1) = CH2(IK,1)+CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1235 |
R8ADBG |
DO 124 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1236 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1238 |
R8ADBG |
CH(1,K,J) = C1(1,K,J)-C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1239 |
R8ADBG |
CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1244 |
R8ADBG |
DO 127 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1245 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1248 |
R8ADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1249 |
R8ADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1250 |
R8ADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1251 |
R8ADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1256 |
R8ADBG |
128 DO 131 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1257 |
R8ADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1260 |
R8ADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1261 |
R8ADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1262 |
R8ADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1263 |
R8ADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1272 |
R8ADBG |
DO 135 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
1274 |
R8ADBG |
C1(1,K,J) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1279 |
R8ADBG |
DO 138 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
1285 |
R8ADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1286 |
R8ADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1292 |
R8ADBG |
DO 142 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
1298 |
R8ADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1299 |
R8ADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1573 |
R8ADFG |
DO 103 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
1575 |
R8ADFG |
CH(1,K,J) = C1(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1580 |
R8ADFG |
DO 106 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
1586 |
R8ADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1587 |
R8ADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1593 |
R8ADFG |
DO 110 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
1599 |
R8ADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1600 |
R8ADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1605 |
R8ADFG |
DO 114 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1606 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1609 |
R8ADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1610 |
R8ADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1611 |
R8ADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1612 |
R8ADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1617 |
R8ADFG |
115 DO 118 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1618 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1621 |
R8ADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1622 |
R8ADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1623 |
R8ADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1624 |
R8ADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1632 |
R8ADFG |
121 DO 123 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1633 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1635 |
R8ADFG |
C1(1,K,J) = CH(1,K,J)+CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1636 |
R8ADFG |
C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1655 |
R8ADFG |
DO 126 J=3,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1656 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1661 |
R8ADFG |
CH2(IK,L) = CH2(IK,L)+AR2*C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1666 |
R8ADFG |
DO 129 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1668 |
R8ADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1684 |
R8ADFG |
135 DO 137 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1685 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1686 |
R8ADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1688 |
R8ADFG |
CC(IDO,J2-2,K) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1694 |
R8ADFG |
DO 140 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1695 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1696 |
R8ADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1700 |
R8ADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1701 |
R8ADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1702 |
R8ADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1703 |
R8ADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1708 |
R8ADFG |
141 DO 144 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
1709 |
R8ADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
1710 |
R8ADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
1714 |
R8ADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1715 |
R8ADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1716 |
R8ADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1717 |
R8ADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1798 |
R8FFTI1 |
J = 0 |
|
./pkg/zonal_filt/fftpack.F |
1799 |
R8FFTI1 |
101 J = J+1 |
|
./pkg/zonal_filt/fftpack.F |
1800 |
R8FFTI1 |
IF (J-4) 102,102,103 |
|
./pkg/zonal_filt/fftpack.F |
1801 |
R8FFTI1 |
102 NTRY = NTRYH(J) |
|
./pkg/zonal_filt/fftpack.F |
1832 |
R8FFTI1 |
DO 109 J=1,IPM |
|
./pkg/zonal_filt/fftpack.F |
242 |
RADBG |
106 DO 108 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
243 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
244 |
RADBG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
246 |
RADBG |
CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K) |
|
./pkg/zonal_filt/fftpack.F |
252 |
RADBG |
DO 111 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
253 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
257 |
RADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
258 |
RADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
259 |
RADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
260 |
RADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
265 |
RADBG |
112 DO 115 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
266 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
270 |
RADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
271 |
RADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
272 |
RADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
273 |
RADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
292 |
RADBG |
DO 119 J=3,IPPH |
|
./pkg/zonal_filt/fftpack.F |
293 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
298 |
RADBG |
C2(IK,L) = C2(IK,L)+AR2*CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
303 |
RADBG |
DO 122 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
305 |
RADBG |
CH2(IK,1) = CH2(IK,1)+CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
308 |
RADBG |
DO 124 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
309 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
311 |
RADBG |
CH(1,K,J) = C1(1,K,J)-C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
312 |
RADBG |
CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
317 |
RADBG |
DO 127 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
318 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
321 |
RADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
322 |
RADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
323 |
RADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
324 |
RADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
329 |
RADBG |
128 DO 131 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
330 |
RADBG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
333 |
RADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
334 |
RADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
335 |
RADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
336 |
RADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
345 |
RADBG |
DO 135 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
347 |
RADBG |
C1(1,K,J) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
352 |
RADBG |
DO 138 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
358 |
RADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
359 |
RADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
365 |
RADBG |
DO 142 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
371 |
RADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
372 |
RADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
660 |
RADFG |
DO 103 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
662 |
RADFG |
CH(1,K,J) = C1(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
667 |
RADFG |
DO 106 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
673 |
RADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
674 |
RADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
680 |
RADFG |
DO 110 J=2,IP |
|
./pkg/zonal_filt/fftpack.F |
686 |
RADFG |
CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
687 |
RADFG |
CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
692 |
RADFG |
DO 114 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
693 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
696 |
RADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
697 |
RADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
698 |
RADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
699 |
RADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
704 |
RADFG |
115 DO 118 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
705 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
708 |
RADFG |
C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
709 |
RADFG |
C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
710 |
RADFG |
C1(I,K,J) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
711 |
RADFG |
C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
719 |
RADFG |
121 DO 123 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
720 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
722 |
RADFG |
C1(1,K,J) = CH(1,K,J)+CH(1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
723 |
RADFG |
C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
742 |
RADFG |
DO 126 J=3,IPPH |
|
./pkg/zonal_filt/fftpack.F |
743 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
748 |
RADFG |
CH2(IK,L) = CH2(IK,L)+AR2*C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
753 |
RADFG |
DO 129 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
755 |
RADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
771 |
RADFG |
135 DO 137 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
772 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
773 |
RADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
775 |
RADFG |
CC(IDO,J2-2,K) = CH(1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
781 |
RADFG |
DO 140 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
782 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
783 |
RADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
787 |
RADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
788 |
RADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
789 |
RADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
790 |
RADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
795 |
RADFG |
141 DO 144 J=2,IPPH |
|
./pkg/zonal_filt/fftpack.F |
796 |
RADFG |
JC = IPP2-J |
|
./pkg/zonal_filt/fftpack.F |
797 |
RADFG |
J2 = J+J |
|
./pkg/zonal_filt/fftpack.F |
801 |
RADFG |
CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
802 |
RADFG |
CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
803 |
RADFG |
CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
804 |
RADFG |
CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
892 |
RFFTI1 |
J = 0 |
|
./pkg/zonal_filt/fftpack.F |
893 |
RFFTI1 |
101 J = J+1 |
|
./pkg/zonal_filt/fftpack.F |
894 |
RFFTI1 |
IF (J-4) 102,102,103 |
|
./pkg/zonal_filt/fftpack.F |
895 |
RFFTI1 |
102 NTRY = NTRYH(J) |
|
./pkg/zonal_filt/fftpack.F |
926 |
RFFTI1 |
DO 109 J=1,IPM |
|
./pkg/zonal_filt/zonal_filt_nofill.F |
41 |
ZONAL_FILT_NOFILL |
INTEGER I, J, K |
|
./model/src/ini_psurf.F |
50 |
INI_PSURF |
INTEGER I, J |
|
./model/src/ini_psurf.F |
56 |
INI_PSURF |
DO J=1-OLy,sNy+OLy |
|
./model/src/ini_psurf.F |
58 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_psurf.F |
74 |
INI_PSURF |
DO J=1-OLy,sNy+OLy |
|
./model/src/ini_psurf.F |
76 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
207 |
AIM_SURF_BC |
DO J=1,NGP |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
208 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
209 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
210 |
AIM_SURF_BC |
sst1(J,myThid) = MAX(sst1(J,myThid),oceTfreez) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
211 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
212 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
214 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
218 |
AIM_SURF_BC |
DO J=1,NGP |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
219 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
432 |
AIM_SURF_BC |
DO J=1,NGP |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
433 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
434 |
AIM_SURF_BC |
& *oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
435 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
436 |
AIM_SURF_BC |
& - fMask1(J,3,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
440 |
AIM_SURF_BC |
DO J=1,NGP |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
441 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
442 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
443 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
448 |
AIM_SURF_BC |
DO J=1,NGP |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
449 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
454 |
AIM_SURF_BC |
DO J=1,NGP |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
455 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
456 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F |
31 |
MOM_VI_HFACZ_DISS |
INTEGER I,J |
|
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F |
30 |
MOM_VI_MASK_VORT3 |
INTEGER I,J |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
49 |
COST_TEST |
DO J=1,sNy |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
50 |
COST_TEST |
jg = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
56 |
COST_TEST |
IF ( maskW(I,J,K,BI,BJ) .NE. 0. ) THEN |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
58 |
COST_TEST |
& + uVel(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
59 |
COST_TEST |
& *_hFacW(I,J,K,BI,BJ) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./model/src/integr_continuity.F |
161 |
INTEGR_CONTINUITY |
ks = kSurfC(I,J,bi,bj) |
|
./verification/dome/code/obcs_calc.F |
103 |
OBCS_CALC |
DO J=1-Oly,sNy+Oly |
|
./verification/dome/code/obcs_calc.F |
104 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
111 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
112 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/dome/code/obcs_calc.F |
119 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./verification/dome/code/obcs_calc.F |
121 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
135 |
OBCS_CALC |
DO J=1-Oly,sNy+Oly |
|
./verification/dome/code/obcs_calc.F |
136 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
137 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. |
|
./verification/dome/code/obcs_calc.F |
138 |
OBCS_CALC |
OBWt(J,K,bi,bj)= Tref(k) |
|
./verification/dome/code/obcs_calc.F |
140 |
OBCS_CALC |
OBWw(J,K,bi,bj)=0.0 |
|
./verification/dome/code/obcs_calc.F |
40 |
OBCS_CALC |
INTEGER I, J ,K |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
105 |
INI_SALT |
DO J=1,sNy |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
110 |
INI_SALT |
salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
126 |
INI_SALT |
DO J=1,sNy |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
128 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
129 |
INI_SALT |
IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0. |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
46 |
INI_SALT |
INTEGER I, J, K, localWarnings |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
74 |
INI_SALT |
DO J=1,sNy |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
76 |
INI_SALT |
temperature(I,J,K,bi,bj) = theta(I,J,K,bi,bj) * pkappa(K) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
87 |
INI_SALT |
DO J=1-Oly,sNy+Oly |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
89 |
INI_SALT |
salt(I,J,K,bi,bj) = sRef(K) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
183 |
DO_FIZHI |
term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
186 |
DO_FIZHI |
& *(cos(lats(I,J,bi,bj)*deg2rad)**2) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
193 |
DO_FIZHI |
& *COS((lats(I,J,bi,bj)*deg2rad))**4 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
195 |
DO_FIZHI |
dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq ) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
DO J = 1,sNy |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
98 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
100 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
DO J = 1,sNy |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
98 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
105 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.1x64x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.1x64x5/code/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
67 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.1x64x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
99 |
INI_THETA |
DO J=1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
142 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
160 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
theta(I,J,1,bi,bj) = theta(I,J,1,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
164 |
CTRL_MAP_GENTIM2D |
& + xx_gentim2d(I,J,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
85 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
105 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
67 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
99 |
INI_THETA |
DO J=1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
142 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
144 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
160 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
163 |
CTRL_MAP_GENTIM2D |
theta(I,J,1,bi,bj) = theta(I,J,1,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
164 |
CTRL_MAP_GENTIM2D |
& + xx_gentim2d(I,J,bi,bj,iarr) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
85 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
87 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
105 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
67 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.1x64x5/code_oad/ini_theta.F |
99 |
INI_THETA |
DO J=1-Oly,sNy+Oly |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
101 |
INI_THETA |
IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
105 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
107 |
INI_THETA |
IF ( maskC(I,J,K,bi,bj).NE.0. |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
108 |
INI_THETA |
& .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
52 |
INI_THETA |
INTEGER I, J, K, localWarnings |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
57 |
INI_THETA |
J = 99+myBxLo(myThid)+nPx*myByLo(myThid) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
67 |
INI_THETA |
DO J=1,sNy |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
69 |
INI_THETA |
term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
71 |
INI_THETA |
& *(cos(yC(I,J,bi,bj)*deg2rad)**2) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
73 |
INI_THETA |
theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
99 |
INI_THETA |
DO J=1-Oly,sNy+Oly |
|
./verification/internal_wave/code/obcs_calc.F |
100 |
OBCS_CALC |
OBEw(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
114 |
OBCS_CALC |
DO J=1-Oly,sNy+Oly |
|
./verification/internal_wave/code/obcs_calc.F |
115 |
OBCS_CALC |
OBWu(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
124 |
OBCS_CALC |
OBWv(J,K,bi,bj)=0. _d 0 |
|
./verification/internal_wave/code/obcs_calc.F |
133 |
OBCS_CALC |
OBWt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
144 |
OBCS_CALC |
OBWw(J,K,bi,bj)=-Uinflow |
|
./verification/internal_wave/code/obcs_calc.F |
44 |
OBCS_CALC |
INTEGER I, J ,K |
|
./verification/internal_wave/code/obcs_calc.F |
94 |
OBCS_CALC |
DO J=1-Oly,sNy+Oly |
|
./verification/internal_wave/code/obcs_calc.F |
95 |
OBCS_CALC |
OBEu(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
96 |
OBCS_CALC |
OBEv(J,K,bi,bj)=0. |
|
./verification/internal_wave/code/obcs_calc.F |
97 |
OBCS_CALC |
OBEt(J,K,bi,bj)=tRef(K) |
|
./verification/internal_wave/code/obcs_calc.F |
98 |
OBCS_CALC |
OBEs(J,K,bi,bj)=sRef(K) |
|
./model/src/remove_mean.F |
150 |
REMOVE_MEAN_RS |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
164 |
REMOVE_MEAN_RS |
DO J=1,sNy |
|
./model/src/remove_mean.F |
166 |
REMOVE_MEAN_RS |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
167 |
REMOVE_MEAN_RS |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
168 |
REMOVE_MEAN_RS |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./model/src/remove_mean.F |
187 |
REMOVE_MEAN_RS |
DO J=1,sNy |
|
./model/src/remove_mean.F |
189 |
REMOVE_MEAN_RS |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
190 |
REMOVE_MEAN_RS |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/remove_mean.F |
45 |
REMOVE_MEAN_RL |
INTEGER bi,bj,I,J,K |
|
./model/src/remove_mean.F |
59 |
REMOVE_MEAN_RL |
DO J=1,sNy |
|
./model/src/remove_mean.F |
61 |
REMOVE_MEAN_RL |
tmpVal=arr(I,J,K,bi,bj) |
|
./model/src/remove_mean.F |
62 |
REMOVE_MEAN_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
63 |
REMOVE_MEAN_RL |
tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K) |
|
./model/src/remove_mean.F |
82 |
REMOVE_MEAN_RL |
DO J=1,sNy |
|
./model/src/remove_mean.F |
84 |
REMOVE_MEAN_RL |
IF (arrMask(I,J,K,bi,bj).NE.0.) THEN |
|
./model/src/remove_mean.F |
85 |
REMOVE_MEAN_RL |
arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean |
|
./model/src/rotate_spherical_polar_grid.F |
141 |
ROTATE_SPHERICAL_POLAR_GRID |
DO J = 1-OLy,sNy+OLy |
|
./model/src/rotate_spherical_polar_grid.F |
146 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
148 |
ROTATE_SPHERICAL_POLAR_GRID |
& COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
149 |
ROTATE_SPHERICAL_POLAR_GRID |
XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad ) |
|
./model/src/rotate_spherical_polar_grid.F |
164 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
166 |
ROTATE_SPHERICAL_POLAR_GRID |
X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
167 |
ROTATE_SPHERICAL_POLAR_GRID |
IF ( X(I,J,bi,bj) .LT. 0. _d 0 ) |
|
./model/src/rotate_spherical_polar_grid.F |
168 |
ROTATE_SPHERICAL_POLAR_GRID |
& X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
172 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = 0. _d 0 |
|
./model/src/rotate_spherical_polar_grid.F |
174 |
ROTATE_SPHERICAL_POLAR_GRID |
Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad |
|
./model/src/rotate_spherical_polar_grid.F |
61 |
ROTATE_SPHERICAL_POLAR_GRID |
INTEGER I, J, iA, jA, kA |
|
./verification/rotating_tank/code/apply_forcing.F |
698 |
APPLY_FORCING_T |
jG = myYGlobalLo-1+(bj-1)*sNy+J |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
35 |
INI_PSURF |
INTEGER I, J |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
43 |
INI_PSURF |
DO J=1-Oly,sNy+Oly |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
45 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
63 |
INI_PSURF |
DO J=1-Oly,sNy+Oly |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
65 |
INI_PSURF |
etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj) |
|
./model/src/update_masks_etc.F |
105 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/update_masks_etc.F |
107 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = 1. _d 0 |
|
./model/src/update_masks_etc.F |
109 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
139 |
UPDATE_MASKS_ETC |
DO J=1-OLy,sNy+OLy |
|
./model/src/update_masks_etc.F |
145 |
UPDATE_MASKS_ETC |
DO J=1-OLy,sNy+OLy |
|
./model/src/update_masks_etc.F |
147 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
|
./model/src/update_masks_etc.F |
148 |
UPDATE_MASKS_ETC |
& - drF(K)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
213 |
UPDATE_MASKS_ETC |
DO J=1-OLy,sNy+OLy |
|
./model/src/update_masks_etc.F |
216 |
UPDATE_MASKS_ETC |
Jm1=MAX(J-1,1-OLy) |
|
./model/src/update_masks_etc.F |
217 |
UPDATE_MASKS_ETC |
IF (DYG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
221 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
223 |
UPDATE_MASKS_ETC |
hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
225 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
227 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
230 |
UPDATE_MASKS_ETC |
IF (DXG(I,J,bi,bj).EQ.0.) THEN |
|
./model/src/update_masks_etc.F |
231 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=0. |
|
./model/src/update_masks_etc.F |
233 |
UPDATE_MASKS_ETC |
hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)* |
|
./model/src/update_masks_etc.F |
235 |
UPDATE_MASKS_ETC |
& SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
237 |
UPDATE_MASKS_ETC |
& MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj)) |
|
./model/src/update_masks_etc.F |
295 |
UPDATE_MASKS_ETC |
DO J=1-OLy,sNy+OLy |
|
./model/src/update_masks_etc.F |
297 |
UPDATE_MASKS_ETC |
IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
299 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
302 |
UPDATE_MASKS_ETC |
recip_hFacC(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
305 |
UPDATE_MASKS_ETC |
IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
307 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
310 |
UPDATE_MASKS_ETC |
recip_hFacW(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
313 |
UPDATE_MASKS_ETC |
IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/update_masks_etc.F |
315 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj) |
|
./model/src/update_masks_etc.F |
318 |
UPDATE_MASKS_ETC |
recip_hFacS(I,J,K,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
70 |
UPDATE_MASKS_ETC |
INTEGER I, J, K |
|
./model/src/update_masks_etc.F |
86 |
UPDATE_MASKS_ETC |
DO J=1-OLy,sNy+OLy |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./pkg/aim_v23/aim_diagnostics.F |
309 |
AIM_DIAGNOSTICS |
DO J=1,NGP |
|
./pkg/aim_v23/aim_diagnostics.F |
310 |
AIM_DIAGNOSTICS |
CLTOP(J,myThid)=CLTOP(J,myThid)*CLOUDC(J,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
319 |
AIM_DIAGNOSTICS |
DO J=1,sNy |
|
./pkg/aim_v23/aim_diagnostics.F |
321 |
AIM_DIAGNOSTICS |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
437 |
AIM_DIAGNOSTICS |
DO J=1,NGP |
|
./pkg/aim_v23/aim_diagnostics.F |
438 |
AIM_DIAGNOSTICS |
tmpVar(J) = EnPrec(J,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
439 |
AIM_DIAGNOSTICS |
& *(PRECNV(J,myThid)+PRECLS(J,myThid)) |
|
./pkg/aim_v23/aim_diagnostics.F |
57 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/aim_v23/aim_diagnostics.F |
72 |
AIM_DIAGNOSTICS |
DO J=1,NGP |
|
./pkg/aim_v23/aim_diagnostics.F |
73 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = fMask1(J,1,myThid)*dTsurf(J,1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
75 |
AIM_DIAGNOSTICS |
& + fMask1(J,3,myThid)*dTsurf(J,3,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
76 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = ABS(dTsurf(J,1,myThid)) |
|
./pkg/aim_v23/aim_fields_load.F |
161 |
AIM_FIELDS_LOAD |
aim_albedo(I,J,bi,bj) = aim_albedo(I,J,bi,bj)/100. |
|
./pkg/aim_v23/aim_fields_load.F |
296 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0 |
|
./pkg/aim_v23/aim_land_impl.F |
122 |
AIM_LAND_IMPL |
DO J=1,NGP |
|
./pkg/aim_v23/aim_land_impl.F |
123 |
AIM_LAND_IMPL |
IF ( dTsurf(J) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
124 |
AIM_LAND_IMPL |
SHF (J) = Shf0(J) |
|
./pkg/aim_v23/aim_land_impl.F |
125 |
AIM_LAND_IMPL |
EVAP(J) = Evp0(J) |
|
./pkg/aim_v23/aim_land_impl.F |
126 |
AIM_LAND_IMPL |
SLRU(J) = Slr0(J) |
|
./pkg/aim_v23/aim_land_impl.F |
128 |
AIM_LAND_IMPL |
SHF (J) = SHF (J) + dTsurf(J)*dShf(J) |
|
./pkg/aim_v23/aim_land_impl.F |
129 |
AIM_LAND_IMPL |
EVAP(J) = EVAP(J) + dTsurf(J)*dEvp(J) |
|
./pkg/aim_v23/aim_land_impl.F |
130 |
AIM_LAND_IMPL |
SLRU(J) = SLRU(J) + dTsurf(J)*dSlr(J) |
|
./pkg/aim_v23/aim_land_impl.F |
150 |
AIM_LAND_IMPL |
DO J=1,NGP |
|
./pkg/aim_v23/aim_land_impl.F |
151 |
AIM_LAND_IMPL |
IF ( dTsurf(J) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
152 |
AIM_LAND_IMPL |
dTsurf(J)= tFreeze - Tsurf(J) |
|
./pkg/aim_v23/aim_land_impl.F |
153 |
AIM_LAND_IMPL |
Tsurf(J) = tFreeze |
|
./pkg/aim_v23/aim_land_impl.F |
155 |
AIM_LAND_IMPL |
Tsurf(J) = Tsurf(J)+ dTsurf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
100 |
AIM_SICE_IMPL |
dTsurf(J)= tFreeze - Tsurf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
101 |
AIM_SICE_IMPL |
Tsurf(J) = tFreeze |
|
./pkg/aim_v23/aim_sice_impl.F |
102 |
AIM_SICE_IMPL |
SHF (J) = Shf0(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
103 |
AIM_SICE_IMPL |
EVAP(J) = Evp0(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
104 |
AIM_SICE_IMPL |
SLRU(J) = Slr0(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
106 |
AIM_SICE_IMPL |
Tsurf(J) = Tsurf(J)+ dTsurf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
107 |
AIM_SICE_IMPL |
SHF (J) = SHF (J) + dTsurf(J)*dShf(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
108 |
AIM_SICE_IMPL |
EVAP(J) = EVAP(J) + dTsurf(J)*dEvp(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
109 |
AIM_SICE_IMPL |
SLRU(J) = SLRU(J) + dTsurf(J)*dSlr(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
79 |
AIM_SICE_IMPL |
INTEGER J |
|
./pkg/aim_v23/aim_sice_impl.F |
85 |
AIM_SICE_IMPL |
DO J=1,NGP |
|
./pkg/aim_v23/aim_sice_impl.F |
89 |
AIM_SICE_IMPL |
dTsurf(J) = 0. |
|
./pkg/aim_v23/aim_sice_impl.F |
98 |
AIM_SICE_IMPL |
DO J=1,NGP |
|
./pkg/aim_v23/aim_sice_impl.F |
99 |
AIM_SICE_IMPL |
IF ( dTsurf(J) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
190 |
AIM_SURF_BC |
DO J=1,NGP |
|
./pkg/aim_v23/aim_surf_bc.F |
191 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
192 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
193 |
AIM_SURF_BC |
sst1(J,myThid) = MAX(sst1(J,myThid),oceTfreez) |
|
./pkg/aim_v23/aim_surf_bc.F |
194 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
195 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
197 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
201 |
AIM_SURF_BC |
DO J=1,NGP |
|
./pkg/aim_v23/aim_surf_bc.F |
202 |
AIM_SURF_BC |
sti1(J,myThid) = sst1(J,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
400 |
AIM_SURF_BC |
DO J=1,NGP |
|
./pkg/aim_v23/aim_surf_bc.F |
401 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
|
./pkg/aim_v23/aim_surf_bc.F |
402 |
AIM_SURF_BC |
& *oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
403 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
404 |
AIM_SURF_BC |
& - fMask1(J,3,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
408 |
AIM_SURF_BC |
DO J=1,NGP |
|
./pkg/aim_v23/aim_surf_bc.F |
409 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
410 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
411 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
416 |
AIM_SURF_BC |
DO J=1,NGP |
|
./pkg/aim_v23/aim_surf_bc.F |
417 |
AIM_SURF_BC |
dTsurf(J,k,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
422 |
AIM_SURF_BC |
DO J=1,NGP |
|
./pkg/aim_v23/aim_surf_bc.F |
423 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
424 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./pkg/aim_v23/aim_tendency_apply.F |
436 |
AIM_TENDENCY_APPLY_T |
INTEGER I, J |
|
./pkg/aim_v23/aim_tendency_apply.F |
439 |
AIM_TENDENCY_APPLY_T |
DO J=1,sNy |
|
./pkg/aim_v23/aim_tendency_apply.F |
498 |
AIM_TENDENCY_APPLY_S |
INTEGER I, J |
|
./pkg/aim_v23/aim_tendency_apply.F |
501 |
AIM_TENDENCY_APPLY_S |
DO J=1,sNy |
|
./pkg/aim_v23/phy_convmf.F |
103 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
104 |
CONVMF |
ITOP(J) =kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
105 |
CONVMF |
CBMF(J) =0.0 |
|
./pkg/aim_v23/phy_convmf.F |
106 |
CONVMF |
PRECNV(J)=0.0 |
|
./pkg/aim_v23/phy_convmf.F |
123 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
124 |
CONVMF |
dSEdp(J,K)=(SE(J,K+1)-SE(J,K))*factP |
|
./pkg/aim_v23/phy_convmf.F |
141 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
143 |
CONVMF |
ENTR_PS(J,K)=0. |
|
./pkg/aim_v23/phy_convmf.F |
145 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
149 |
CONVMF |
ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2 |
|
./pkg/aim_v23/phy_convmf.F |
155 |
CONVMF |
ENTR_PS(J,K) = ENTR(K)*SENTR*PSA(J) |
|
./pkg/aim_v23/phy_convmf.F |
172 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
173 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
175 |
CONVMF |
dSEdpTot = dSEdp(J,Ktmp-1) |
|
./pkg/aim_v23/phy_convmf.F |
177 |
CONVMF |
dSEdpTot = dSEdpTot + dSEdp(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
178 |
CONVMF |
stab_crit = dSEdpTot + ALHC*(QSAT(J,Ktmp)-QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
179 |
CONVMF |
& -WVI(K,2)*(dSEdp(J,K) + ALHC*(QSAT(J,K+1)-QSAT(J,K)) ) |
|
./pkg/aim_v23/phy_convmf.F |
180 |
CONVMF |
IF (stab_crit.GT.0.) ITOP(J) = K |
|
./pkg/aim_v23/phy_convmf.F |
188 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
189 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
191 |
CONVMF |
QATHR(J)=MIN(QBL,RHBL*QSAT(J,Ktmp)) |
|
./pkg/aim_v23/phy_convmf.F |
192 |
CONVMF |
IF (QA(J,Ktmp).LT.QATHR(J).OR.PSA(J).LT.PSMIN) |
|
./pkg/aim_v23/phy_convmf.F |
193 |
CONVMF |
& ITOP(J)=Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
195 |
CONVMF |
IDEPTH(J)=Ktmp-ITOP(J) |
|
./pkg/aim_v23/phy_convmf.F |
200 |
CONVMF |
DO 300 J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
201 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
202 |
CONVMF |
IF (ITOP(J).EQ.Ktmp) GO TO 300 |
|
./pkg/aim_v23/phy_convmf.F |
210 |
CONVMF |
QMAX=MAX(1.01 _d 0 *QA(J,K),QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
214 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
215 |
CONVMF |
QB=MIN(QB,QA(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
222 |
CONVMF |
FMASS = FM0(J)*MIN(FQMAX,(QA(J,K)-QATHR(J))/(QMAX-QB)) |
|
./pkg/aim_v23/phy_convmf.F |
223 |
CONVMF |
CBMF(J)=FMASS |
|
./pkg/aim_v23/phy_convmf.F |
234 |
CONVMF |
FDMUS = FMASS*dSEdp(J,K1)*(WVI(K1,2)-1.) |
|
./pkg/aim_v23/phy_convmf.F |
235 |
CONVMF |
DFSE(J,K)=FDMUS |
|
./pkg/aim_v23/phy_convmf.F |
237 |
CONVMF |
DFQA(J,K)=FDQ-FUQ |
|
./pkg/aim_v23/phy_convmf.F |
241 |
CONVMF |
DO K=Ktmp-1,ITOP(J)+1,-1 |
|
./pkg/aim_v23/phy_convmf.F |
246 |
CONVMF |
DFQA(J,K)=FUQ-FDQ |
|
./pkg/aim_v23/phy_convmf.F |
250 |
CONVMF |
ENMASS=ENTR_PS(J,K) * CBMF(J) |
|
./pkg/aim_v23/phy_convmf.F |
255 |
CONVMF |
FUQ=FUQ+ENMASS*QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
259 |
CONVMF |
QB=QA(J,K1)+WVI(K1,2)*(QA(J,K)-QA(J,K1)) |
|
./pkg/aim_v23/phy_convmf.F |
264 |
CONVMF |
DFSE(J,K) = FMASS*(WVI(K1,2)-1.)*dSEdp(J,K1) |
|
./pkg/aim_v23/phy_convmf.F |
265 |
CONVMF |
& -(FMASS-ENMASS)*WVI(K,2)*dSEdp(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
266 |
CONVMF |
FDMUS = FDMUS + DFSE(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
268 |
CONVMF |
DFQA(J,K)=DFQA(J,K)+FDQ-FUQ |
|
./pkg/aim_v23/phy_convmf.F |
271 |
CONVMF |
DELQ=RHIL*QSAT(J,K)-QA(J,K) |
|
./pkg/aim_v23/phy_convmf.F |
273 |
CONVMF |
FSQ=SMF*CBMF(J)*DELQ |
|
./pkg/aim_v23/phy_convmf.F |
274 |
CONVMF |
DFQA(J,K) =DFQA(J,K) +FSQ |
|
./pkg/aim_v23/phy_convmf.F |
275 |
CONVMF |
DFQA(J,Ktmp)=DFQA(J,Ktmp)-FSQ |
|
./pkg/aim_v23/phy_convmf.F |
282 |
CONVMF |
K=ITOP(J) |
|
./pkg/aim_v23/phy_convmf.F |
285 |
CONVMF |
QSATB=QSAT(J,K)+WVI(K,2)*(QSAT(J,K+1)-QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
286 |
CONVMF |
PRECNV(J)=MAX(FUQ-FMASS*QSATB, 0. _d 0) |
|
./pkg/aim_v23/phy_convmf.F |
289 |
CONVMF |
DFSE(J,K)= -FDMUS+ALHC*PRECNV(J) |
|
./pkg/aim_v23/phy_convmf.F |
291 |
CONVMF |
DFQA(J,K)=FUQ-FDQ-PRECNV(J) |
|
./pkg/aim_v23/phy_convmf.F |
65 |
CONVMF |
INTEGER J, K, K1, Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
82 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
83 |
CONVMF |
FM0(J)=0. |
|
./pkg/aim_v23/phy_convmf.F |
84 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
86 |
CONVMF |
FPSA = MIN(1. _d 0 ,(PSA(J)-PSMIN)*RDPS) |
|
./pkg/aim_v23/phy_convmf.F |
87 |
CONVMF |
FM0(J)=P0*DSIG(Ktmp)*dpFac(J,Ktmp)/(GG*TRCNV*3600. _d 0) |
|
./pkg/aim_v23/phy_convmf.F |
92 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
93 |
CONVMF |
DFSE(J,K)=0.0 |
|
./pkg/aim_v23/phy_convmf.F |
94 |
CONVMF |
DFQA(J,K)=0.0 |
|
./pkg/aim_v23/phy_convmf.F |
98 |
CONVMF |
DO J=1,NGP |
|
./pkg/aim_v23/phy_convmf.F |
99 |
CONVMF |
ENTR_PS(J,K)=0. |
|
./pkg/aim_v23/phy_driver.F |
129 |
PHY_DRIVER |
INTEGER J, K |
|
./pkg/aim_v23/phy_driver.F |
149 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
150 |
PHY_DRIVER |
PSG_1(J)=1. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
185 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
186 |
PHY_DRIVER |
TT_CNV(J,K,myThid)=TT_CNV(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
187 |
PHY_DRIVER |
QT_CNV(J,K,myThid)=QT_CNV(J,K,myThid)*RPS_1*GRDSIG(K) |
|
./pkg/aim_v23/phy_driver.F |
210 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
211 |
PHY_DRIVER |
EnPrec(J,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
256 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
257 |
PHY_DRIVER |
CLTOP(J,myThid)=SIGH(ICLTOP(J)-1)*PSG_1(J) |
|
./pkg/aim_v23/phy_driver.F |
261 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
262 |
PHY_DRIVER |
TT_RSW(J,K,myThid)=TT_RSW(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
347 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
348 |
PHY_DRIVER |
SHF (J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
349 |
PHY_DRIVER |
EVAP(J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
350 |
PHY_DRIVER |
SLR (J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
383 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
384 |
PHY_DRIVER |
TT_RLW(J,K,myThid)=TT_RLW(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
424 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
425 |
PHY_DRIVER |
TT_SWclr(J,K,myThid)=TT_SWclr(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
426 |
PHY_DRIVER |
TT_LWclr(J,K,myThid)=TT_LWclr(J,K,myThid)*RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
445 |
PHY_DRIVER |
DO J=1,NGP |
|
./pkg/aim_v23/phy_driver.F |
450 |
PHY_DRIVER |
K = kGround(J) |
|
./pkg/aim_v23/phy_driver.F |
452 |
PHY_DRIVER |
TT_PBL(J,K,myThid) = TT_PBL(J,K,myThid) |
|
./pkg/aim_v23/phy_driver.F |
453 |
PHY_DRIVER |
& + SHF(J,0,myThid) *RPS_1*GRDSCP(K) |
|
./pkg/aim_v23/phy_driver.F |
454 |
PHY_DRIVER |
QT_PBL(J,K,myThid) = QT_PBL(J,K,myThid) |
|
./pkg/aim_v23/phy_driver.F |
455 |
PHY_DRIVER |
& + EVAP(J,0,myThid)*RPS_1*GRDSIG(K) |
|
./pkg/aim_v23/phy_lscond.F |
100 |
LSCOND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_lscond.F |
101 |
LSCOND |
DQLSC(J,K) = DQLSC(J,K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
102 |
LSCOND |
DTLSC(J,K) = DTLSC(J,K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
108 |
LSCOND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_lscond.F |
109 |
LSCOND |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_lscond.F |
111 |
LSCOND |
PRECLS(J) = PRECLS(J)-PFACT*DQLSC(J,K) |
|
./pkg/aim_v23/phy_lscond.F |
53 |
LSCOND |
INTEGER J, K |
|
./pkg/aim_v23/phy_lscond.F |
69 |
LSCOND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_lscond.F |
70 |
LSCOND |
DTLSC(J,1) = 0. |
|
./pkg/aim_v23/phy_lscond.F |
71 |
LSCOND |
DQLSC(J,1) = 0. |
|
./pkg/aim_v23/phy_lscond.F |
72 |
LSCOND |
PRECLS(J) = 0. |
|
./pkg/aim_v23/phy_lscond.F |
73 |
LSCOND |
PSA2(J) = PSA(J)*PSA(J) |
|
./pkg/aim_v23/phy_lscond.F |
84 |
LSCOND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_lscond.F |
85 |
LSCOND |
RHREF = RHLSC+DRHLSC*(SIG2/PSA2(J) - 1. _d 0) |
|
./pkg/aim_v23/phy_lscond.F |
87 |
LSCOND |
DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC |
|
./pkg/aim_v23/phy_lscond.F |
92 |
LSCOND |
DQLSC(J,K) = MAX(-DQMAX, DQLSC(J,K) ) |
|
./pkg/aim_v23/phy_lscond.F |
93 |
LSCOND |
DTLSC(J,K) = -TFACT*DQLSC(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
104 |
SOL_OZ |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
106 |
SOL_OZ |
FLAT2 = 1.5 _d 0*SLAT(J)**2 - 0.5 _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
110 |
SOL_OZ |
FSOL(J) = SOLC* |
|
./pkg/aim_v23/phy_radiat.F |
111 |
SOL_OZ |
& MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 ) |
|
./pkg/aim_v23/phy_radiat.F |
113 |
SOL_OZ |
IF ( CLAT(J) .EQ. 0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
114 |
SOL_OZ |
TanLat = SIGN(1. _d 0, SLAT(J) ) * largeTan |
|
./pkg/aim_v23/phy_radiat.F |
116 |
SOL_OZ |
TanLat = SLAT(J)/CLAT(J) |
|
./pkg/aim_v23/phy_radiat.F |
121 |
SOL_OZ |
FSOL(J) = 4. _d 0 / PI * SOLC * |
|
./pkg/aim_v23/phy_radiat.F |
122 |
SOL_OZ |
& (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng)) |
|
./pkg/aim_v23/phy_radiat.F |
126 |
SOL_OZ |
OZUPP(J) = EPSSW*(1.-FLAT2) |
|
./pkg/aim_v23/phy_radiat.F |
127 |
SOL_OZ |
OZONE(J) = EPSSW*(1.+COZ1*SLAT(J)+COZ2*FLAT2) |
|
./pkg/aim_v23/phy_radiat.F |
130 |
SOL_OZ |
ZENIT(J) = 1. + AZEN* |
|
./pkg/aim_v23/phy_radiat.F |
131 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
134 |
SOL_OZ |
OZUPP(J)=FSOL(J)*OZUPP(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
135 |
SOL_OZ |
OZONE(J)=FSOL(J)*OZONE(J)*ZENIT(J) |
|
./pkg/aim_v23/phy_radiat.F |
136 |
SOL_OZ |
STRATZ(J)=AST*FSOL(J)*CLAT(J)**3 |
|
./pkg/aim_v23/phy_radiat.F |
137 |
SOL_OZ |
& +MAX( FS0-FSOL(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_radiat.F |
230 |
RADSW |
INTEGER K, J |
|
./pkg/aim_v23/phy_radiat.F |
240 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
241 |
RADSW |
NL1(J)=kGrd(J)-1 |
|
./pkg/aim_v23/phy_radiat.F |
255 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
256 |
RADSW |
CLOUDC(J)=0. |
|
./pkg/aim_v23/phy_radiat.F |
257 |
RADSW |
QCLOUD(J)=0. |
|
./pkg/aim_v23/phy_radiat.F |
258 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
259 |
RADSW |
FREFL(J,1)=0. |
|
./pkg/aim_v23/phy_radiat.F |
263 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
264 |
RADSW |
ALBTOP(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
266 |
RADSW |
CLDCLW(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
275 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
276 |
RADSW |
ICLTOP(J)= kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
277 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
279 |
RADSW |
IF (RH(J,K).GT.RHCL1.AND.QA(J,K).GT.QACL1) THEN |
|
./pkg/aim_v23/phy_radiat.F |
280 |
RADSW |
CLOUDC(J)=MAX(CLOUDC(J),RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
281 |
RADSW |
IF (QA(J,K).GT.QACL3) ICLTOP(J)=K |
|
./pkg/aim_v23/phy_radiat.F |
283 |
RADSW |
CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1) |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
CLDCLW(J,K)=MIN(1. _d 0,CLDCLW(J,K)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
290 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
291 |
RADSW |
IF (kGrd(J).NE.0) |
|
./pkg/aim_v23/phy_radiat.F |
292 |
RADSW |
& QCLOUD(J)= MAX( QA(J,kGrd(J)), QA(J,NL1(J)) ) |
|
./pkg/aim_v23/phy_radiat.F |
293 |
RADSW |
CLOUDC(J)=MIN(1. _d 0,CLOUDC(J)*RRCL) |
|
./pkg/aim_v23/phy_radiat.F |
294 |
RADSW |
IF (CLOUDC(J).GT.0.0) THEN |
|
./pkg/aim_v23/phy_radiat.F |
295 |
RADSW |
CLOUDC(J)=CLOUDC(J)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
297 |
RADSW |
DO K=NL1(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
298 |
RADSW |
CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL) |
|
./pkg/aim_v23/phy_radiat.F |
301 |
RADSW |
ALBTOP(J,ICLTOP(J))=ALBCL*CLOUDC(J) |
|
./pkg/aim_v23/phy_radiat.F |
303 |
RADSW |
ICLTOP(J)=NLEV+1 |
|
./pkg/aim_v23/phy_radiat.F |
315 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
317 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABSCL1+ABSCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
320 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
322 |
RADSW |
DELTAP=ZENIT(J)*DSIG(1)*dpFac(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
323 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABSDRY) |
|
./pkg/aim_v23/phy_radiat.F |
326 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
327 |
RADSW |
DO K=2,NL1(J) |
|
./pkg/aim_v23/phy_radiat.F |
330 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
331 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
332 |
RADSW |
IF (K.EQ.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
333 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
334 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+2.*ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
335 |
RADSW |
ELSE IF (K.GT.ICLTOP(J)) THEN |
|
./pkg/aim_v23/phy_radiat.F |
336 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP* |
|
./pkg/aim_v23/phy_radiat.F |
337 |
RADSW |
& (ABS1+ABSWV1*QA(J,K)+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
339 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
345 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
346 |
RADSW |
K = kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
ABS1=ABSDRY+ABSAER*(SIG(K)/PSA(J))**2 |
|
./pkg/aim_v23/phy_radiat.F |
349 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
350 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABS1+ABSWV1*QA(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
353 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
354 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
355 |
RADSW |
DELTAP=ZENIT(J)*DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
356 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*ABSWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
367 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
368 |
RADSW |
FTOP(J) =FSOL(J) |
|
./pkg/aim_v23/phy_radiat.F |
369 |
RADSW |
FLUX(J,1)=FSOL(J)*FBAND1-OZUPP(J) |
|
./pkg/aim_v23/phy_radiat.F |
370 |
RADSW |
FLUX(J,2)=FSOL(J)*FBAND2 |
|
./pkg/aim_v23/phy_radiat.F |
371 |
RADSW |
STRATC(J)=STRATZ(J)*PSA(J) |
|
./pkg/aim_v23/phy_radiat.F |
377 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
378 |
RADSW |
DFABS(J,1)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
379 |
RADSW |
FLUX (J,1)=TAU2(J,1,1)*(FLUX(J,1)-OZONE(J)*PSA(J)) |
|
./pkg/aim_v23/phy_radiat.F |
380 |
RADSW |
DFABS(J,1)=DFABS(J,1)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
385 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
386 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
387 |
RADSW |
FREFL(J,K)=FLUX(J,1)*ALBTOP(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
388 |
RADSW |
FLUX (J,1)=FLUX(J,1)-FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
389 |
RADSW |
DFABS(J,K)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
390 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
391 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
395 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
396 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
397 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
398 |
RADSW |
FLUX (J,2)=TAU2(J,K,2)*FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
399 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
408 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
410 |
RADSW |
FSFC(J,1)=FLUX(J,1)*(1.-ALB(J,1))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
411 |
RADSW |
FSFC(J,2)=FLUX(J,1)*(1.-ALB(J,2))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
412 |
RADSW |
FSFC(J,3)=FLUX(J,1)*(1.-ALB(J,3))+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
414 |
RADSW |
FSFC(J,0)=FLUX(J,1)+FLUX(J,2) |
|
./pkg/aim_v23/phy_radiat.F |
415 |
RADSW |
FLUX(J,1)=FLUX(J,1)*ALB(J,0) |
|
./pkg/aim_v23/phy_radiat.F |
416 |
RADSW |
FSFC(J,0)=FSFC(J,0)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
420 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
421 |
RADSW |
UPSWG(J)=FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
427 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
428 |
RADSW |
IF ( K .LE. kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
429 |
RADSW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
430 |
RADSW |
FLUX (J,1)=TAU2(J,K,1)*FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
431 |
RADSW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
432 |
RADSW |
FLUX (J,1)=FLUX(J,1)+FREFL(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
434 |
RADSW |
DFABS(J,K)= 0. _d 0 |
|
./pkg/aim_v23/phy_radiat.F |
441 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
442 |
RADSW |
FTOP(J)=FTOP(J)-FLUX(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
453 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
454 |
RADSW |
ACLDLW(J,K)=CLDCLW(J,K)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
458 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
459 |
RADSW |
ACLOUD(J)=CLOUDC(J)*(ABLCL1+ABLCL2*QCLOUD(J)) |
|
./pkg/aim_v23/phy_radiat.F |
463 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
465 |
RADSW |
DELTAP=DSIG(1)*dpFac(J,1) |
|
./pkg/aim_v23/phy_radiat.F |
466 |
RADSW |
TAU2(J,1,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
467 |
RADSW |
TAU2(J,1,2)=EXP(-DELTAP*absCO2) |
|
./pkg/aim_v23/phy_radiat.F |
468 |
RADSW |
TAU2(J,1,3)=1. |
|
./pkg/aim_v23/phy_radiat.F |
469 |
RADSW |
TAU2(J,1,4)=1. |
|
./pkg/aim_v23/phy_radiat.F |
473 |
RADSW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
475 |
RADSW |
DELTAP=DSIG(K)*dpFac(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
476 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
478 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLDLW(J,K))) |
|
./pkg/aim_v23/phy_radiat.F |
480 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*(ABLWIN+ACLOUD(J))) |
|
./pkg/aim_v23/phy_radiat.F |
483 |
RADSW |
TAU2(J,K,1)=EXP(-DELTAP*ABLWIN) |
|
./pkg/aim_v23/phy_radiat.F |
485 |
RADSW |
TAU2(J,K,2)=EXP(-DELTAP*absCO2) |
|
./pkg/aim_v23/phy_radiat.F |
486 |
RADSW |
TAU2(J,K,3)=EXP(-DELTAP*ABLWV1*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
487 |
RADSW |
TAU2(J,K,4)=EXP(-DELTAP*ABLWV2*QA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
564 |
RADLW |
INTEGER K, J, JB |
|
./pkg/aim_v23/phy_radiat.F |
571 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
572 |
RADLW |
NL1(J)=kGrd(J)-1 |
|
./pkg/aim_v23/phy_radiat.F |
585 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
586 |
RADLW |
ST4A(J,K,1)=TA(J,K)*TA(J,K) |
|
./pkg/aim_v23/phy_radiat.F |
587 |
RADLW |
ST4A(J,K,1)=SBC*ST4A(J,K,1)*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
592 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
593 |
RADLW |
ST4A(J,K,2)=TA(J,K)+WVI(K,2)*(TA(J,K+1)-TA(J,K)) |
|
./pkg/aim_v23/phy_radiat.F |
594 |
RADLW |
ST4A(J,K,2)=ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
595 |
RADLW |
ST4A(J,K,2)=SBC*ST4A(J,K,2)*ST4A(J,K,2) |
|
./pkg/aim_v23/phy_radiat.F |
599 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
601 |
RADLW |
K=kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
602 |
RADLW |
ST4A(J,K,2)=2.*ST4A(J,K,1)-ST4A(J,NL1(J),2) |
|
./pkg/aim_v23/phy_radiat.F |
608 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
609 |
RADLW |
FTOP(J) = 0. |
|
./pkg/aim_v23/phy_radiat.F |
610 |
RADLW |
FSFC(J) = STRATC(J) |
|
./pkg/aim_v23/phy_radiat.F |
611 |
RADLW |
DFABS(J,1)=-STRATC(J) |
|
./pkg/aim_v23/phy_radiat.F |
615 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
616 |
RADLW |
DFABS(J,K)=0. |
|
./pkg/aim_v23/phy_radiat.F |
61 |
SOL_OZ |
INTEGER J, NZEN |
|
./pkg/aim_v23/phy_radiat.F |
629 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
630 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
631 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
632 |
RADLW |
FLUX(J,JB)=EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
633 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
638 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
639 |
RADLW |
FLUX(J,JB)=0. |
|
./pkg/aim_v23/phy_radiat.F |
646 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
647 |
RADLW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
648 |
RADLW |
BRAD=ST4A(J,K,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K,2)) |
|
./pkg/aim_v23/phy_radiat.F |
649 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
650 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
651 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
652 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
658 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
659 |
RADLW |
FSFC(J)=FSFC(J)+EMISFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
673 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
674 |
RADLW |
ST4S(J)=TS(J)*TS(J) |
|
./pkg/aim_v23/phy_radiat.F |
675 |
RADLW |
ST4S(J)=SBC*ST4S(J)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
676 |
RADLW |
ST4S(J)=EMISFC*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
682 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
683 |
RADLW |
FSFC(J)=ST4S(J)-FSFC(J) |
|
./pkg/aim_v23/phy_radiat.F |
684 |
RADLW |
FTOP(J)=FTOP(J)+FBAND(NINT(TS(J)),0)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
688 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
689 |
RADLW |
FLUX(J,JB)=FBAND(NINT(TS(J)),JB)*ST4S(J) |
|
./pkg/aim_v23/phy_radiat.F |
690 |
RADLW |
& +REFSFC*FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
697 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
698 |
RADLW |
DO K=kGrd(J),2,-1 |
|
./pkg/aim_v23/phy_radiat.F |
699 |
RADLW |
BRAD=ST4A(J,K-1,2)+TAU2(J,K,JB)*(ST4A(J,K,1)-ST4A(J,K-1,2)) |
|
./pkg/aim_v23/phy_radiat.F |
700 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
701 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
702 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*BRAD |
|
./pkg/aim_v23/phy_radiat.F |
703 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
712 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
713 |
RADLW |
EMIS=FBAND(NINT(TA(J,K)),JB)*(1.-TAU2(J,K,JB)) |
|
./pkg/aim_v23/phy_radiat.F |
714 |
RADLW |
DFABS(J,K)=DFABS(J,K)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
715 |
RADLW |
FLUX(J,JB)=TAU2(J,K,JB)*FLUX(J,JB)+EMIS*ST4A(J,K,1) |
|
./pkg/aim_v23/phy_radiat.F |
716 |
RADLW |
DFABS(J,K)=DFABS(J,K)-FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
723 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
724 |
RADLW |
FTOP(J)=FTOP(J)+FLUX(J,JB) |
|
./pkg/aim_v23/phy_radiat.F |
728 |
RADLW |
DO J=1,NGP |
|
./pkg/aim_v23/phy_radiat.F |
729 |
RADLW |
FTOP(J)=FTOP(J)+OZUPP(J) |
|
./pkg/aim_v23/phy_shtorh.F |
103 |
SHTORH |
DO 210 J=1,NGP |
|
./pkg/aim_v23/phy_shtorh.F |
104 |
SHTORH |
IF(QSAT(J).NE.0.) then |
|
./pkg/aim_v23/phy_shtorh.F |
105 |
SHTORH |
RH(J)=QA(J)/QSAT(J) |
|
./pkg/aim_v23/phy_shtorh.F |
107 |
SHTORH |
RH(J)=0. |
|
./pkg/aim_v23/phy_shtorh.F |
111 |
SHTORH |
DO 220 J=1,NGP |
|
./pkg/aim_v23/phy_shtorh.F |
112 |
SHTORH |
QA(J)=RH(J)*QSAT(J) |
|
./pkg/aim_v23/phy_shtorh.F |
133 |
ZMEDDY |
INTEGER I,J |
|
./pkg/aim_v23/phy_shtorh.F |
141 |
ZMEDDY |
DO 130 J=1,NLAT |
|
./pkg/aim_v23/phy_shtorh.F |
143 |
ZMEDDY |
ZM(J)=0. |
|
./pkg/aim_v23/phy_shtorh.F |
145 |
ZMEDDY |
ZM(J)=ZM(J)+FF(I,J) |
|
./pkg/aim_v23/phy_shtorh.F |
147 |
ZMEDDY |
ZM(J)=ZM(J)*RNLON |
|
./pkg/aim_v23/phy_shtorh.F |
150 |
ZMEDDY |
EDDY(I,J)=FF(I,J)-ZM(J) |
|
./pkg/aim_v23/phy_shtorh.F |
40 |
SHTORH |
INTEGER J |
|
./pkg/aim_v23/phy_shtorh.F |
62 |
SHTORH |
DO J=1,NGP |
|
./pkg/aim_v23/phy_shtorh.F |
63 |
SHTORH |
QSAT(J)=0. |
|
./pkg/aim_v23/phy_shtorh.F |
65 |
SHTORH |
IF (SIG.GT.0.0) sigP=SIG*PS(J) |
|
./pkg/aim_v23/phy_shtorh.F |
66 |
SHTORH |
IF (TA(J).GE.T0) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
67 |
SHTORH |
tmpQ = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
68 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
69 |
SHTORH |
recT = 1. _d 0 / (TA(J)-T1) |
|
./pkg/aim_v23/phy_shtorh.F |
70 |
SHTORH |
RH(J) = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
71 |
SHTORH |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
72 |
SHTORH |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_shtorh.F |
73 |
SHTORH |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
74 |
SHTORH |
recT = 1. _d 0 / (TA(J)-T2) |
|
./pkg/aim_v23/phy_shtorh.F |
75 |
SHTORH |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/aim_v23/phy_shtorh.F |
81 |
SHTORH |
DO 110 J=1,NGP |
|
./pkg/aim_v23/phy_shtorh.F |
82 |
SHTORH |
QSAT(J)=0. |
|
./pkg/aim_v23/phy_shtorh.F |
83 |
SHTORH |
IF (TA(J).GE.T0) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
84 |
SHTORH |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/aim_v23/phy_shtorh.F |
85 |
SHTORH |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/aim_v23/phy_shtorh.F |
86 |
SHTORH |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/aim_v23/phy_shtorh.F |
91 |
SHTORH |
DO 120 J=1,NGP |
|
./pkg/aim_v23/phy_shtorh.F |
92 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
|
./pkg/aim_v23/phy_shtorh.F |
95 |
SHTORH |
DO 130 J=1,NGP |
|
./pkg/aim_v23/phy_shtorh.F |
96 |
SHTORH |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |
|
./pkg/aim_v23/phy_snow_precip.F |
105 |
SNOW_PRECIP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_snow_precip.F |
106 |
SNOW_PRECIP |
IF (kGrd(J).NE.0 .AND. IDEPTH(J).NE.0 ) THEN |
|
./pkg/aim_v23/phy_snow_precip.F |
107 |
SNOW_PRECIP |
Ktop = kGrd(J) - IDEPTH(J) |
|
./pkg/aim_v23/phy_snow_precip.F |
108 |
SNOW_PRECIP |
DTCNV(J,Ktop) = DTCNV(J,Ktop) |
|
./pkg/aim_v23/phy_snow_precip.F |
109 |
SNOW_PRECIP |
& - EnPrec(J)*PRECNV(J)*GRDSCP(Ktop) |
|
./pkg/aim_v23/phy_snow_precip.F |
71 |
SNOW_PRECIP |
INTEGER J, K, Ktop |
|
./pkg/aim_v23/phy_snow_precip.F |
82 |
SNOW_PRECIP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_snow_precip.F |
83 |
SNOW_PRECIP |
IF ( kGrd(J).NE.0 ) THEN |
|
./pkg/aim_v23/phy_snow_precip.F |
84 |
SNOW_PRECIP |
T1(J) = ThA(J,kGrd(J))*(PSA(J)**kappa) |
|
./pkg/aim_v23/phy_snow_precip.F |
85 |
SNOW_PRECIP |
IF ( T1(J) .GE. tFreeze ) THEN |
|
./pkg/aim_v23/phy_snow_precip.F |
86 |
SNOW_PRECIP |
EnPrec(J) = rainCP*(T1(J)-tFreeze) |
|
./pkg/aim_v23/phy_snow_precip.F |
88 |
SNOW_PRECIP |
EnPrec(J) = -ALHF |
|
./pkg/aim_v23/phy_snow_precip.F |
91 |
SNOW_PRECIP |
EnPrec(J) = 0. |
|
./pkg/aim_v23/phy_snow_precip.F |
97 |
SNOW_PRECIP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_snow_precip.F |
98 |
SNOW_PRECIP |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_snow_precip.F |
99 |
SNOW_PRECIP |
DTLSC(J,K) = DTLSC(J,K) + EnPrec(J)*DQLSC(J,K)/CP |
|
./pkg/aim_v23/phy_suflux_land.F |
106 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
107 |
SUFLUX_LAND |
TSKIN(J) = Tsurf(J) + dTskin(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
108 |
SUFLUX_LAND |
TSFC(J)=273.16 _d 0 + dTskin(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
118 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
119 |
SUFLUX_LAND |
FSLAND=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
120 |
SUFLUX_LAND |
CDENVV(J)=CHL*DENVV(J)*FSLAND |
|
./pkg/aim_v23/phy_suflux_land.F |
127 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
128 |
SUFLUX_LAND |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
129 |
SUFLUX_LAND |
Shf0(J) = CHL*DENVV(J)*Fstb0 |
|
./pkg/aim_v23/phy_suflux_land.F |
130 |
SUFLUX_LAND |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_suflux_land.F |
132 |
SUFLUX_LAND |
dShf(J) = CHL*DENVV(J)*dFstb |
|
./pkg/aim_v23/phy_suflux_land.F |
147 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
148 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
149 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
150 |
SUFLUX_LAND |
dEvp(J) = CDENVV(J)*SWAV(J)*dEvp(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
151 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
154 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
155 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
156 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
157 |
SUFLUX_LAND |
dEvp(J) = CDENVV(J)*SWAV(J)*dEvp(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
164 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
165 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
166 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
167 |
SUFLUX_LAND |
dEvp(J) = CDENVV(J)*SWAV(J)*dEvp(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
168 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
171 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
175 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
176 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
177 |
SUFLUX_LAND |
dEvp(J) = CDENVV(J)*SWAV(J)*dEvp(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
186 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
187 |
SUFLUX_LAND |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
188 |
SUFLUX_LAND |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
189 |
SUFLUX_LAND |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_land.F |
190 |
SUFLUX_LAND |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
191 |
SUFLUX_LAND |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_suflux_land.F |
195 |
SUFLUX_LAND |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHC ) |
|
./pkg/aim_v23/phy_suflux_land.F |
198 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
199 |
SUFLUX_LAND |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
200 |
SUFLUX_LAND |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
201 |
SUFLUX_LAND |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_land.F |
207 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
208 |
SUFLUX_LAND |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
209 |
SUFLUX_LAND |
Slr0(J) = SBC*TS2*TS2 |
|
./pkg/aim_v23/phy_suflux_land.F |
210 |
SUFLUX_LAND |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
211 |
SUFLUX_LAND |
SLRU(J) = SBC*TS2*TS2 |
|
./pkg/aim_v23/phy_suflux_land.F |
212 |
SUFLUX_LAND |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
216 |
SUFLUX_LAND |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_land.F |
217 |
SUFLUX_LAND |
sFlx(J,0)= ( SSR(J) + SLRD(J) - EMISloc*Slr0(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
218 |
SUFLUX_LAND |
& - ( Shf0(J) + ALHC*Evp0(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
219 |
SUFLUX_LAND |
sFlx(J,1)= ( SSR(J) + SLRD(J) - EMISloc*SLRU(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
220 |
SUFLUX_LAND |
& - ( SHF(J)+ ALHC*EVAP(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
221 |
SUFLUX_LAND |
sFlx(J,2)= - EMISloc*dSlr(J) |
|
./pkg/aim_v23/phy_suflux_land.F |
222 |
SUFLUX_LAND |
& - ( dShf(J) + ALHC*dEvp(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
99 |
SUFLUX_LAND |
INTEGER J |
|
./pkg/aim_v23/phy_suflux_ocean.F |
103 |
SUFLUX_OCEAN |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_ocean.F |
104 |
SUFLUX_OCEAN |
EVAP(J) = CDENVV(J)*(QSAT0(J)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
109 |
SUFLUX_OCEAN |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_ocean.F |
110 |
SUFLUX_OCEAN |
TS4 = Tsurf(J)**4 |
|
./pkg/aim_v23/phy_suflux_ocean.F |
111 |
SUFLUX_OCEAN |
SLRU(J) = SBC*TS4 |
|
./pkg/aim_v23/phy_suflux_ocean.F |
75 |
SUFLUX_OCEAN |
INTEGER J |
|
./pkg/aim_v23/phy_suflux_ocean.F |
89 |
SUFLUX_OCEAN |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_ocean.F |
90 |
SUFLUX_OCEAN |
FSSEA =1.+MIN(DTHETA,MAX(-DTHETA, Tsurf(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_ocean.F |
91 |
SUFLUX_OCEAN |
CDENVV(J)=CHS*DENVV(J)*FSSEA |
|
./pkg/aim_v23/phy_suflux_ocean.F |
94 |
SUFLUX_OCEAN |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_ocean.F |
95 |
SUFLUX_OCEAN |
SHF(J) = CDENVV(J)*CP*(Tsurf(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_post.F |
109 |
SUFLUX_POST |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_post.F |
116 |
SUFLUX_POST |
DRAG(J,0) = (FMASK(J,1)*DRAG(J,1)+FMASK(J,2)*DRAG(J,2) |
|
./pkg/aim_v23/phy_suflux_post.F |
117 |
SUFLUX_POST |
& +FMASK(J,3)*DRAG(J,3)) |
|
./pkg/aim_v23/phy_suflux_post.F |
118 |
SUFLUX_POST |
SHF (J,0) = (FMASK(J,1)*SHF(J,1) +FMASK(J,2)*SHF(J,2) |
|
./pkg/aim_v23/phy_suflux_post.F |
119 |
SUFLUX_POST |
& +FMASK(J,3)*SHF(J,3) ) |
|
./pkg/aim_v23/phy_suflux_post.F |
120 |
SUFLUX_POST |
EVAP(J,0) = (FMASK(J,1)*EVAP(J,1)+FMASK(J,2)*EVAP(J,2) |
|
./pkg/aim_v23/phy_suflux_post.F |
121 |
SUFLUX_POST |
& +FMASK(J,3)*EVAP(J,3)) |
|
./pkg/aim_v23/phy_suflux_post.F |
122 |
SUFLUX_POST |
SLRU(J) = (FMASK(J,1)*SLRup(J,1)+FMASK(J,2)*SLRup(J,2) |
|
./pkg/aim_v23/phy_suflux_post.F |
123 |
SUFLUX_POST |
& +FMASK(J,3)*SLRup(J,3)) |
|
./pkg/aim_v23/phy_suflux_post.F |
126 |
SUFLUX_POST |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_post.F |
128 |
SUFLUX_POST |
TSFC(J) = (FMASK(J,1)*TLAND(J) + FMASK(J,2)*TSEA(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
129 |
SUFLUX_POST |
& + FMASK(J,3)*TSICE(J)) |
|
./pkg/aim_v23/phy_suflux_post.F |
130 |
SUFLUX_POST |
TSKIN(J) = TSFC(J)+FMASK(J,1)*dTskin(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
135 |
SUFLUX_POST |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_post.F |
136 |
SUFLUX_POST |
SLRup(J,1)=EMISloc*SLRup(J,1)-SLRD(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
137 |
SUFLUX_POST |
SLRup(J,2)=EMISloc*SLRup(J,2)-SLRD(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
138 |
SUFLUX_POST |
SLRup(J,3)=EMISloc*SLRup(J,3)-SLRD(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
139 |
SUFLUX_POST |
SLRU(J) =EMISloc*SLRU(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
143 |
SUFLUX_POST |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_post.F |
144 |
SUFLUX_POST |
IF ( TSFC(J).LT.lwTemp1 .OR. |
|
./pkg/aim_v23/phy_suflux_post.F |
145 |
SUFLUX_POST |
& TSFC(J).GT.lwTemp2 ) THEN |
|
./pkg/aim_v23/phy_suflux_post.F |
146 |
SUFLUX_POST |
i1 = 1 + mod((J-1),sNx) |
|
./pkg/aim_v23/phy_suflux_post.F |
147 |
SUFLUX_POST |
j1 = 1 + int((J-1)/sNx) |
|
./pkg/aim_v23/phy_suflux_post.F |
149 |
SUFLUX_POST |
& 'SUFLUX_POST: TS=', TSFC(J), |
|
./pkg/aim_v23/phy_suflux_post.F |
153 |
SUFLUX_POST |
& 'SUFLUX_POST: T_Lnd,Sea,Sic=',TLAND(J),TSEA(J),TSICE(J), |
|
./pkg/aim_v23/phy_suflux_post.F |
154 |
SUFLUX_POST |
& ' Mask:',FMASK(J,1),FMASK(J,2),FMASK(J,3) |
|
./pkg/aim_v23/phy_suflux_post.F |
158 |
SUFLUX_POST |
& i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj) |
|
./pkg/aim_v23/phy_suflux_post.F |
93 |
SUFLUX_POST |
INTEGER J,i1,j1 |
|
./pkg/aim_v23/phy_suflux_prep.F |
128 |
SUFLUX_PREP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
129 |
SUFLUX_PREP |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
134 |
SUFLUX_PREP |
T0(J) = TA(J,Ktmp) + WVS(J)*(TA(J,Ktmp)-TA(J,NL1)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
137 |
SUFLUX_PREP |
T1(J) = ThA(J,Ktmp)*(PSA(J)**kappa) |
|
./pkg/aim_v23/phy_suflux_prep.F |
138 |
SUFLUX_PREP |
tmpRH(J)=RH(J,Ktmp) |
|
./pkg/aim_v23/phy_suflux_prep.F |
140 |
SUFLUX_PREP |
T0(J) = 273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_prep.F |
141 |
SUFLUX_PREP |
T1(J) = 273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_prep.F |
142 |
SUFLUX_PREP |
tmpRH(J)= 0. |
|
./pkg/aim_v23/phy_suflux_prep.F |
146 |
SUFLUX_PREP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
148 |
SUFLUX_PREP |
T0(J) = FTEMP0*MIN(T0(J),T1(J))+GTEMP0*T1(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
157 |
SUFLUX_PREP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
158 |
SUFLUX_PREP |
IF ( kGrd(J) .GT. 0 ) THEN |
|
./pkg/aim_v23/phy_suflux_prep.F |
159 |
SUFLUX_PREP |
Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,kGrd(J)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
169 |
SUFLUX_PREP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
172 |
SUFLUX_PREP |
SPEED0(J)=SQRT(factWind2*Vsurf2(J)+VG2) |
|
./pkg/aim_v23/phy_suflux_prep.F |
173 |
SUFLUX_PREP |
DENVV(J)=(PRD*PSA(J)/T0(J))*SPEED0(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
180 |
SUFLUX_PREP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
181 |
SUFLUX_PREP |
dTskin(J)=CTDAY*CLAT(J)*SSR(J)*PSA(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
191 |
SUFLUX_PREP |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
194 |
SUFLUX_PREP |
DRAG(J,1) = CDL*DENVV(J)*FOROG(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
195 |
SUFLUX_PREP |
DRAG(J,2) = CDS*DENVV(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
196 |
SUFLUX_PREP |
DRAG(J,3) = CDS*DENVV(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
249 |
SFLSET |
INTEGER J |
|
./pkg/aim_v23/phy_suflux_prep.F |
254 |
SFLSET |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_prep.F |
255 |
SFLSET |
FOROG(J) = 1. _d 0 |
|
./pkg/aim_v23/phy_suflux_prep.F |
256 |
SFLSET |
& + FHDRAG*(1. _d 0 - EXP(-MAX(PHI0(J),0. _d 0)*RHDRAG) ) |
|
./pkg/aim_v23/phy_suflux_prep.F |
99 |
SUFLUX_PREP |
INTEGER J, Ktmp, NL1 |
|
./pkg/aim_v23/phy_suflux_sice.F |
100 |
SUFLUX_SICE |
INTEGER J |
|
./pkg/aim_v23/phy_suflux_sice.F |
111 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
114 |
SUFLUX_SICE |
TSKIN(J) = Tsurf(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
115 |
SUFLUX_SICE |
TSFC(J)=273.16 _d 0 |
|
./pkg/aim_v23/phy_suflux_sice.F |
124 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
125 |
SUFLUX_SICE |
FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
126 |
SUFLUX_SICE |
CDENVV(J)=CHS*DENVV(J)*FSSICE |
|
./pkg/aim_v23/phy_suflux_sice.F |
133 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
134 |
SUFLUX_SICE |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
135 |
SUFLUX_SICE |
Shf0(J) = CHS*DENVV(J)*Fstb0 |
|
./pkg/aim_v23/phy_suflux_sice.F |
136 |
SUFLUX_SICE |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_suflux_sice.F |
138 |
SUFLUX_SICE |
dShf(J) = CHS*DENVV(J)*dFstb |
|
./pkg/aim_v23/phy_suflux_sice.F |
155 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
156 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
157 |
SUFLUX_SICE |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
158 |
SUFLUX_SICE |
dEvp(J) = CDENVV(J)*dEvp(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
159 |
SUFLUX_SICE |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
162 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
163 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
164 |
SUFLUX_SICE |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
165 |
SUFLUX_SICE |
dEvp(J) = CDENVV(J)*dEvp(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
173 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
174 |
SUFLUX_SICE |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
175 |
SUFLUX_SICE |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
176 |
SUFLUX_SICE |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_sice.F |
177 |
SUFLUX_SICE |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
178 |
SUFLUX_SICE |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
182 |
SUFLUX_SICE |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHevp ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
185 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
186 |
SUFLUX_SICE |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
187 |
SUFLUX_SICE |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
188 |
SUFLUX_SICE |
dShf(J) = CDENVV(J)*CP |
|
./pkg/aim_v23/phy_suflux_sice.F |
194 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
195 |
SUFLUX_SICE |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
196 |
SUFLUX_SICE |
Slr0(J) = SBC*TS2*TS2 |
|
./pkg/aim_v23/phy_suflux_sice.F |
197 |
SUFLUX_SICE |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
198 |
SUFLUX_SICE |
SLRU(J) = SBC*TS2*TS2 |
|
./pkg/aim_v23/phy_suflux_sice.F |
199 |
SUFLUX_SICE |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
203 |
SUFLUX_SICE |
DO J=1,NGP |
|
./pkg/aim_v23/phy_suflux_sice.F |
204 |
SUFLUX_SICE |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
205 |
SUFLUX_SICE |
& - ( Shf0(J) + ALHevp*Evp0(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
206 |
SUFLUX_SICE |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
207 |
SUFLUX_SICE |
& - ( SHF(J) + ALHevp*EVAP(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
208 |
SUFLUX_SICE |
sFlx(J,2)= -EMISloc*dSlr(J) |
|
./pkg/aim_v23/phy_suflux_sice.F |
209 |
SUFLUX_SICE |
& - ( dShf(J) + ALHevp*dEvp(J) ) |
|
./pkg/aim_v23/phy_vdifsc.F |
106 |
VDIFSC |
DO J=1,NGP |
|
./pkg/aim_v23/phy_vdifsc.F |
109 |
VDIFSC |
TTENVD(J,K) = 0. |
|
./pkg/aim_v23/phy_vdifsc.F |
110 |
VDIFSC |
QTENVD(J,K) = 0. |
|
./pkg/aim_v23/phy_vdifsc.F |
121 |
VDIFSC |
DO J=1,NGP |
|
./pkg/aim_v23/phy_vdifsc.F |
122 |
VDIFSC |
dSEdp(J,K)=(SE(J,K+1)-SE(J,K))*factP |
|
./pkg/aim_v23/phy_vdifsc.F |
129 |
VDIFSC |
DO J=1,NGP |
|
./pkg/aim_v23/phy_vdifsc.F |
130 |
VDIFSC |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_vdifsc.F |
135 |
VDIFSC |
FSHCQ = DSIG(Ktmp)*dpFac(J,Ktmp)/(TRSHC*3600. _d 0) |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
139 |
VDIFSC |
DRH = RH(J,Ktmp)-RH(J,NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
145 |
VDIFSC |
TTENVD(J,NL1) = FLUXSE*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
146 |
VDIFSC |
TTENVD(J,Ktmp) =-FLUXSE*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
149 |
VDIFSC |
FLUXQ = FSHCQ*QSAT(J,Ktmp)*DRH |
|
./pkg/aim_v23/phy_vdifsc.F |
150 |
VDIFSC |
QTENVD(J,NL1) = FLUXQ*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
151 |
VDIFSC |
QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
157 |
VDIFSC |
FLUXQ = QSAT(J,NL1)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
158 |
VDIFSC |
QTENVD(J,NL1) = FLUXQ*RSIG(NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
159 |
VDIFSC |
QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
168 |
VDIFSC |
DO J=1,NGP |
|
./pkg/aim_v23/phy_vdifsc.F |
170 |
VDIFSC |
DO K=3,kGrd(J)-2 |
|
./pkg/aim_v23/phy_vdifsc.F |
174 |
VDIFSC |
DRH=RH(J,K+1)-RH(J,K) |
|
./pkg/aim_v23/phy_vdifsc.F |
178 |
VDIFSC |
FLUXQ = QSAT(J,K)*DRH*CVDI(J)/TRVDI |
|
./pkg/aim_v23/phy_vdifsc.F |
179 |
VDIFSC |
QTENVD(J,K) = QTENVD(J,K) +FLUXQ*RSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
180 |
VDIFSC |
QTENVD(J,K+1)= QTENVD(J,K+1)-FLUXQ*RSIG(K+1) |
|
./pkg/aim_v23/phy_vdifsc.F |
189 |
VDIFSC |
DO J=1,NGP |
|
./pkg/aim_v23/phy_vdifsc.F |
190 |
VDIFSC |
DO K=1,kGrd(J)-1 |
|
./pkg/aim_v23/phy_vdifsc.F |
193 |
VDIFSC |
DMSE = dSEdp(J,K) |
|
./pkg/aim_v23/phy_vdifsc.F |
194 |
VDIFSC |
& +SEGRAD*CP*DeltaPI(K)*(SE(J,K+1)+SE(J,K))*0.5 _d 0 |
|
./pkg/aim_v23/phy_vdifsc.F |
199 |
VDIFSC |
FLUXSE = DMSE*CVDI(J)/(TRVDS*CP) |
|
./pkg/aim_v23/phy_vdifsc.F |
200 |
VDIFSC |
TTENVD(J,K ) = TTENVD(J,K )+FLUXSE*RSIG(K) |
|
./pkg/aim_v23/phy_vdifsc.F |
201 |
VDIFSC |
TTENVD(J,K+1) = TTENVD(J,K+1)-FLUXSE*RSIG(K+1) |
|
./pkg/aim_v23/phy_vdifsc.F |
68 |
VDIFSC |
INTEGER J, K, Ktmp, NL1 |
|
./pkg/aim_v23/phy_vdifsc.F |
93 |
VDIFSC |
DO J=1,NGP |
|
./pkg/aim_v23/phy_vdifsc.F |
94 |
VDIFSC |
NL1 = kGrd(J)-1 |
|
./pkg/aim_v23/phy_vdifsc.F |
95 |
VDIFSC |
CVDI(J) = 0. |
|
./pkg/aim_v23/phy_vdifsc.F |
97 |
VDIFSC |
CVDI(J) = (SIGH(NL1)-SIGH(1))/((NL1-1)*3600. _d 0) |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
49 |
CPL_INI_VARS |
DO J=1-OLy,sNy+OLy |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
36 |
ATM_TO_OCN_MAPXYR8 |
INTEGER I,J |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
39 |
ATM_TO_OCN_MAPXYR8 |
DO J=1,oNy |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
41 |
ATM_TO_OCN_MAPXYR8 |
fld_ocn(I,J)=0. |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
46 |
ATM_TO_OCN_MAPXYR8 |
DO J=1,MIN(aNy,oNy) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
48 |
ATM_TO_OCN_MAPXYR8 |
fld_ocn(I,J)=fld_atm(I,J) |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
36 |
OCN_TO_ATM_MAPXYR8 |
INTEGER I,J |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
39 |
OCN_TO_ATM_MAPXYR8 |
DO J=1,aNy |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
41 |
OCN_TO_ATM_MAPXYR8 |
fld_atm(I,J)=0. |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
46 |
OCN_TO_ATM_MAPXYR8 |
DO J=1,MIN(aNy,oNy) |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
48 |
OCN_TO_ATM_MAPXYR8 |
fld_atm(I,J)=fld_ocn(I,J) |
|
./eesupp/src/ini_threading_environment.F |
146 |
INI_THREADING_ENVIRONMENT |
DO J=1,nTy |
|
./eesupp/src/ini_threading_environment.F |
150 |
INI_THREADING_ENVIRONMENT |
thId = (J-1)*nTx+I |
|
./eesupp/src/ini_threading_environment.F |
201 |
INI_THREADING_ENVIRONMENT |
DO J=1,nSy |
|
./eesupp/src/ini_threading_environment.F |
204 |
INI_THREADING_ENVIRONMENT |
& '//',' Tile number: ',tileNo(I,J), |
|
./eesupp/src/ini_threading_environment.F |
208 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoW(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
211 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoW(I,J), |
|
./eesupp/src/ini_threading_environment.F |
212 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidW(I,J), |
|
./eesupp/src/ini_threading_environment.F |
213 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeW(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
217 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiW(I,J), |
|
./eesupp/src/ini_threading_environment.F |
218 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjW(I,J) |
|
./eesupp/src/ini_threading_environment.F |
226 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoE(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
229 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoE(I,J), |
|
./eesupp/src/ini_threading_environment.F |
230 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidE(I,J), |
|
./eesupp/src/ini_threading_environment.F |
231 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeE(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
235 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiE(I,J), |
|
./eesupp/src/ini_threading_environment.F |
236 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjE(I,J) |
|
./eesupp/src/ini_threading_environment.F |
244 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoS(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
247 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoS(I,J), |
|
./eesupp/src/ini_threading_environment.F |
248 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidS(I,J), |
|
./eesupp/src/ini_threading_environment.F |
249 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeS(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
253 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiS(I,J), |
|
./eesupp/src/ini_threading_environment.F |
254 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjS(I,J) |
|
./eesupp/src/ini_threading_environment.F |
262 |
INI_THREADING_ENVIRONMENT |
IF ( tileNoN(I,J).NE. NULL_TILE ) THEN |
|
./eesupp/src/ini_threading_environment.F |
265 |
INI_THREADING_ENVIRONMENT |
& 'Tile = ',tileNoN(I,J), |
|
./eesupp/src/ini_threading_environment.F |
266 |
INI_THREADING_ENVIRONMENT |
& ', Process = ',tilePidN(I,J), |
|
./eesupp/src/ini_threading_environment.F |
267 |
INI_THREADING_ENVIRONMENT |
& ', Comm = ',commName(tileCommModeN(I,J)) |
|
./eesupp/src/ini_threading_environment.F |
271 |
INI_THREADING_ENVIRONMENT |
& ' bi = ',tileBiN(I,J), |
|
./eesupp/src/ini_threading_environment.F |
272 |
INI_THREADING_ENVIRONMENT |
& ', bj = ',tileBjN(I,J) |
|
./eesupp/src/ini_threading_environment.F |
305 |
INI_THREADING_ENVIRONMENT |
DO J=1,nSy |
|
./eesupp/src/ini_threading_environment.F |
308 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeW(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
309 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeE(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
310 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeS(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
311 |
INI_THREADING_ENVIRONMENT |
& .OR. tileCommModeN(I,J).EQ.COMM_GET |
|
./eesupp/src/ini_threading_environment.F |
56 |
INI_THREADING_ENVIRONMENT |
INTEGER I, J |
|
./pkg/autodiff/autodiff_restore.F |
100 |
AUTODIFF_RESTORE |
taux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
101 |
AUTODIFF_RESTORE |
taux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
102 |
AUTODIFF_RESTORE |
tauy0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
103 |
AUTODIFF_RESTORE |
tauy1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
104 |
AUTODIFF_RESTORE |
qnet0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
105 |
AUTODIFF_RESTORE |
qnet1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
106 |
AUTODIFF_RESTORE |
empmr0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
107 |
AUTODIFF_RESTORE |
empmr1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
108 |
AUTODIFF_RESTORE |
sst0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
109 |
AUTODIFF_RESTORE |
sst1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
110 |
AUTODIFF_RESTORE |
sss0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
111 |
AUTODIFF_RESTORE |
sss1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
112 |
AUTODIFF_RESTORE |
saltflux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
113 |
AUTODIFF_RESTORE |
saltflux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
115 |
AUTODIFF_RESTORE |
qsw0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
116 |
AUTODIFF_RESTORE |
qsw1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
119 |
AUTODIFF_RESTORE |
pload0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
120 |
AUTODIFF_RESTORE |
pload1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
123 |
AUTODIFF_RESTORE |
etaH(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
124 |
AUTODIFF_RESTORE |
dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
125 |
AUTODIFF_RESTORE |
PmEpR(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
134 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
137 |
AUTODIFF_RESTORE |
gtNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
138 |
AUTODIFF_RESTORE |
gsNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
139 |
AUTODIFF_RESTORE |
guNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
140 |
AUTODIFF_RESTORE |
gvNm(I,J,K,bi,bj,1) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
142 |
AUTODIFF_RESTORE |
gtNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
143 |
AUTODIFF_RESTORE |
gsNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
144 |
AUTODIFF_RESTORE |
guNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
145 |
AUTODIFF_RESTORE |
gvNm1(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
147 |
AUTODIFF_RESTORE |
theta(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
148 |
AUTODIFF_RESTORE |
salt(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
149 |
AUTODIFF_RESTORE |
uVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
150 |
AUTODIFF_RESTORE |
vVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
151 |
AUTODIFF_RESTORE |
wVel(I,J,K,bi,bj) = StoreDynVars3D(I,J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
152 |
AUTODIFF_RESTORE |
totPhiHyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
154 |
AUTODIFF_RESTORE |
gtNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
155 |
AUTODIFF_RESTORE |
gsNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
156 |
AUTODIFF_RESTORE |
guNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
157 |
AUTODIFF_RESTORE |
gvNm(I,J,K,bi,bj,2) = StoreDynVars3D(I,J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
172 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
174 |
AUTODIFF_RESTORE |
hflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
175 |
AUTODIFF_RESTORE |
hflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
176 |
AUTODIFF_RESTORE |
sflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
177 |
AUTODIFF_RESTORE |
sflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
178 |
AUTODIFF_RESTORE |
ustress0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
179 |
AUTODIFF_RESTORE |
ustress1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
180 |
AUTODIFF_RESTORE |
vstress0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
181 |
AUTODIFF_RESTORE |
vstress1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
182 |
AUTODIFF_RESTORE |
wspeed0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
183 |
AUTODIFF_RESTORE |
wspeed1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
185 |
AUTODIFF_RESTORE |
swflux0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
186 |
AUTODIFF_RESTORE |
swflux1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
189 |
AUTODIFF_RESTORE |
runoff0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
190 |
AUTODIFF_RESTORE |
runoff1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
193 |
AUTODIFF_RESTORE |
apressure0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
194 |
AUTODIFF_RESTORE |
apressure1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
195 |
AUTODIFF_RESTORE |
siceload(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
198 |
AUTODIFF_RESTORE |
climsss0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
199 |
AUTODIFF_RESTORE |
climsss1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
202 |
AUTODIFF_RESTORE |
climsst0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
203 |
AUTODIFF_RESTORE |
climsst1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
206 |
AUTODIFF_RESTORE |
saltflx0(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
207 |
AUTODIFF_RESTORE |
saltflx1(I,J,bi,bj) = StoreEXF1(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
218 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
221 |
AUTODIFF_RESTORE |
aqh0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
222 |
AUTODIFF_RESTORE |
aqh1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
223 |
AUTODIFF_RESTORE |
atemp0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
224 |
AUTODIFF_RESTORE |
atemp1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
225 |
AUTODIFF_RESTORE |
precip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
226 |
AUTODIFF_RESTORE |
precip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
227 |
AUTODIFF_RESTORE |
lwflux0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
228 |
AUTODIFF_RESTORE |
lwflux1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
229 |
AUTODIFF_RESTORE |
snowprecip0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
230 |
AUTODIFF_RESTORE |
snowprecip1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
232 |
AUTODIFF_RESTORE |
hs0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
233 |
AUTODIFF_RESTORE |
hs1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
234 |
AUTODIFF_RESTORE |
hl0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
235 |
AUTODIFF_RESTORE |
hl1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
238 |
AUTODIFF_RESTORE |
evap0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
239 |
AUTODIFF_RESTORE |
evap1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
241 |
AUTODIFF_RESTORE |
evap(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
244 |
AUTODIFF_RESTORE |
swdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
245 |
AUTODIFF_RESTORE |
swdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
246 |
AUTODIFF_RESTORE |
lwdown0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
247 |
AUTODIFF_RESTORE |
lwdown1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
250 |
AUTODIFF_RESTORE |
uwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_restore.F |
251 |
AUTODIFF_RESTORE |
uwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,22) |
|
./pkg/autodiff/autodiff_restore.F |
252 |
AUTODIFF_RESTORE |
vwind0(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,23) |
|
./pkg/autodiff/autodiff_restore.F |
253 |
AUTODIFF_RESTORE |
vwind1(I,J,bi,bj) = StoreEXF2(I,J,bi,bj,24) |
|
./pkg/autodiff/autodiff_restore.F |
263 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
266 |
AUTODIFF_RESTORE |
xx_uwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
267 |
AUTODIFF_RESTORE |
xx_uwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
270 |
AUTODIFF_RESTORE |
xx_vwind0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
271 |
AUTODIFF_RESTORE |
xx_vwind1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
274 |
AUTODIFF_RESTORE |
xx_atemp0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
275 |
AUTODIFF_RESTORE |
xx_atemp1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
278 |
AUTODIFF_RESTORE |
xx_aqh0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
279 |
AUTODIFF_RESTORE |
xx_aqh1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
282 |
AUTODIFF_RESTORE |
xx_precip0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
283 |
AUTODIFF_RESTORE |
xx_precip1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
286 |
AUTODIFF_RESTORE |
xx_snowprecip0(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
287 |
AUTODIFF_RESTORE |
xx_snowprecip1(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
290 |
AUTODIFF_RESTORE |
xx_swflux0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
291 |
AUTODIFF_RESTORE |
xx_swflux1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
294 |
AUTODIFF_RESTORE |
xx_swdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
295 |
AUTODIFF_RESTORE |
xx_swdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
298 |
AUTODIFF_RESTORE |
xx_lwdown0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
299 |
AUTODIFF_RESTORE |
xx_lwdown1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
302 |
AUTODIFF_RESTORE |
xx_apressure0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
303 |
AUTODIFF_RESTORE |
xx_apressure1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
388 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
389 |
AUTODIFF_RESTORE |
OBEu(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
390 |
AUTODIFF_RESTORE |
OBEv(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
391 |
AUTODIFF_RESTORE |
OBEt(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
392 |
AUTODIFF_RESTORE |
OBEs(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
393 |
AUTODIFF_RESTORE |
OBEu0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
394 |
AUTODIFF_RESTORE |
OBEv0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
395 |
AUTODIFF_RESTORE |
OBEt0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
396 |
AUTODIFF_RESTORE |
OBEs0(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
397 |
AUTODIFF_RESTORE |
OBEu1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
398 |
AUTODIFF_RESTORE |
OBEv1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
399 |
AUTODIFF_RESTORE |
OBEt1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
400 |
AUTODIFF_RESTORE |
OBEs1(J,K,bi,bj) = StoreOBCSE(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
402 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
403 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
404 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
405 |
AUTODIFF_RESTORE |
xx_obcse0(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
406 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,1) = StoreOBCSE(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
407 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,2) = StoreOBCSE(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
408 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,3) = StoreOBCSE(J,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
409 |
AUTODIFF_RESTORE |
xx_obcse1(J,K,bi,bj,4) = StoreOBCSE(J,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
423 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
424 |
AUTODIFF_RESTORE |
OBWu(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
425 |
AUTODIFF_RESTORE |
OBWv(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
426 |
AUTODIFF_RESTORE |
OBWt(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
427 |
AUTODIFF_RESTORE |
OBWs(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_restore.F |
428 |
AUTODIFF_RESTORE |
OBWu0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
429 |
AUTODIFF_RESTORE |
OBWv0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,6) |
|
./pkg/autodiff/autodiff_restore.F |
430 |
AUTODIFF_RESTORE |
OBWt0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
431 |
AUTODIFF_RESTORE |
OBWs0(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
432 |
AUTODIFF_RESTORE |
OBWu1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
433 |
AUTODIFF_RESTORE |
OBWv1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
434 |
AUTODIFF_RESTORE |
OBWt1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
435 |
AUTODIFF_RESTORE |
OBWs1(J,K,bi,bj) = StoreOBCSW(J,K,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
437 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,13) |
|
./pkg/autodiff/autodiff_restore.F |
438 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
439 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
440 |
AUTODIFF_RESTORE |
xx_obcsw0(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
441 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
442 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
443 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
444 |
AUTODIFF_RESTORE |
xx_obcsw1(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,20) |
|
./pkg/autodiff/autodiff_restore.F |
458 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
460 |
AUTODIFF_RESTORE |
AREA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
461 |
AUTODIFF_RESTORE |
HEFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_restore.F |
462 |
AUTODIFF_RESTORE |
HSNOW(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,3) |
|
./pkg/autodiff/autodiff_restore.F |
464 |
AUTODIFF_RESTORE |
RUNOFF(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,5) |
|
./pkg/autodiff/autodiff_restore.F |
466 |
AUTODIFF_RESTORE |
stressDivergenceX(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,14) |
|
./pkg/autodiff/autodiff_restore.F |
467 |
AUTODIFF_RESTORE |
stressDivergenceY(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,15) |
|
./pkg/autodiff/autodiff_restore.F |
473 |
AUTODIFF_RESTORE |
UICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,7) |
|
./pkg/autodiff/autodiff_restore.F |
474 |
AUTODIFF_RESTORE |
VICE(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,8) |
|
./pkg/autodiff/autodiff_restore.F |
475 |
AUTODIFF_RESTORE |
ZETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,9) |
|
./pkg/autodiff/autodiff_restore.F |
476 |
AUTODIFF_RESTORE |
ETA(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,10) |
|
./pkg/autodiff/autodiff_restore.F |
478 |
AUTODIFF_RESTORE |
dwatn(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,11) |
|
./pkg/autodiff/autodiff_restore.F |
480 |
AUTODIFF_RESTORE |
cbotc(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,12) |
|
./pkg/autodiff/autodiff_restore.F |
486 |
AUTODIFF_RESTORE |
seaice_sigma1(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,16) |
|
./pkg/autodiff/autodiff_restore.F |
487 |
AUTODIFF_RESTORE |
seaice_sigma2(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,17) |
|
./pkg/autodiff/autodiff_restore.F |
488 |
AUTODIFF_RESTORE |
seaice_sigma12(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,18) |
|
./pkg/autodiff/autodiff_restore.F |
491 |
AUTODIFF_RESTORE |
HSALT(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_restore.F |
82 |
AUTODIFF_RESTORE |
INTEGER I,J,K |
|
./pkg/autodiff/autodiff_restore.F |
96 |
AUTODIFF_RESTORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_restore.F |
98 |
AUTODIFF_RESTORE |
etaN(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,1) |
|
./pkg/autodiff/autodiff_restore.F |
99 |
AUTODIFF_RESTORE |
surfaceforcingTice(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
100 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,3) = taux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
101 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,4) = taux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
102 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,5) = tauy0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
103 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,6) = tauy1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
104 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,7) = qnet0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
105 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,8) = qnet1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
106 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,9) = empmr0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
107 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,10) = empmr1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
108 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,11) = sst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
109 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,12) = sst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
110 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,13) = sss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
111 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,14) = sss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
112 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,15) = saltflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
113 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,16) = saltflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
115 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = qsw0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
116 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = qsw1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
118 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,17) = 0. |
|
./pkg/autodiff/autodiff_store.F |
119 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,18) = 0. |
|
./pkg/autodiff/autodiff_store.F |
122 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = pload0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
123 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = pload1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
125 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,19) = 0. |
|
./pkg/autodiff/autodiff_store.F |
126 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,20) = 0. |
|
./pkg/autodiff/autodiff_store.F |
129 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
130 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
131 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = PmEpR(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
133 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = 0. |
|
./pkg/autodiff/autodiff_store.F |
134 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,22) = 0. |
|
./pkg/autodiff/autodiff_store.F |
135 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,23) = 0. |
|
./pkg/autodiff/autodiff_store.F |
144 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
147 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gtNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
148 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gsNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
149 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = guNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
150 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gvNm(I,J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
152 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,1) = gtNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
153 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,2) = gsNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
154 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,3) = guNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
155 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,4) = gvNm1(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
157 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,5) = theta(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
158 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,6) = salt(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
159 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,7) = uVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
160 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,8) = vVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
161 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,9) = wVel(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
162 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,10) = totPhiHyd(I,J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
164 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,11) = gtNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
165 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,12) = gsNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
166 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,13) = guNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
167 |
AUTODIFF_STORE |
StoreDynVars3D(I,J,K,bi,bj,14) = gvNm(I,J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
182 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
184 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,1) = hflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
185 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,2) = hflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
186 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,3) = sflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
187 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,4) = sflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
188 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,5) = ustress0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
189 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,6) = ustress1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
190 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,7) = vstress0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
191 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,8) = vstress1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
192 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,9) = wspeed0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
193 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,10) = wspeed1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
195 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,11) = swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
196 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,12) = swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
198 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
199 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
202 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,13) = runoff0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
203 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,14) = runoff1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
205 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
206 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
209 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,15) = apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
210 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,16) = apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
211 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,17) = siceload(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
213 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
214 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
215 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
218 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,18) = climsss0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
219 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,19) = climsss1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
221 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
222 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
225 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,20) = climsst0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
226 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,21) = climsst1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
228 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
229 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,21) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
232 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,22) = saltflx0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
233 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,23) = saltflx1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
235 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,22) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
236 |
AUTODIFF_STORE |
StoreEXF1(I,J,bi,bj,23) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
247 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
250 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,1) = aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
251 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,2) = aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
252 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,3) = atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
253 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,4) = atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
254 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,5) = precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
255 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,6) = precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
256 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,7) = lwflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
257 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,8) = lwflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
258 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,9) = snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
259 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,10) = snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
261 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = hs0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
262 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = hs1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
263 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = hl0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
264 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = hl1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
266 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
267 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
268 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
269 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
272 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = evap0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
273 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = evap1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
275 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,15) = evap(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
276 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
279 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
280 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
281 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
282 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
284 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
285 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
286 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
287 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
290 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,21) = uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
291 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,22) = uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
292 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,23) = vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
293 |
AUTODIFF_STORE |
StoreEXF2(I,J,bi,bj,24) = vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
303 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
306 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = xx_uwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
307 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = xx_uwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
309 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,1) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
310 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,2) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
313 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = xx_vwind0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
314 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = xx_vwind1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
316 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,3) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
317 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,4) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
320 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = xx_atemp0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
321 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = xx_atemp1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
323 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,5) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
324 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
327 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = xx_aqh0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
328 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = xx_aqh1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
330 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,7) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
331 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,8) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
334 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = xx_precip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
335 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = xx_precip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
337 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,9) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
338 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,10) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
341 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = xx_snowprecip0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
342 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = xx_snowprecip1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
344 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
345 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
348 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = xx_swflux0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
349 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = xx_swflux1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
351 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
352 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
355 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = xx_swdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
356 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = xx_swdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
358 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
359 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
362 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = xx_lwdown0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
363 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = xx_lwdown1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
365 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
366 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
369 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = xx_apressure0(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
370 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = xx_apressure1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
372 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
373 |
AUTODIFF_STORE |
StoreCTRLS1(I,J,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
476 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
477 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,1) = OBEu(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
478 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,2) = OBEv(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
479 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,3) = OBEt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
480 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,4) = OBEs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
481 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,5) = OBEu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
482 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,6) = OBEv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
483 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,7) = OBEt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
484 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,8) = OBEs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
485 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,9) = OBEu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
486 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,10) = OBEv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
487 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,11) = OBEt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
488 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,12) = OBEs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
490 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = xx_obcse0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
491 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = xx_obcse0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
492 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = xx_obcse0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
493 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = xx_obcse0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
494 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = xx_obcse1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
495 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = xx_obcse1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
496 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,19) = xx_obcse1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
497 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,20) = xx_obcse1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
499 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
500 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
501 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
502 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
503 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
504 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
505 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
506 |
AUTODIFF_STORE |
StoreOBCSE(J,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
520 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
521 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,1) = OBWu(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
522 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,2) = OBWv(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
523 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,3) = OBWt(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
524 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,4) = OBWs(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
525 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,5) = OBWu0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
526 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,6) = OBWv0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
527 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,7) = OBWt0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
528 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,8) = OBWs0(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
529 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,9) = OBWu1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
530 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,10) = OBWv1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
531 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,11) = OBWt1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
532 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,12) = OBWs1(J,K,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
534 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = xx_obcsw0(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
535 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = xx_obcsw0(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
536 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = xx_obcsw0(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
537 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = xx_obcsw0(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
538 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = xx_obcsw1(J,K,bi,bj,1) |
|
./pkg/autodiff/autodiff_store.F |
539 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = xx_obcsw1(J,K,bi,bj,2) |
|
./pkg/autodiff/autodiff_store.F |
540 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,19) = xx_obcsw1(J,K,bi,bj,3) |
|
./pkg/autodiff/autodiff_store.F |
541 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,20) = xx_obcsw1(J,K,bi,bj,4) |
|
./pkg/autodiff/autodiff_store.F |
543 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
544 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
545 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
546 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
547 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
548 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
549 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
550 |
AUTODIFF_STORE |
StoreOBCSW(J,K,bi,bj,20) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
564 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
566 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,1) = AREA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
567 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
568 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
569 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,4) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
570 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
571 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,6) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
573 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
574 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
576 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,14) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
577 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,15) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
579 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
580 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
581 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
582 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,10) = ETA(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
584 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
586 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = cbotc(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
588 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
592 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
594 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,11) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
595 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,12) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
596 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,13) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
599 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = seaice_sigma1(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
600 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = seaice_sigma2(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
601 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = seaice_sigma12(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
603 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,16) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
604 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,17) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
605 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,18) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
608 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
610 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = 0.0 |
|
./pkg/autodiff/autodiff_store.F |
82 |
AUTODIFF_STORE |
INTEGER I,J,K |
|
./pkg/autodiff/autodiff_store.F |
96 |
AUTODIFF_STORE |
DO J=1-OLy,sNy+OLy |
|
./pkg/autodiff/autodiff_store.F |
98 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,1) = etaN(I,J,bi,bj) |
|
./pkg/autodiff/autodiff_store.F |
99 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,2) = surfaceforcingTice(I,J,bi,bj) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
122 |
BULKF_FORMULA_AIM |
INTEGER J |
|
./pkg/bulk_force/bulkf_formula_aim.F |
140 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
145 |
BULKF_FORMULA_AIM |
DENVV(J)=(PRD*PSA(J)/T0(J))*Vsurf(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
151 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
152 |
BULKF_FORMULA_AIM |
TSKIN(J) = Tsurf(J) + celsius2K |
|
./pkg/bulk_force/bulkf_formula_aim.F |
153 |
BULKF_FORMULA_AIM |
TSFC(J)=273.16 _d 0 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
162 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
163 |
BULKF_FORMULA_AIM |
FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/bulk_force/bulkf_formula_aim.F |
164 |
BULKF_FORMULA_AIM |
CDENVV(J)=CHS*DENVV(J)*FSSICE |
|
./pkg/bulk_force/bulkf_formula_aim.F |
171 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
172 |
BULKF_FORMULA_AIM |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/bulk_force/bulkf_formula_aim.F |
173 |
BULKF_FORMULA_AIM |
Shf0(J) = CHS*DENVV(J)*Fstb0 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
174 |
BULKF_FORMULA_AIM |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/bulk_force/bulkf_formula_aim.F |
176 |
BULKF_FORMULA_AIM |
dShf(J) = CHS*DENVV(J)*dFstb |
|
./pkg/bulk_force/bulkf_formula_aim.F |
189 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
190 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
191 |
BULKF_FORMULA_AIM |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
192 |
BULKF_FORMULA_AIM |
dEvp(J) = CDENVV(J)*dEvp(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
193 |
BULKF_FORMULA_AIM |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
196 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
197 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
198 |
BULKF_FORMULA_AIM |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
199 |
BULKF_FORMULA_AIM |
dEvp(J) = CDENVV(J)*dEvp(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
207 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
208 |
BULKF_FORMULA_AIM |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
209 |
BULKF_FORMULA_AIM |
Shf0(J) = Shf0(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
210 |
BULKF_FORMULA_AIM |
dShf(J) = CDENVV(J)*CP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
211 |
BULKF_FORMULA_AIM |
& + dShf(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
212 |
BULKF_FORMULA_AIM |
dShf(J) = MAX( dShf(J), 0. _d 0 ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
216 |
BULKF_FORMULA_AIM |
dEvp(J) = MAX( dEvp(J), -dShf(J)/ALHevp ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
219 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
220 |
BULKF_FORMULA_AIM |
SHF(J) = CDENVV(J)*CP*(TSKIN(J)-T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
221 |
BULKF_FORMULA_AIM |
Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
222 |
BULKF_FORMULA_AIM |
dShf(J) = CDENVV(J)*CP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
228 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
229 |
BULKF_FORMULA_AIM |
TS2 = TSFC(J)*TSFC(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
230 |
BULKF_FORMULA_AIM |
Slr0(J) = SBC*TS2*TS2 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
231 |
BULKF_FORMULA_AIM |
TS2 = TSKIN(J)*TSKIN(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
232 |
BULKF_FORMULA_AIM |
SLRU(J) = SBC*TS2*TS2 |
|
./pkg/bulk_force/bulkf_formula_aim.F |
233 |
BULKF_FORMULA_AIM |
dSlr(J) = 4. _d 0 *SBC*TS2*TSKIN(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
237 |
BULKF_FORMULA_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_formula_aim.F |
238 |
BULKF_FORMULA_AIM |
sFlx(J,0)= ( SLRD(J) - EMISloc*Slr0(J) ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
239 |
BULKF_FORMULA_AIM |
& - ( Shf0(J) + ALHevp*Evp0(J) ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
240 |
BULKF_FORMULA_AIM |
sFlx(J,1)= ( SLRD(J) - EMISloc*SLRU(J) ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
241 |
BULKF_FORMULA_AIM |
& - ( SHF(J) + ALHevp*EVAP(J) ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
242 |
BULKF_FORMULA_AIM |
sFlx(J,2)= -EMISloc*dSlr(J) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
243 |
BULKF_FORMULA_AIM |
& - ( dShf(J) + ALHevp*dEvp(J) ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
103 |
BULKF_SH2RH_AIM |
DO 210 J=1,NGP |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
104 |
BULKF_SH2RH_AIM |
IF(QSAT(J).NE.0.) then |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
105 |
BULKF_SH2RH_AIM |
RH(J)=QA(J)/QSAT(J) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
107 |
BULKF_SH2RH_AIM |
RH(J)=0. |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
111 |
BULKF_SH2RH_AIM |
DO 220 J=1,NGP |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
112 |
BULKF_SH2RH_AIM |
QA(J)=RH(J)*QSAT(J) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
40 |
BULKF_SH2RH_AIM |
INTEGER J |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
62 |
BULKF_SH2RH_AIM |
DO J=1,NGP |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
63 |
BULKF_SH2RH_AIM |
QSAT(J)=0. |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
65 |
BULKF_SH2RH_AIM |
IF (SIG.GT.0.0) sigP=SIG*PS(J) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
66 |
BULKF_SH2RH_AIM |
IF (TA(J).GE.T0) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
67 |
BULKF_SH2RH_AIM |
tmpQ = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
68 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
69 |
BULKF_SH2RH_AIM |
recT = 1. _d 0 / (TA(J)-T1) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
70 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
71 |
BULKF_SH2RH_AIM |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
72 |
BULKF_SH2RH_AIM |
tmpQ = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
73 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*tmpQ/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
74 |
BULKF_SH2RH_AIM |
recT = 1. _d 0 / (TA(J)-T2) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
75 |
BULKF_SH2RH_AIM |
RH(J) = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
81 |
BULKF_SH2RH_AIM |
DO 110 J=1,NGP |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
82 |
BULKF_SH2RH_AIM |
QSAT(J)=0. |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
83 |
BULKF_SH2RH_AIM |
IF (TA(J).GE.T0) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
84 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
85 |
BULKF_SH2RH_AIM |
ELSE IF ( TA(J).GT.T2) THEN |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
86 |
BULKF_SH2RH_AIM |
QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
91 |
BULKF_SH2RH_AIM |
DO 120 J=1,NGP |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
92 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/( PS(1) - QS2*QSAT(J)) |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
95 |
BULKF_SH2RH_AIM |
DO 130 J=1,NGP |
|
./pkg/bulk_force/bulkf_sh2rh_aim.F |
96 |
BULKF_SH2RH_AIM |
QSAT(J)= QS1*QSAT(J)/(SIG*PS(J)- QS2*QSAT(J)) |
|
./pkg/cd_code/cd_code_ini_vars.F |
24 |
CD_CODE_INI_VARS |
INTEGER I, J, K |
|
./pkg/cd_code/cd_code_ini_vars.F |
35 |
CD_CODE_INI_VARS |
DO J=1-Oly,sNy+Oly |
|
./pkg/cd_code/cd_code_ini_vars.F |
37 |
CD_CODE_INI_VARS |
uNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
38 |
CD_CODE_INI_VARS |
vNM1(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
39 |
CD_CODE_INI_VARS |
uVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
40 |
CD_CODE_INI_VARS |
vVeld(I,J,K,bi,bj)=0. _d 0 |
|
./pkg/cd_code/cd_code_ini_vars.F |
46 |
CD_CODE_INI_VARS |
DO J=1-Oly,sNy+Oly |
|
./pkg/cd_code/cd_code_ini_vars.F |
48 |
CD_CODE_INI_VARS |
etaNm1(I,J,bi,bj)=0. _d 0 |
|
./pkg/cfc/cfc_fields_load.F |
225 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = iceMask(i,j,bi,bj) |
|
./pkg/cfc/cfc_fields_load.F |
233 |
CFC_FIELDS_LOAD |
FIce(I,J,bi,bj) = AREA(I,J,bi,bj) |
|
./eesupp/src/print.F |
1052 |
PRINT_MAPRS |
DO J=dwnMin, dwnMax, dwnStr |
|
./eesupp/src/print.F |
1054 |
PRINT_MAPRS |
& dwnBase-1+(bj-1)*dwnStep+J |
|
./eesupp/src/print.F |
1060 |
PRINT_MAPRS |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1062 |
PRINT_MAPRS |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1064 |
PRINT_MAPRS |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
1232 |
PRINT_MAPRL |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
1247 |
PRINT_MAPRL |
DO J=jMin, jMax, jStr |
|
./eesupp/src/print.F |
1249 |
PRINT_MAPRL |
IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. ) |
|
./eesupp/src/print.F |
1251 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
1252 |
PRINT_MAPRL |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1253 |
PRINT_MAPRL |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
1254 |
PRINT_MAPRL |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1484 |
PRINT_MAPRL |
DO J=dwnMin, dwnMax, dwnStr |
|
./eesupp/src/print.F |
1486 |
PRINT_MAPRL |
& dwnBase-1+(bj-1)*dwnStep+J |
|
./eesupp/src/print.F |
1492 |
PRINT_MAPRL |
val = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
1494 |
PRINT_MAPRL |
val = fld(I,K,J,bi,bk) |
|
./eesupp/src/print.F |
1496 |
PRINT_MAPRL |
val = fld(K,I,J,bk,bi) |
|
./eesupp/src/print.F |
799 |
PRINT_MAPRS |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
814 |
PRINT_MAPRS |
DO J=jMin, jMax, jStr |
|
./eesupp/src/print.F |
816 |
PRINT_MAPRS |
IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN |
|
./eesupp/src/print.F |
817 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .LT. fMin ) |
|
./eesupp/src/print.F |
818 |
PRINT_MAPRS |
& fMin = fld(I,J,K,bi,bj) |
|
./eesupp/src/print.F |
819 |
PRINT_MAPRS |
IF ( fld(I,J,K,bi,bj) .GT. fMax ) |
|
./eesupp/src/print.F |
820 |
PRINT_MAPRS |
& fMax = fld(I,J,K,bi,bj) |
|
./eesupp/src/write_utils.F |
882 |
WRITE_XY_XLINE_RS |
J = sCoord |
|
./eesupp/src/write_utils.F |
883 |
WRITE_XY_XLINE_RS |
WRITE(num1,'(I10)') J |
|
./eesupp/src/write_utils.F |
897 |
WRITE_XY_XLINE_RS |
xcoord(sNx*(bi-1)+I)=fld(I,J,bi,bj) |
|
./eesupp/src/write_utils.F |
977 |
WRITE_XY_YLINE_RS |
DO J=1,sNy |
|
./eesupp/src/write_utils.F |
978 |
WRITE_XY_YLINE_RS |
ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj) |
|
./pkg/cost/cost_depth.F |
35 |
COST_DEPTH |
INTEGER I, J, K |
|
./pkg/cost/cost_depth.F |
42 |
COST_DEPTH |
DO J=1,sNy |
|
./pkg/cost/cost_depth.F |
44 |
COST_DEPTH |
IF ( maskC(I,J,1,BI,BJ) .NE. 0. ) THEN |
|
./pkg/cost/cost_depth.F |
45 |
COST_DEPTH |
objf_depth(BI,BJ) = objf_depth(BI,BJ) + R_low(I,J,BI,BJ) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
135 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
137 |
CTRL_MAP_GENTIM2D |
xx_gentim2d(I,J,bi,bj,iarr) = |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
78 |
CTRL_MAP_GENTIM2D |
DO J = 1-Oly,sNy+Oly |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
80 |
CTRL_MAP_GENTIM2D |
xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0 |
|
./pkg/debug/chksum_tiled.F |
16 |
CHKSUM_TILED |
INTEGER I,J,K |
|
./pkg/debug/chksum_tiled.F |
26 |
CHKSUM_TILED |
DO J=1,sNy |
|
./pkg/debug/chksum_tiled.F |
28 |
CHKSUM_TILED |
Fmin=min(Fmin,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
29 |
CHKSUM_TILED |
Fmax=max(Fmax,fld(I,J,K,bi,bj)) |
|
./pkg/debug/chksum_tiled.F |
30 |
CHKSUM_TILED |
Fmn=Fmn+fld(I,J,K,bi,bj) |
|
./pkg/debug/chksum_tiled.F |
37 |
CHKSUM_TILED |
DO J=1,sNy |
|
./pkg/debug/chksum_tiled.F |
39 |
CHKSUM_TILED |
Frms=Frms+(fld(I,J,K,bi,bj)-Fmn)**2 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
183 |
DIAGNOSTICS_CALC_PHIVEL |
rhsMax = MAX(ABS(b2d(I,J,bi,bj)),rhsMax) |
|
./pkg/dic/calcite_saturation.F |
51 |
CALCITE_SATURATION |
INTEGER I,J,k |
|
./pkg/dic/car_flux.F |
52 |
CAR_FLUX |
INTEGER I,J,k, ko, kop1 |
|
./pkg/dic/car_flux_omega_top.F |
54 |
CAR_FLUX_OMEGA_TOP |
INTEGER I,J,k, ko |
|
./pkg/dic/o2_surfforcing.F |
47 |
O2_SURFFORCING |
INTEGER I,J,K |
|
./pkg/dic/phos_flux.F |
53 |
PHOS_FLUX |
INTEGER I,J,k, ko, kop1 |