| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_forcing.F |
116 |
SHELFICE_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
12 |
SHELFICE_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
140 |
SHELFICE_FORCING_S |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
141 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
143 |
SHELFICE_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
43 |
SHELFICE_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
67 |
SHELFICE_FORCING_T |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
68 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
70 |
SHELFICE_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
84 |
SHELFICE_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
11 |
DIAGNOSTICS_FILL_FIELD |
I ndiagnum, ipointer, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
149 |
DIAGNOSTICS_FILL_FIELD |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
155 |
DIAGNOSTICS_FILL_FIELD |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
156 |
DIAGNOSTICS_FILL_FIELD |
kFirst = kLev |
|
./pkg/diagnostics/diagnostics_fill_field.F |
157 |
DIAGNOSTICS_FILL_FIELD |
kLast = kLev |
|
./pkg/diagnostics/diagnostics_fill_field.F |
163 |
DIAGNOSTICS_FILL_FIELD |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
166 |
DIAGNOSTICS_FILL_FIELD |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
171 |
DIAGNOSTICS_FILL_FIELD |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
192 |
DIAGNOSTICS_FILL_FIELD |
I 'with kLev,nLevs,bibjFlg=', kLev,nLevs,bibjFlg |
|
./pkg/diagnostics/diagnostics_fill_field.F |
71 |
DIAGNOSTICS_FILL_FIELD |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fill_field.F |
91 |
DIAGNOSTICS_FILL_FIELD |
IF ( bibjFlg.GE.0 .AND. ABS(kLev).LE.1 ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
11 |
DIAGSTATS_FILL |
I ndId, kInQSd, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagstats_fill.F |
136 |
DIAGSTATS_FILL |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
142 |
DIAGSTATS_FILL |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
143 |
DIAGSTATS_FILL |
kFirst = kLev |
|
./pkg/diagnostics/diagstats_fill.F |
144 |
DIAGSTATS_FILL |
kLast = kLev |
|
./pkg/diagnostics/diagstats_fill.F |
151 |
DIAGSTATS_FILL |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
155 |
DIAGSTATS_FILL |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
161 |
DIAGSTATS_FILL |
kd0 = kInQSd + kLev - 1 |
|
./pkg/diagnostics/diagstats_fill.F |
162 |
DIAGSTATS_FILL |
km0 = kLev |
|
./pkg/diagnostics/diagstats_fill.F |
183 |
DIAGSTATS_FILL |
I 'with kLev,nLevs,bibjFlg=', kLev,nLevs,bibjFlg |
|
./pkg/diagnostics/diagstats_fill.F |
75 |
DIAGSTATS_FILL |
INTEGER kLev, nLevs, bibjflg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
11 |
DIAGNOSTICS_FRACT_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
122 |
DIAGNOSTICS_FRACT_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
175 |
DIAGNOSTICS_FRACT_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
72 |
DIAGNOSTICS_FRACT_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fill.F |
11 |
DIAGNOSTICS_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fill.F |
128 |
DIAGNOSTICS_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
58 |
DIAGNOSTICS_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fill.F |
91 |
DIAGNOSTICS_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagstats_ascii_out.F |
59 |
DIAGSTATS_ASCII_OUT |
IF ( klev.EQ.1 ) kLev = 0 |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
11 |
DIAGNOSTICS_SCALE_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
131 |
DIAGNOSTICS_SCALE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
63 |
DIAGNOSTICS_SCALE_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
94 |
DIAGNOSTICS_SCALE_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
160 |
DIAGNOSTICS_SET_POINTERS |
kLev = numLevels |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
163 |
DIAGNOSTICS_SET_POINTERS |
kLev = MIN(kdiag(nd),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
165 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
172 |
DIAGNOSTICS_SET_POINTERS |
nlevels(ld) = kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
173 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
189 |
DIAGNOSTICS_SET_POINTERS |
kLev = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
191 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
195 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.GT.kdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
201 |
DIAGNOSTICS_SET_POINTERS |
& 'DIAGNOSTICS_SET_POINTERS: Ask for level=',kLev, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, mm, kLev |
|
./pkg/diagnostics/diag_vegtile_fill.F |
104 |
DIAG_VEGTILE_FILL |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
105 |
DIAG_VEGTILE_FILL |
kFirst = kLev |
|
./pkg/diagnostics/diag_vegtile_fill.F |
106 |
DIAG_VEGTILE_FILL |
kLast = kLev |
|
./pkg/diagnostics/diag_vegtile_fill.F |
10 |
DIAG_VEGTILE_FILL |
. check, chardiag, kLev, nLevs, bi, bj, myThid) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
112 |
DIAG_VEGTILE_FILL |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
115 |
DIAG_VEGTILE_FILL |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
120 |
DIAG_VEGTILE_FILL |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
134 |
DIAG_VEGTILE_FILL |
. 'with kLev,nLevs=', kLev,nLevs |
|
./pkg/diagnostics/diag_vegtile_fill.F |
205 |
DIAG_VEGTILE_FILL |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
254 |
DIAG_VEGTILE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
52 |
DIAG_VEGTILE_FILL |
INTEGER kLev, nLevs, bi, bj |
|
./pkg/diagnostics/diag_vegtile_fill.F |
87 |
DIAG_VEGTILE_FILL |
IF ( (ABS(kLev).LE.1) .AND. (npeice.eq.1) ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
98 |
DIAG_VEGTILE_FILL |
IF (kLev.LE.0) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
103 |
AIM_TENDENCY_APPLY_U |
IF (aim_taveFreq.NE.0 .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
109 |
AIM_TENDENCY_APPLY_U |
IF (usediagnostics .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
121 |
AIM_TENDENCY_APPLY_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
146 |
AIM_TENDENCY_APPLY_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
163 |
AIM_TENDENCY_APPLY_V |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
173 |
AIM_TENDENCY_APPLY_V |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
178 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
179 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
182 |
AIM_TENDENCY_APPLY_V |
ELSEIF (kLev.eq.1) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
185 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
188 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
189 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
190 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
191 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
199 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
200 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
202 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,kLev-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
203 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,kLev-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
204 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
205 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
206 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
207 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
216 |
AIM_TENDENCY_APPLY_V |
IF (aim_taveFreq.NE.0 .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
222 |
AIM_TENDENCY_APPLY_V |
IF (usediagnostics .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
234 |
AIM_TENDENCY_APPLY_T |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
257 |
AIM_TENDENCY_APPLY_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
270 |
AIM_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
271 |
AIM_TENDENCY_APPLY_T |
& *( gT(i,j,kLev,bi,bj) + aim_dTdt(i,j,kLev,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
281 |
AIM_TENDENCY_APPLY_S |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
304 |
AIM_TENDENCY_APPLY_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
318 |
AIM_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
319 |
AIM_TENDENCY_APPLY_S |
& *( gS(i,j,kLev,bi,bj) + aim_dSdt(i,j,kLev,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
33 |
AIM_TENDENCY_APPLY_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
50 |
AIM_TENDENCY_APPLY_U |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
60 |
AIM_TENDENCY_APPLY_U |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
65 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
66 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
69 |
AIM_TENDENCY_APPLY_U |
ELSEIF (kLev.eq.1) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
72 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
75 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
76 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
78 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
86 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
87 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
89 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,kLev-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
8 |
AIM_TENDENCY_APPLY_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
90 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
91 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
92 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
93 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
94 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
108 |
DIC_SURFFORCING |
IF(maskC(i,j,kLev,bi,bj) .NE. 0.)THEN |
|
./pkg/dic/dic_surfforcing.F |
110 |
DIC_SURFFORCING |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
111 |
DIC_SURFFORCING |
I PTR_CO2(i,j,kLev), surfphos(i,j), |
|
./pkg/dic/dic_surfforcing.F |
128 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/dic/dic_surfforcing.F |
132 |
DIC_SURFFORCING |
& + sca2 * theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
133 |
DIC_SURFFORCING |
& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
134 |
DIC_SURFFORCING |
& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
135 |
DIC_SURFFORCING |
& *theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
157 |
DIC_SURFFORCING |
& maskC(i,j,kLev,bi,bj)*Kwexch(i,j)*( |
|
./pkg/dic/dic_surfforcing.F |
167 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/dic/dic_surfforcing.F |
189 |
DIC_SURFFORCING |
GDC(i,j)= maskC(i,j,kLev,bi,bj)*recip_drF(kLev)* |
|
./pkg/dic/dic_surfforcing.F |
190 |
DIC_SURFFORCING |
& recip_hFacC(i,j,kLev,bi,bj)*( |
|
./pkg/dic/dic_surfforcing.F |
51 |
DIC_SURFFORCING |
INTEGER I,J, kLev, it |
|
./pkg/dic/dic_surfforcing.F |
66 |
DIC_SURFFORCING |
kLev=1 |
|
./pkg/dic/dic_surfforcing.F |
84 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
86 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
88 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
89 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
90 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225e-4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
134 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
136 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
138 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing_init.F |
139 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
140 |
DIC_SURFFORCING_INIT |
surfphos(i,j) = 5.1225e-4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
143 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
144 |
DIC_SURFFORCING_INIT |
PTR_CO2(i,j,kLev) = PTRACER(i,j,klev,bi,bj,1) |
|
./pkg/dic/dic_surfforcing_init.F |
145 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
168 |
DIC_SURFFORCING_INIT |
IF(maskC(i,j,kLev,bi,bj) .NE. 0.)THEN |
|
./pkg/dic/dic_surfforcing_init.F |
174 |
DIC_SURFFORCING_INIT |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
175 |
DIC_SURFFORCING_INIT |
I PTR_CO2(i,j,kLev), surfphos(i,j), |
|
./pkg/dic/dic_surfforcing_init.F |
41 |
DIC_SURFFORCING_INIT |
INTEGER I,J, kLev, it |
|
./pkg/dic/dic_surfforcing_init.F |
58 |
DIC_SURFFORCING_INIT |
kLev=1 |
|
./pkg/dic/tracer_meanarea.F |
22 |
TRACER_MEANAREA |
INTEGER kLev |
|
./pkg/dic/tracer_meanarea.F |
44 |
TRACER_MEANAREA |
& rA(i,j,bi,bj)*maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
46 |
TRACER_MEANAREA |
& tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)* |
|
./pkg/dic/tracer_meanarea.F |
47 |
TRACER_MEANAREA |
& maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
5 |
TRACER_MEANAREA |
SUBROUTINE TRACER_MEANAREA(myThid,tracer, kLev, |
|
./model/src/taueddy_external_forcing.F |
10 |
TAUEDDY_EXTERNAL_FORCING_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./model/src/taueddy_external_forcing.F |
113 |
TAUEDDY_EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/taueddy_external_forcing.F |
143 |
TAUEDDY_EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
39 |
TAUEDDY_EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/taueddy_external_forcing.F |
69 |
TAUEDDY_EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
84 |
TAUEDDY_EXTERNAL_FORCING_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
107 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
126 |
FIZHI_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) + |
|
./pkg/fizhi/fizhi_tendency_apply.F |
127 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
135 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = ( maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
136 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
140 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
181 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
203 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
204 |
FIZHI_TENDENCY_APPLY_T |
. *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
207 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
208 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
209 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
210 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
211 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
218 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
220 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
221 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
222 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
223 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
224 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
225 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
236 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
237 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
238 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
239 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
240 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
241 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
245 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
276 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
288 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
289 |
FIZHI_TENDENCY_APPLY_S |
. *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
296 |
FIZHI_TENDENCY_APPLY_S |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
300 |
FIZHI_TENDENCY_APPLY_S |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
51 |
FIZHI_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) + |
|
./pkg/fizhi/fizhi_tendency_apply.F |
52 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
53 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
61 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
65 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
72 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
75 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
81 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,myThid) |
|
./model/src/external_forcing.F |
102 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
115 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
145 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
168 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
174 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
180 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
185 |
|