File |
Line number |
Procedure |
Code |
./pkg/layers/layers_check.F |
26 |
LAYERS_CHECK |
CHARACTER*(40) tmpName |
./pkg/layers/layers_check.F |
49 |
LAYERS_CHECK |
WRITE(tmpName,'(3A)') 'layers_num(', sfx, ') =' |
./pkg/layers/layers_check.F |
50 |
LAYERS_CHECK |
CALL WRITE_0D_I( layers_num(iLa), INDEX_NONE, tmpName(1:15), |
./pkg/layers/layers_check.F |
52 |
LAYERS_CHECK |
WRITE(tmpName,'(3A)') 'layers_name(', sfx, ') =' |
./pkg/layers/layers_check.F |
53 |
LAYERS_CHECK |
CALL WRITE_0D_C( layers_name(iLa),-1,INDEX_NONE, tmpName(1:16), |
./pkg/layers/layers_check.F |
55 |
LAYERS_CHECK |
WRITE(tmpName,'(3A)') 'layers_bolus(', sfx, ') =' |
./pkg/layers/layers_check.F |
57 |
LAYERS_CHECK |
& CALL WRITE_0D_L ( layers_bolus(iLa), INDEX_NONE, tmpName(1:17), |
./pkg/layers/layers_check.F |
59 |
LAYERS_CHECK |
WRITE(tmpName,'(3A)') 'layers_krho(', sfx, ') =' |
./pkg/layers/layers_check.F |
61 |
LAYERS_CHECK |
& CALL WRITE_0D_I( layers_krho(iLa), INDEX_NONE, tmpName(1:16), |
./pkg/layers/layers_check.F |
63 |
LAYERS_CHECK |
WRITE(tmpName,'(3A)') 'layers_bounds(*,', sfx, ') =' |
./pkg/layers/layers_check.F |
65 |
LAYERS_CHECK |
& tmpName(1:20), ' /* boundaries of tracer-averaging bins */') |
./pkg/layers/layers_init_fixed.F |
147 |
LAYERS_INIT_FIXED |
WRITE(tmpName,'(A7,I1,A3)') 'layers',iLa,layers_name(iLa) |
./pkg/layers/layers_init_fixed.F |
148 |
LAYERS_INIT_FIXED |
CALL WRITE_GLVEC_RL( tmpName, ' ',layers_bounds(1,iLa),1+Nlayers, |
./pkg/layers/layers_init_fixed.F |
40 |
LAYERS_INIT_FIXED |
CHARACTER*11 tmpName |
./eesupp/src/timers.F |
153 |
TIMER_CONTROL |
CHARACTER*(maxString) tmpName |
./eesupp/src/timers.F |
232 |
TIMER_CONTROL |
tmpName = name(ISTART:IEND) |
./eesupp/src/timers.F |
233 |
TIMER_CONTROL |
CALL UCASE( tmpName ) |
./eesupp/src/timers.F |
235 |
TIMER_CONTROL |
tmpName = ' ' |
./eesupp/src/timers.F |
244 |
TIMER_CONTROL |
iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId), |
./eesupp/src/timers.F |
252 |
TIMER_CONTROL |
timerNames(iTimer,myThreadId) = tmpName |
./eesupp/src/timers.F |
254 |
TIMER_CONTROL |
& ILNBLNK(tmpName)-IFNBLNK(tmpName)+1 |
./eesupp/src/timers.F |
283 |
TIMER_CONTROL |
CALL F_HPMSTART((myThreadId-1)*100+iTimer,tmpName) |
./eesupp/src/timers.F |
285 |
TIMER_CONTROL |
CALL F_HPMTSTART((myThreadId-1)*100+iTimer,tmpName) |