Symbol Description Uses
pickupSuff force to start from pickup files (even if nIter0=0) 75


File Line number Procedure Code
./model/inc/PARAMS.h 104 NO PROCEDURE 
      CHARACTER*(10) pickupSuff
./model/inc/PARAMS.h 85 NO PROCEDURE 
     &                pickupSuff, mdsioLocalDir, adTapeDir,
./pkg/flt/flt_init_varia.F 101 FLT_INIT_VARIA 
          WRITE(suff,'(A10)') pickupSuff
./pkg/flt/flt_init_varia.F 94 FLT_INIT_VARIA 
        IF ( pickupSuff .EQ. ' ' ) THEN
./pkg/generic_advdiff/gad_init_varia.F 63 GAD_INIT_VARIA 
     &                      .AND. pickupSuff.EQ.' ' ) THEN
./pkg/generic_advdiff/gad_read_pickup.F 125 GAD_READ_PICKUP 
        IF (pickupSuff .EQ. ' ') THEN
./pkg/generic_advdiff/gad_read_pickup.F 133 GAD_READ_PICKUP 
          WRITE(fn,'(A,A10)') 'pickup_somS.', pickupSuff
./pkg/generic_advdiff/gad_read_pickup.F 74 GAD_READ_PICKUP 
        IF (pickupSuff .EQ. ' ') THEN
./pkg/generic_advdiff/gad_read_pickup.F 82 GAD_READ_PICKUP 
          WRITE(fn,'(A,A10)') 'pickup_somT.', pickupSuff
./pkg/ggl90/ggl90_init_varia.F 138 GGL90_INIT_VARIA 
      IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN
./pkg/ggl90/ggl90_read_pickup.F 42 GGL90_READ_PICKUP 
      IF (pickupSuff.EQ.' ') THEN
./pkg/ggl90/ggl90_read_pickup.F 49 GGL90_READ_PICKUP 
        WRITE(suff,'(A10)') pickupSuff
./pkg/gmredi/gmredi_init_varia.F 112 GMREDI_INIT_VARIA 
     &     .AND. pickupSuff.EQ.' ' )) THEN
./pkg/gmredi/gmredi_read_pickup.F 58 GMREDI_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/gmredi/gmredi_read_pickup.F 66 GMREDI_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_gmredi.', pickupSuff
./model/src/config_summary.F 712 CONFIG_SUMMARY 
      i = ILNBLNK(pickupSuff)
./model/src/config_summary.F 714 CONFIG_SUMMARY 
        CALL WRITE_0D_C( pickupSuff, 0, INDEX_NONE,
./pkg/mypackage/mypackage_init_varia.F 74 MYPACKAGE_INIT_VARIA 
     &                           .AND. pickupSuff.EQ.' ' ) THEN
./pkg/mypackage/mypackage_read_pickup.F 57 MYPACKAGE_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/mypackage/mypackage_read_pickup.F 65 MYPACKAGE_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_mypackage.', pickupSuff
./pkg/obcs/obcs_init_variables.F 416 OBCS_INIT_VARIABLES 
      IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN
./pkg/obcs/obcs_init_variables.F 422 OBCS_INIT_VARIABLES 
      IF ( nIter0.EQ.0 .AND. pickupSuff.EQ.' ' ) THEN
./pkg/obcs/obcs_read_pickup.F 43 OBCS_READ_PICKUP 
      IF ( pickupSuff.EQ.' ' ) THEN
./pkg/obcs/obcs_read_pickup.F 50 OBCS_READ_PICKUP 
        suff = pickupSuff
./pkg/ocn_compon_interf/cpl_ini_vars.F 92 CPL_INI_VARS 
     &                   .OR. pickupSuff .NE. ' ' ) THEN
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F 50 OCN_CPL_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F 58 OCN_CPL_READ_PICKUP 
         WRITE(fn,'(A,A10)') 'pickup_cpl.', pickupSuff
./pkg/ptracers/ptracers_init_varia.F 128 PTRACERS_INIT_VARIA 
     &    (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ')
./pkg/ptracers/ptracers_read_pickup.F 107 PTRACERS_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/ptracers/ptracers_read_pickup.F 115 PTRACERS_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_ptracers.', pickupSuff
./pkg/ptracers/ptracers_read_pickup.F 284 PTRACERS_READ_PICKUP 
         IF ( pickupSuff.EQ.' ' ) THEN
./pkg/ptracers/ptracers_read_pickup.F 295 PTRACERS_READ_PICKUP 
     &                     PTRACERS_ioLabel(iTracer),'.', pickupSuff
./pkg/seaice/seaice_init_varia.F 464 SEAICE_INIT_VARIA 
     &     .AND. pickupSuff .EQ. ' ') ) THEN
./pkg/seaice/seaice_read_pickup.F 66 SEAICE_READ_PICKUP 
      IF ( pickupSuff .EQ. ' ' ) THEN
./pkg/seaice/seaice_read_pickup.F 74 SEAICE_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_seaice.', pickupSuff
./pkg/shelfice/shelfice_init_varia.F 95 SHELFICE_INIT_VARIA 
     &     .AND. pickupSuff .EQ. ' ') ) THEN
./pkg/shelfice/shelfice_read_pickup.F 53 SHELFICE_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/shelfice/shelfice_read_pickup.F 61 SHELFICE_READ_PICKUP 
        WRITE(fn,'(A,A10)')    'pickup_shelfice.', pickupSuff
./model/src/ini_fields.F 31 INI_FIELDS 
     &     .AND. pickupSuff .EQ. ' ' ) THEN
./pkg/streamice/streamice_init_varia.F 314 STREAMICE_INIT_VARIA 
     &     .AND. pickupSuff .EQ. ' ') ) THEN
./pkg/streamice/streamice_read_pickup.F 54 STREAMICE_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/streamice/streamice_read_pickup.F 57 STREAMICE_READ_PICKUP 
        WRITE(fn,'(A,A10)')    'pickup_streamice.',pickupSuff
./model/src/ini_nh_fields.F 53 INI_NH_FIELDS 
     &     .AND. pickupSuff .EQ. ' ' ) THEN
./pkg/thsice/thsice_ini_vars.F 116 THSICE_INI_VARS 
     &     ( nIter0.NE.0  .OR. pickupSuff.NE.' ' )
./pkg/thsice/thsice_read_pickup.F 44 THSICE_READ_PICKUP 
        IF ( pickupSuff.EQ.' ' ) THEN
./pkg/thsice/thsice_read_pickup.F 52 THSICE_READ_PICKUP 
          WRITE(fn,'(A,A10)')    'pickup_ic.', pickupSuff
./model/src/ini_parms.F 260 INI_PARMS 
     & chkPtFreq, pChkPtFreq, pickupSuff, pickupStrictlyMatch,
./model/src/read_pickup.F 87 READ_PICKUP 
      IF (pickupSuff .EQ. ' ') THEN
./model/src/read_pickup.F 94 READ_PICKUP 
        WRITE(suff,'(A10)') pickupSuff
./model/src/set_defaults.F 332 SET_DEFAULTS 
      pickupSuff        = ' '
./pkg/aim_v23/aim_do_co2.F 104 AIM_DO_CO2 
          IF ( pickupSuff.EQ.' ' ) THEN
./pkg/aim_v23/aim_do_co2.F 112 AIM_DO_CO2 
            WRITE(fn,'(A,A10)') 'pickup_aimCo2.', pickupSuff
./pkg/atm_compon_interf/atm_cpl_read_pickup.F 62 ATM_CPL_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/atm_compon_interf/atm_cpl_read_pickup.F 70 ATM_CPL_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_cpl.', pickupSuff
./pkg/atm_phys/atm_phys_init_varia.F 72 ATM_PHYS_INIT_VARIA 
     &                           .AND. pickupSuff.EQ.' ' ) THEN
./pkg/atm_phys/atm_phys_read_pickup.F 60 ATM_PHYS_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/atm_phys/atm_phys_read_pickup.F 68 ATM_PHYS_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_atmPhys.', pickupSuff
./pkg/bbl/bbl_init_varia.F 53 BBL_INIT_VARIA 
     &                           .AND. pickupSuff.EQ.' ' ) THEN
./pkg/bbl/bbl_read_pickup.F 56 BBL_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/bbl/bbl_read_pickup.F 64 BBL_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_bbl.', pickupSuff
./pkg/bling/bling_carbonate_init.F 150 BLING_CARBONATE_INIT 
     &    (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ')
./pkg/bling/bling_read_pickup.F 46 BLING_READ_PICKUP 
      IF (pickupSuff.EQ.' ') THEN
./pkg/bling/bling_read_pickup.F 54 BLING_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_bling.', 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 46 CD_CODE_READ_PICKUP 
        WRITE(suff,'(A10)') pickupSuff
./pkg/cheapaml/cheapaml_init_varia.F 88 CHEAPAML_INIT_VARIA 
     &                           .AND. pickupSuff.EQ.' ' ) THEN
./pkg/cheapaml/cheapaml_read_pickup.F 59 CHEAPAML_READ_PICKUP 
       IF ( pickupSuff.EQ.' ' ) THEN
./pkg/cheapaml/cheapaml_read_pickup.F 67 CHEAPAML_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_cheapaml.', pickupSuff
./pkg/dic/dic_ini_atmos.F 133 DIC_INI_ATMOS 
     &       (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ')
./pkg/dic/dic_read_co2_pickup.F 41 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 48 DIC_READ_PICKUP 
        WRITE(fn,'(A,A10)') 'pickup_dic.', pickupSuff
./pkg/dic/dic_surfforcing_init.F 157 DIC_SURFFORCING_INIT 
     &    (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ')