| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_TRACER.h |
51 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) SItrName(SItrMaxNum) |
|
./pkg/seaice/SEAICE_TRACER.h |
55 |
NO PROCEDURE |
COMMON /SEAICE_SITR_C/ SItrFile, SItrName, SItrMate, |
|
./pkg/seaice/seaice_check.F |
241 |
SEAICE_CHECK |
IF ( (SItrName(iTracer).NE.'salinity').AND. |
|
./pkg/seaice/seaice_diagnostics_init.F |
161 |
SEAICE_DIAGNOSTICS_INIT |
ilnb = ILNBLNK(SItrName(iTr)) |
|
./pkg/seaice/seaice_diagnostics_init.F |
164 |
SEAICE_DIAGNOSTICS_INIT |
WRITE(locNameTr,'(2A)') SItrName(iTr)(1:ilnb),' tracer' |
|
./pkg/seaice/seaice_growth.F |
417 |
SEAICE_GROWTH |
if (SItrName(iTr).EQ.'grease') iTrGrease=iTr |
|
./pkg/seaice/seaice_init_fixed.F |
105 |
SEAICE_INIT_FIXED |
IF (SItrName(iTracer).EQ.'one') THEN |
|
./pkg/seaice/seaice_init_fixed.F |
113 |
SEAICE_INIT_FIXED |
IF (SItrName(iTracer).EQ.'age') THEN |
|
./pkg/seaice/seaice_init_fixed.F |
121 |
SEAICE_INIT_FIXED |
IF (SItrName(iTracer).EQ.'salinity') THEN |
|
./pkg/seaice/seaice_init_fixed.F |
130 |
SEAICE_INIT_FIXED |
IF (SItrName(iTracer).EQ.'ridge') THEN |
|
./pkg/seaice/seaice_init_fixed.F |
141 |
SEAICE_INIT_FIXED |
IF (SItrName(iTracer).EQ.'grease') THEN |
|
./pkg/seaice/seaice_init_varia.F |
328 |
SEAICE_INIT_VARIA |
if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0 |
|
./pkg/seaice/seaice_readparms.F |
195 |
SEAICE_READPARMS |
& SItrFile, SItrName, SItrNameLong, SItrUnit, SItrMate, |
|
./pkg/seaice/seaice_readparms.F |
606 |
SEAICE_READPARMS |
SItrName(iTracer) = ' ' |
|
./pkg/seaice/seaice_summary.F |
672 |
SEAICE_SUMMARY |
IF (SItrName(iTracer).NE.' ') THEN |
|
./pkg/seaice/seaice_summary.F |
679 |
SEAICE_SUMMARY |
CALL WRITE_0D_C ( SItrName(iTracer), -1, INDEX_NONE, |
|
./pkg/seaice/seaice_tracer_phys.F |
157 |
SEAICE_TRACER_PHYS |
if (SItrName(iTr).EQ.'age') then |
|
./pkg/seaice/seaice_tracer_phys.F |
171 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'salinity') then |
|
./pkg/seaice/seaice_tracer_phys.F |
173 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'one') then |
|
./pkg/seaice/seaice_tracer_phys.F |
175 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'ridge') then |
|
./pkg/seaice/seaice_tracer_phys.F |
202 |
SEAICE_TRACER_PHYS |
if ( (SItrName(iTr).EQ.'salinity').AND. |
|
./pkg/seaice/seaice_tracer_phys.F |
227 |
SEAICE_TRACER_PHYS |
if (SItrName(iTr).NE.'grease') |
|
./pkg/seaice/seaice_tracer_phys.F |
244 |
SEAICE_TRACER_PHYS |
if (SItrName(iTr).EQ.'salinity') then |
|
./pkg/seaice/seaice_tracer_phys.F |
246 |
SEAICE_TRACER_PHYS |
elseif (SItrName(iTr).EQ.'one') then |
|
./pkg/seaice/seaice_tracer_phys.F |
74 |
SEAICE_TRACER_PHYS |
if ( (SItrName(iTr).EQ.'salinity').AND. |