| File |
Line number |
Procedure |
Code |
|
./pkg/kl10/kl10_calc.F |
132 |
KL10_CALC |
DO di=-1,0 |
|
./pkg/kl10/kl10_calc.F |
133 |
KL10_CALC |
epss(di)=0.0 |
|
./pkg/kl10/kl10_calc.F |
134 |
KL10_CALC |
epsw(di)=0.0 |
|
./pkg/kl10/kl10_calc.F |
186 |
KL10_CALC |
DO di=-1,0 |
|
./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 |
195 |
KL10_CALC |
ec=ec+epsw(di)*dz |
|
./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 |
202 |
KL10_CALC |
ec=ec+epsw(di)*dz |
|
./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 |
211 |
KL10_CALC |
& +di,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
212 |
KL10_CALC |
epss(di)=tempu*tempu*KLviscAr(I-1,J+di,K,bi |
|
./pkg/kl10/kl10_calc.F |
214 |
KL10_CALC |
es = es+epss(di)*dz |
|
./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 |
221 |
KL10_CALC |
es = es+epss(di)*dz |
|
./pkg/kl10/kl10_calc.F |
62 |
KL10_CALC |
INTEGER iMin ,iMax ,jMin ,jMax,di |
|
./pkg/cal/cal_addtime.F |
141 |
CAL_ADDTIME |
di = fac*date_1 |
|
./pkg/cal/cal_addtime.F |
145 |
CAL_ADDTIME |
call CAL_CONVDATE( date,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_addtime.F |
171 |
CAL_ADDTIME |
if ( mi.eq.2 .and. di.eq.29 .and. ndays_left.gt.1 ) then |
|
./pkg/cal/cal_addtime.F |
173 |
CAL_ADDTIME |
di = 1 |
|
./pkg/cal/cal_addtime.F |
195 |
CAL_ADDTIME |
di = di + 1 |
|
./pkg/cal/cal_addtime.F |
196 |
CAL_ADDTIME |
if (di .gt. ndaymonth(mi,li)) then |
|
./pkg/cal/cal_addtime.F |
197 |
CAL_ADDTIME |
di = 1 |
|
./pkg/cal/cal_addtime.F |
216 |
CAL_ADDTIME |
di = di - 1 |
|
./pkg/cal/cal_addtime.F |
217 |
CAL_ADDTIME |
if (di .eq. 0) then |
|
./pkg/cal/cal_addtime.F |
222 |
CAL_ADDTIME |
di = ndaymonth(mi,li) |
|
./pkg/cal/cal_addtime.F |
230 |
CAL_ADDTIME |
added(1) = yi*10000 + mi*100 + di |
|
./pkg/cal/cal_addtime.F |
56 |
CAL_ADDTIME |
INTEGER yi,mi,di,si,li,wi |
|
./pkg/cal/cal_timepassed.F |
114 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_timepassed.F |
117 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,myThid ) |
|
./pkg/cal/cal_timepassed.F |
123 |
CAL_TIMEPASSED |
ndays = df - di |
|
./pkg/cal/cal_timepassed.F |
132 |
CAL_TIMEPASSED |
si = si + (di-1)*secondsperday |
|
./pkg/cal/cal_timepassed.F |
50 |
CAL_TIMEPASSED |
INTEGER di,df |