| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/KPP_PARAMS.h |
18 |
NO PROCEDURE |
integer imt |
|
./pkg/kpp/KPP_PARAMS.h |
23 |
NO PROCEDURE |
parameter( imt=(sNx+2*OLx)*(sNy+2*OLy) ) |
|
./pkg/kpp/kpp_routines.F |
1000 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
101 |
KPPMIX |
_RL boplume (imt,Nrp1) |
|
./pkg/kpp/kpp_routines.F |
102 |
KPPMIX |
_RL SPDepth (imt ) |
|
./pkg/kpp/kpp_routines.F |
1046 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
104 |
KPPMIX |
_RL lon (imt ) |
|
./pkg/kpp/kpp_routines.F |
105 |
KPPMIX |
_RL lat (imt ) |
|
./pkg/kpp/kpp_routines.F |
1081 |
Z121 |
_RL v(imt,0:Nrp1) |
|
./pkg/kpp/kpp_routines.F |
108 |
KPPMIX |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
109 |
KPPMIX |
_RL Ritop (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1104 |
Z121 |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
110 |
KPPMIX |
_RL coriol (imt ) |
|
./pkg/kpp/kpp_routines.F |
111 |
KPPMIX |
_RS msk (imt ) |
|
./pkg/kpp/kpp_routines.F |
112 |
KPPMIX |
_RL diffusKzS(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
113 |
KPPMIX |
_RL diffusKzT(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
124 |
KPPMIX |
_RL diffus(imt,0:Nrp1,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1259 |
BLMIX |
_RL ustar (imt) |
|
./pkg/kpp/kpp_routines.F |
125 |
KPPMIX |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1260 |
BLMIX |
_RL bfsfc (imt) |
|
./pkg/kpp/kpp_routines.F |
1261 |
BLMIX |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1262 |
BLMIX |
_RL stable(imt) |
|
./pkg/kpp/kpp_routines.F |
1263 |
BLMIX |
_RL casea (imt) |
|
./pkg/kpp/kpp_routines.F |
1264 |
BLMIX |
_RL diffus(imt,0:Nrp1,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1265 |
BLMIX |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
126 |
KPPMIX |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1272 |
BLMIX |
_RL dkm1 (imt,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1273 |
BLMIX |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1274 |
BLMIX |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1275 |
BLMIX |
_RL sigma(imt) |
|
./pkg/kpp/kpp_routines.F |
1284 |
BLMIX |
_RL gat1m(imt), gat1s(imt), gat1t(imt) |
|
./pkg/kpp/kpp_routines.F |
1285 |
BLMIX |
_RL dat1m(imt), dat1s(imt), dat1t(imt) |
|
./pkg/kpp/kpp_routines.F |
1286 |
BLMIX |
_RL ws(imt), wm(imt) |
|
./pkg/kpp/kpp_routines.F |
1304 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1315 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1322 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1372 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
1393 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
140 |
KPPMIX |
integer kbl(imt ) |
|
./pkg/kpp/kpp_routines.F |
1412 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
141 |
KPPMIX |
_RL bfsfc (imt ) |
|
./pkg/kpp/kpp_routines.F |
142 |
KPPMIX |
_RL casea (imt ) |
|
./pkg/kpp/kpp_routines.F |
143 |
KPPMIX |
_RL stable (imt ) |
|
./pkg/kpp/kpp_routines.F |
1444 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
144 |
KPPMIX |
_RL dkm1 (imt, mdiff) |
|
./pkg/kpp/kpp_routines.F |
145 |
KPPMIX |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1461 |
BLMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
146 |
KPPMIX |
_RL sigma (imt ) |
|
./pkg/kpp/kpp_routines.F |
147 |
KPPMIX |
_RL Rib (imt,Nr ) |
|
./pkg/kpp/kpp_routines.F |
1502 |
ENHANCE |
_RL dkm1 (imt,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1503 |
ENHANCE |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1504 |
ENHANCE |
integer kbl (imt) |
|
./pkg/kpp/kpp_routines.F |
1505 |
ENHANCE |
_RL diffus(imt,0:Nrp1,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1506 |
ENHANCE |
_RL casea (imt) |
|
./pkg/kpp/kpp_routines.F |
1510 |
ENHANCE |
_RL ghat (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
1514 |
ENHANCE |
_RL blmc (imt,Nr,mdiff) |
|
./pkg/kpp/kpp_routines.F |
1524 |
ENHANCE |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
185 |
KPPMIX |
do i = 1,imt |
|
./pkg/kpp/kpp_routines.F |
251 |
KPPMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
345 |
BLDEPTH |
integer kmtj(imt) |
|
./pkg/kpp/kpp_routines.F |
346 |
BLDEPTH |
_RL dvsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
347 |
BLDEPTH |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
348 |
BLDEPTH |
_RL Ritop (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
349 |
BLDEPTH |
_RL ustar (imt) |
|
./pkg/kpp/kpp_routines.F |
350 |
BLDEPTH |
_RL bo (imt) |
|
./pkg/kpp/kpp_routines.F |
351 |
BLDEPTH |
_RL bosol (imt) |
|
./pkg/kpp/kpp_routines.F |
352 |
BLDEPTH |
_RL coriol (imt) |
|
./pkg/kpp/kpp_routines.F |
355 |
BLDEPTH |
_RL boplume (imt,Nrp1) |
|
./pkg/kpp/kpp_routines.F |
356 |
BLDEPTH |
_RL SPDepth (imt) |
|
./pkg/kpp/kpp_routines.F |
358 |
BLDEPTH |
_RL lon (imt) |
|
./pkg/kpp/kpp_routines.F |
359 |
BLDEPTH |
_RL lat (imt) |
|
./pkg/kpp/kpp_routines.F |
372 |
BLDEPTH |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
373 |
BLDEPTH |
_RL bfsfc (imt) |
|
./pkg/kpp/kpp_routines.F |
374 |
BLDEPTH |
_RL stable (imt) |
|
./pkg/kpp/kpp_routines.F |
375 |
BLDEPTH |
_RL casea (imt) |
|
./pkg/kpp/kpp_routines.F |
376 |
BLDEPTH |
integer kbl(imt) |
|
./pkg/kpp/kpp_routines.F |
377 |
BLDEPTH |
_RL Rib (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
378 |
BLDEPTH |
_RL sigma (imt) |
|
./pkg/kpp/kpp_routines.F |
385 |
BLDEPTH |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
386 |
BLDEPTH |
_RL worka(imt) |
|
./pkg/kpp/kpp_routines.F |
404 |
BLDEPTH |
_RL KPPBFSFC(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
405 |
BLDEPTH |
_RL KPPRi(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
419 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
427 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
442 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
447 |
BLDEPTH |
I imt, hbf, |
|
./pkg/kpp/kpp_routines.F |
452 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
467 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
472 |
BLDEPTH |
I imt, hbf,SPDepth, |
|
./pkg/kpp/kpp_routines.F |
478 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
487 |
BLDEPTH |
DO i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
498 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
503 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
517 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
571 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
580 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
598 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
605 |
BLDEPTH |
I imt, minusone, |
|
./pkg/kpp/kpp_routines.F |
612 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
619 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
623 |
BLDEPTH |
I imt,minusone,SPDepth, |
|
./pkg/kpp/kpp_routines.F |
629 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
636 |
BLDEPTH |
DO i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
650 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
668 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
684 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
698 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
709 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
716 |
BLDEPTH |
I imt, minusone, |
|
./pkg/kpp/kpp_routines.F |
723 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
730 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
734 |
BLDEPTH |
I imt,minusone,SPDepth, |
|
./pkg/kpp/kpp_routines.F |
740 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
747 |
BLDEPTH |
DO i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
761 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
770 |
BLDEPTH |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
808 |
WSCALE |
_RL sigma(imt) |
|
./pkg/kpp/kpp_routines.F |
809 |
WSCALE |
_RL hbl (imt) |
|
./pkg/kpp/kpp_routines.F |
810 |
WSCALE |
_RL ustar(imt) |
|
./pkg/kpp/kpp_routines.F |
811 |
WSCALE |
_RL bfsfc(imt) |
|
./pkg/kpp/kpp_routines.F |
816 |
WSCALE |
_RL wm(imt), ws(imt) |
|
./pkg/kpp/kpp_routines.F |
834 |
WSCALE |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
912 |
RI_IWMIX |
integer kmtj (imt) |
|
./pkg/kpp/kpp_routines.F |
913 |
RI_IWMIX |
_RL shsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
914 |
RI_IWMIX |
_RL dbloc (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
915 |
RI_IWMIX |
_RL dblocSm (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
916 |
RI_IWMIX |
_RL diffusKzS(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
917 |
RI_IWMIX |
_RL diffusKzT(imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
925 |
RI_IWMIX |
_RL diffus(imt,0:Nrp1,3) |
|
./pkg/kpp/kpp_routines.F |
94 |
KPPMIX |
integer kmtj (imt ) |
|
./pkg/kpp/kpp_routines.F |
957 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
95 |
KPPMIX |
_RL shsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
966 |
RI_IWMIX |
do i = 1, imt |
|
./pkg/kpp/kpp_routines.F |
96 |
KPPMIX |
_RL dvsq (imt,Nr) |
|
./pkg/kpp/kpp_routines.F |
97 |
KPPMIX |
_RL ustar (imt ) |
|
./pkg/kpp/kpp_routines.F |
98 |
KPPMIX |
_RL bo (imt ) |
|
./pkg/kpp/kpp_routines.F |
99 |
KPPMIX |
_RL bosol (imt ) |
|
./pkg/opps/opps_calc.F |
521 |
NLOPPS |
parameter (imt = 361 , jmt = 301 , km = 30 ) |
|
./pkg/opps/opps_calc.F |
551 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
592 |
NLOPPS |
common / boundc / wsx(imt,jmt),wsy(imt,jmt),hfs(imt,jmt), |
|
./pkg/opps/opps_calc.F |
593 |
NLOPPS |
1 ple(imt,jmt),kmp(imt,jmt),kmq(imt,jmt) |
|
./pkg/opps/opps_calc.F |
595 |
NLOPPS |
& ,wsx1(imt,jmt),wsy1(imt,jmt) |
|
./pkg/opps/opps_calc.F |
596 |
NLOPPS |
1 ,wsx2(imt,jmt),wsy2(imt,jmt) |
|
./pkg/opps/opps_calc.F |
601 |
NLOPPS |
common /countc/ convadj(imt,jmt,km),ics,depth(km),problem |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
57 |
SALT_PLUME_TENDENCY_APPLY_S |
integer imt |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
58 |
SALT_PLUME_TENDENCY_APPLY_S |
parameter( imt=(sNx+2*OLx)*(sNy+2*OLy) ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
80 |
SALT_PLUME_TENDENCY_APPLY_S |
I imt,minusone,SaltPlumeDepth(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
93 |
SALT_PLUME_TENDENCY_APPLY_S |
I imt,minusone,SaltPlumeDepth(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_volfrac.F |
101 |
SALT_PLUME_VOLFRAC |
I imt,oneRS,temp, |
|
./pkg/salt_plume/salt_plume_volfrac.F |
69 |
SALT_PLUME_VOLFRAC |
INTEGER imt |
|
./pkg/salt_plume/salt_plume_volfrac.F |
70 |
SALT_PLUME_VOLFRAC |
parameter( imt=(sNx+2*OLx)*(sNy+2*OLy) ) |