File |
Line number |
Procedure |
Code |
./pkg/ctrl/ctrl_init_wet.F |
367 |
CTRL_INIT_WET |
ntmp2(1)=0 |
./pkg/ctrl/ctrl_init_wet.F |
370 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
373 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(1), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
374 |
CTRL_INIT_WET |
nWetcGlobal(k)=ntmp2(1) |
./pkg/ctrl/ctrl_init_wet.F |
376 |
CTRL_INIT_WET |
ntmp2(2)=0 |
./pkg/ctrl/ctrl_init_wet.F |
379 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
382 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(2), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
383 |
CTRL_INIT_WET |
nWetsGlobal(k)=ntmp2(2) |
./pkg/ctrl/ctrl_init_wet.F |
385 |
CTRL_INIT_WET |
ntmp2(3)=0 |
./pkg/ctrl/ctrl_init_wet.F |
388 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
391 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(3), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
392 |
CTRL_INIT_WET |
nWetwGlobal(k)=ntmp2(3) |
./pkg/ctrl/ctrl_init_wet.F |
394 |
CTRL_INIT_WET |
ntmp2(4)=0 |
./pkg/ctrl/ctrl_init_wet.F |
397 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
400 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(4), myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
401 |
CTRL_INIT_WET |
nWetvGlobal(k)=ntmp2(4) |
./pkg/ctrl/ctrl_init_wet.F |
404 |
CTRL_INIT_WET |
& 'ctrl-wet 14: global nWet C/S/W/V k=', k, ntmp2 |
./pkg/ctrl/ctrl_init_wet.F |
42 |
CTRL_INIT_WET |
integer ntmp2(4) |