| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_wet.F |
394 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
400 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
401 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
404 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global obcsN T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
410 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
413 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
416 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
417 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
420 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global obcsS T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
426 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
429 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
432 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
433 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
436 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global obcsW T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
442 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
445 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
448 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
449 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
452 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global obcsE T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
45 |
CTRL_INIT_WET |
integer ntmpob(nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
466 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
468 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
472 |
CTRL_INIT_WET |
& 'ctrl-wet 16a: global SUM(K) obcsN T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
478 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
480 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
484 |
CTRL_INIT_WET |
& 'ctrl-wet 16b: global SUM(K) obcsS T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
490 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
492 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
496 |
CTRL_INIT_WET |
& 'ctrl-wet 16c: global SUM(K) obcsW T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
502 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
504 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
508 |
CTRL_INIT_WET |
& 'ctrl-wet 16d: global SUM(K) obcsE T,S,U,V ', ntmpob |