| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_wet.F |
342 |
CTRL_INIT_WET |
ntmp2(1)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
345 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
348 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(1), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
349 |
CTRL_INIT_WET |
nWetcGlobal(k)=ntmp2(1) |
|
./pkg/ctrl/ctrl_init_wet.F |
351 |
CTRL_INIT_WET |
ntmp2(2)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
354 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
357 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(2), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
358 |
CTRL_INIT_WET |
nWetsGlobal(k)=ntmp2(2) |
|
./pkg/ctrl/ctrl_init_wet.F |
360 |
CTRL_INIT_WET |
ntmp2(3)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
363 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
366 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(3), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
367 |
CTRL_INIT_WET |
nWetwGlobal(k)=ntmp2(3) |
|
./pkg/ctrl/ctrl_init_wet.F |
369 |
CTRL_INIT_WET |
ntmp2(4)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
372 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
375 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(4), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
376 |
CTRL_INIT_WET |
nWetvGlobal(k)=ntmp2(4) |
|
./pkg/ctrl/ctrl_init_wet.F |
379 |
CTRL_INIT_WET |
& 'ctrl-wet 14: global nWet C/S/W/V k=', k, ntmp2 |
|
./pkg/ctrl/ctrl_init_wet.F |
40 |
CTRL_INIT_WET |
integer ntmp2(4) |