| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_wet.F |
419 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
422 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
425 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
426 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
429 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global obcsN T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
435 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
438 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
441 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
442 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
445 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global obcsS T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
451 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
454 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
457 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
458 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
461 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global obcsW T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
467 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
470 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
473 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
474 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
477 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global obcsE T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
491 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
493 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsnglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
497 |
CTRL_INIT_WET |
& 'ctrl-wet 16a: global SUM(K) obcsN T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
503 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
505 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcssglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
509 |
CTRL_INIT_WET |
& 'ctrl-wet 16b: global SUM(K) obcsS T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
50 |
CTRL_INIT_WET |
integer ntmpob(nobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
515 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
517 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
521 |
CTRL_INIT_WET |
& 'ctrl-wet 16c: global SUM(K) obcsW T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
527 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
529 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
533 |
CTRL_INIT_WET |
& 'ctrl-wet 16d: global SUM(K) obcsE T,S,U,V ', ntmpob |