| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
105 |
NO PROCEDURE |
CHARACTER*(10) pickupSuff |
|
./model/inc/PARAMS.h |
86 |
NO PROCEDURE |
& pickupSuff, mdsioLocalDir, adTapeDir, |
|
./pkg/generic_advdiff/gad_init_varia.F |
63 |
GAD_INIT_VARIA |
& .AND. pickupSuff.EQ.' ' ) THEN |
|
./pkg/generic_advdiff/gad_read_pickup.F |
114 |
GAD_READ_PICKUP |
IF (pickupSuff .EQ. ' ') THEN |
|
./pkg/generic_advdiff/gad_read_pickup.F |
117 |
GAD_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_somS.', pickupSuff |
|
./pkg/generic_advdiff/gad_read_pickup.F |
73 |
GAD_READ_PICKUP |
IF (pickupSuff .EQ. ' ') THEN |
|
./pkg/generic_advdiff/gad_read_pickup.F |
76 |
GAD_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_somT.', pickupSuff |
|
./pkg/ggl90/ggl90_checkpoint.F |
30 |
GGL90_READ_PICKUP |
IF (pickupSuff.EQ.' ') THEN |
|
./pkg/ggl90/ggl90_checkpoint.F |
33 |
GGL90_READ_PICKUP |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/ggl90/ggl90_init_varia.F |
61 |
GGL90_INIT_VARIA |
IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN |
|
./pkg/mypackage/mypackage_init_varia.F |
74 |
MYPACKAGE_INIT_VARIA |
& .AND. pickupSuff.EQ.' ' ) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
56 |
MYPACKAGE_READ_PICKUP |
IF ( pickupSuff.EQ.' ' ) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
59 |
MYPACKAGE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_mypackage.',pickupSuff |
|
./pkg/obcs/obcs_init_variables.F |
332 |
OBCS_INIT_VARIABLES |
IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN |
|
./pkg/obcs/obcs_init_variables.F |
338 |
OBCS_INIT_VARIABLES |
IF ( nIter0.EQ.0 .AND. pickupSuff.EQ.' ' ) THEN |
|
./pkg/obcs/obcs_read_pickup.F |
42 |
OBCS_READ_PICKUP |
IF ( pickupSuff.EQ.' ' ) THEN |
|
./pkg/obcs/obcs_read_pickup.F |
45 |
OBCS_READ_PICKUP |
suff = pickupSuff |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
81 |
CPL_INI_VARS |
& .OR. pickupSuff .NE. ' ' ) THEN |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
51 |
OCN_CPL_READ_PICKUP |
IF ( pickupSuff.EQ.' ' ) THEN |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
54 |
OCN_CPL_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_cpl.', pickupSuff |
|
./model/src/config_summary.F |
522 |
CONFIG_SUMMARY |
i = ILNBLNK(pickupSuff) |
|
./model/src/config_summary.F |
524 |
CONFIG_SUMMARY |
CALL WRITE_0D_C( pickupSuff, 0, INDEX_NONE, |
|
./pkg/ptracers/ptracers_init_varia.F |
117 |
PTRACERS_INIT_VARIA |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |
|
./pkg/ptracers/ptracers_read_pickup.F |
104 |
PTRACERS_READ_PICKUP |
IF ( pickupSuff.EQ.' ' ) THEN |
|
./pkg/ptracers/ptracers_read_pickup.F |
107 |
PTRACERS_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ptracers.',pickupSuff |
|
./pkg/ptracers/ptracers_read_pickup.F |
264 |
PTRACERS_READ_PICKUP |
IF (pickupSuff .EQ. ' ') THEN |
|
./pkg/ptracers/ptracers_read_pickup.F |
269 |
PTRACERS_READ_PICKUP |
& PTRACERS_ioLabel(iTracer),'.', pickupSuff |
|
./pkg/seaice/seaice_init_varia.F |
303 |
SEAICE_INIT_VARIA |
& .AND. pickupSuff .EQ. ' ') ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
58 |
SEAICE_READ_PICKUP |
IF (pickupSuff .EQ. ' ') THEN |
|
./pkg/seaice/seaice_read_pickup.F |
61 |
SEAICE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_seaice.',pickupSuff |
|
./pkg/thsice/thsice_ini_vars.F |
113 |
THSICE_INI_VARS |
& ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) |
|
./pkg/thsice/thsice_read_pickup.F |
42 |
THSICE_READ_PICKUP |
IF (pickupSuff .EQ. ' ') THEN |
|
./pkg/thsice/thsice_read_pickup.F |
45 |
THSICE_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_ic.',pickupSuff |
|
./model/src/ini_fields.F |
31 |
INI_FIELDS |
& .AND. pickupSuff .EQ. ' ' ) THEN |
|
./model/src/ini_nh_fields.F |
50 |
INI_NH_FIELDS |
& .AND. pickupSuff .EQ. ' ' ) THEN |
|
./model/src/ini_parms.F |
230 |
INI_PARMS |
& chkPtFreq, pChkPtFreq, pickupSuff, pickupStrictlyMatch, |
|
./model/src/read_pickup.F |
86 |
READ_PICKUP |
IF (pickupSuff .EQ. ' ') THEN |
|
./model/src/read_pickup.F |
89 |
READ_PICKUP |
WRITE(suff,'(A10)') pickupSuff |
|
./model/src/set_defaults.F |
260 |
SET_DEFAULTS |
pickupSuff = ' ' |
|
./pkg/cd_code/cd_code_ini_vars.F |
55 |
CD_CODE_INI_VARS |
IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN |
|
./pkg/cd_code/cd_code_read_pickup.F |
39 |
CD_CODE_READ_PICKUP |
IF (pickupSuff.EQ.' ') THEN |
|
./pkg/cd_code/cd_code_read_pickup.F |
42 |
CD_CODE_READ_PICKUP |
WRITE(suff,'(A10)') pickupSuff |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
57 |
CHEAPAML_READ_PICKUP |
IF ( pickupSuff.EQ.' ' ) THEN |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
60 |
CHEAPAML_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_cheapaml.',pickupSuff |
|
./pkg/dic/dic_atmos.F |
174 |
DIC_ATMOS |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |
|
./pkg/dic/dic_read_co2_pickup.F |
46 |
DIC_READ_CO2_PICKUP |
IF (pickupSuff.EQ.' ') THEN |
|
./pkg/dic/dic_read_co2_pickup.F |
49 |
DIC_READ_CO2_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_dic_co2atm.', pickupSuff |
|
./pkg/dic/dic_read_pickup.F |
40 |
DIC_READ_PICKUP |
IF (pickupSuff.EQ.' ') THEN |
|
./pkg/dic/dic_read_pickup.F |
43 |
DIC_READ_PICKUP |
WRITE(fn,'(A,A10)') 'pickup_dic.', pickupSuff |
|
./pkg/dic/dic_surfforcing_init.F |
164 |
DIC_SURFFORCING_INIT |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |