| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/ctrl_init_wet.F |
366 |
CTRL_INIT_WET |
ntmp2(1)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
369 |
CTRL_INIT_WET |
ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
372 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(1), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
373 |
CTRL_INIT_WET |
nWetcGlobal(k)=ntmp2(1) |
|
./pkg/ctrl/ctrl_init_wet.F |
375 |
CTRL_INIT_WET |
ntmp2(2)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
378 |
CTRL_INIT_WET |
ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
381 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(2), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
382 |
CTRL_INIT_WET |
nWetsGlobal(k)=ntmp2(2) |
|
./pkg/ctrl/ctrl_init_wet.F |
384 |
CTRL_INIT_WET |
ntmp2(3)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
387 |
CTRL_INIT_WET |
ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
390 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(3), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
391 |
CTRL_INIT_WET |
nWetwGlobal(k)=ntmp2(3) |
|
./pkg/ctrl/ctrl_init_wet.F |
393 |
CTRL_INIT_WET |
ntmp2(4)=0 |
|
./pkg/ctrl/ctrl_init_wet.F |
396 |
CTRL_INIT_WET |
ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k) |
|
./pkg/ctrl/ctrl_init_wet.F |
399 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp2(4), myThid ) |
|
./pkg/ctrl/ctrl_init_wet.F |
400 |
CTRL_INIT_WET |
nWetvGlobal(k)=ntmp2(4) |
|
./pkg/ctrl/ctrl_init_wet.F |
403 |
CTRL_INIT_WET |
& 'ctrl-wet 14: global nWet C/S/W/V k=', k, ntmp2 |
|
./pkg/ctrl/ctrl_init_wet.F |
41 |
CTRL_INIT_WET |
integer ntmp2(4) |