File |
Line number |
Procedure |
Code |
./pkg/mnc/mnc_dim.F |
113 |
MNC_DIM_INIT_ALL_CV |
ntmp = ILNBLNK(mnc_d_names(j)) |
./pkg/mnc/mnc_dim.F |
114 |
MNC_DIM_INIT_ALL_CV |
IF ((ntmp .EQ. (dnl-dnf+1)) |
./pkg/mnc/mnc_dim.F |
115 |
MNC_DIM_INIT_ALL_CV |
& .AND. (dname(dnf:dnl) .EQ. mnc_d_names(j)(1:ntmp))) THEN |
./pkg/mnc/mnc_dim.F |
89 |
MNC_DIM_INIT_ALL_CV |
integer ntmp, idd, err, tlen |
./pkg/ctrl/ctrl_mask_set_yz.F |
48 |
CTRL_MASK_SET_YZ |
integer ntmp |
./pkg/ctrl/ctrl_init_wet.F |
329 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
332 |
CTRL_INIT_WET |
ntmp=ntmp+nWetcTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
335 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
336 |
CTRL_INIT_WET |
nWetcGlobal(k)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
338 |
CTRL_INIT_WET |
& 'ctrl-wet 14a: global nWet... k=', k, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
340 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
343 |
CTRL_INIT_WET |
ntmp=ntmp+nWetsTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
346 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
347 |
CTRL_INIT_WET |
nWetsGlobal(k)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
349 |
CTRL_INIT_WET |
& 'ctrl-wet 14b: global nWet... k=', k, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
351 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
354 |
CTRL_INIT_WET |
ntmp=ntmp+nWetwTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
357 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
358 |
CTRL_INIT_WET |
nWetwGlobal(k)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
360 |
CTRL_INIT_WET |
& 'ctrl-wet 14c: global nWet... k=', k, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
362 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
365 |
CTRL_INIT_WET |
ntmp=ntmp+nWetvTile(bi,bj,k) |
./pkg/ctrl/ctrl_init_wet.F |
368 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
369 |
CTRL_INIT_WET |
nWetvGlobal(k)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
371 |
CTRL_INIT_WET |
& 'ctrl-wet 14d: global nWet... k=', k, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
375 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
378 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcsn(bi,bj,k,iobcs) |
./pkg/ctrl/ctrl_init_wet.F |
381 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
382 |
CTRL_INIT_WET |
nwetobcsnglo(k,iobcs)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
384 |
CTRL_INIT_WET |
& 'ctrl-wet 15a: global nWet... k=', k, iobcs, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
389 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
392 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcss(bi,bj,k,iobcs) |
./pkg/ctrl/ctrl_init_wet.F |
395 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
396 |
CTRL_INIT_WET |
nwetobcssglo(k,iobcs)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
398 |
CTRL_INIT_WET |
& 'ctrl-wet 15b: global nWet... k=', k, iobcs, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
39 |
CTRL_INIT_WET |
integer ntmp |
./pkg/ctrl/ctrl_init_wet.F |
403 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
406 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcsw(bi,bj,k,iobcs) |
./pkg/ctrl/ctrl_init_wet.F |
409 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
410 |
CTRL_INIT_WET |
nwetobcswglo(k,iobcs)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
412 |
CTRL_INIT_WET |
& 'ctrl-wet 15c: global nWet... k=', k, iobcs, ntmp |
./pkg/ctrl/ctrl_init_wet.F |
417 |
CTRL_INIT_WET |
ntmp=0 |
./pkg/ctrl/ctrl_init_wet.F |
420 |
CTRL_INIT_WET |
ntmp=ntmp+nwetobcse(bi,bj,k,iobcs) |
./pkg/ctrl/ctrl_init_wet.F |
423 |
CTRL_INIT_WET |
CALL GLOBAL_SUM_INT( ntmp, myThid ) |
./pkg/ctrl/ctrl_init_wet.F |
424 |
CTRL_INIT_WET |
nwetobcseglo(k,iobcs)=ntmp |
./pkg/ctrl/ctrl_init_wet.F |
426 |
CTRL_INIT_WET |
& 'ctrl-wet 15d: global nWet... k=', k, iobcs, ntmp |
./pkg/ctrl/ctrl_init.F |
85 |
CTRL_INIT |
integer ntmp |
./pkg/ctrl/ctrl_init_obcs_variables.F |
48 |
CTRL_INIT_OBCS_VARIABLES |
integer ntmp |
./pkg/ctrl/ctrl_readparms.F |
46 |
CTRL_READPARMS |
integer ntmp |
./pkg/ctrl/ctrl_init_variables.F |
41 |
CTRL_INIT_VARIABLES |
integer ntmp |
./pkg/ctrl/ctrl_mask_set_xz.F |
48 |
CTRL_MASK_SET_XZ |
integer ntmp |