| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_wet.F |
418 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
421 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
424 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
425 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
428 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global obcsN T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
434 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
437 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
440 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
441 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
444 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global obcsS T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
450 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
453 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
456 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
457 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
460 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global obcsW T,S,U,V k=', k, ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
466 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
469 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
472 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmpob(iobcs), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
473 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmpob(iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
476 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global obcsE T,S,U,V k=', k, 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)+nwetobcsnglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
496 |
CTRL_INIT_WET |
& 'ctrl-wet 16a: global SUM(K) obcsN T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
49 |
CTRL_INIT_WET |
integer ntmpob(nobcs) |
|
./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)+nwetobcssglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
508 |
CTRL_INIT_WET |
& 'ctrl-wet 16b: global SUM(K) obcsS T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
514 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
516 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcswglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
520 |
CTRL_INIT_WET |
& 'ctrl-wet 16c: global SUM(K) obcsW T,S,U,V ', ntmpob |
|
./pkg/ctrl/ctrl_init_wet.F |
526 |
CTRL_INIT_WET |
ntmpob(iobcs)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
528 |
CTRL_INIT_WET |
ntmpob(iobcs)=ntmpob(iobcs)+nwetobcseglo(k,iobcs) |
|
./pkg/ctrl/ctrl_init_wet.F |
532 |
CTRL_INIT_WET |
& 'ctrl-wet 16d: global SUM(K) obcsE T,S,U,V ', ntmpob |