Symbol Description Uses
intime0 160



File Line number Procedure Code
./pkg/exf/exf_getffieldrec.F 225 EXF_GETFFIELDREC
     O                  intimeP, intime0, intime1, bWght, aWght,
./pkg/exf/exf_getffieldrec.F 232 EXF_GETFFIELDREC
        changed = ( intime0.NE.intimeP )
./pkg/exf/exf_getffieldrec.F 233 EXF_GETFFIELDREC
        count0  = intime0
./pkg/exf/exf_getffieldrec.F 236 EXF_GETFFIELDREC
        IF ( intime0 .LE. 0 ) THEN
./pkg/exf/exf_getffieldrec.F 248 EXF_GETFFIELDREC
     &       intimeP, ', intime0=', intime0, ', intime1=', intime1
./pkg/exf/exf_getffieldrec.F 88 EXF_GETFFIELDREC
       INTEGER intimeP, intime0, intime1
./pkg/offline/offline_fields_load.F 104 OFFLINE_FIELDS_LOAD
     &    intime0,intime1, ' ; Wght=', bWght, aWght
./pkg/offline/offline_fields_load.F 114 OFFLINE_FIELDS_LOAD
      IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/offline/offline_fields_load.F 136 OFFLINE_FIELDS_LOAD
     &   ' : Reading new data, i0,i1=', intime0, intime1,
./pkg/offline/offline_fields_load.F 153 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 165 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 180 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 193 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 206 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 220 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 230 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 245 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 259 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 273 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 288 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 317 OFFLINE_FIELDS_LOAD
     &        intime0*Ifprd +offlineIter0
./pkg/offline/offline_fields_load.F 74 OFFLINE_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/offline/offline_fields_load.F 92 OFFLINE_FIELDS_LOAD
     O                  intimeP, intime0, intime1, bWght, aWght,
./pkg/offline/offline_get_diffus.F 59 OFFLINE_GET_DIFFUS
      INTEGER intimeP, intime0, intime1
./pkg/offline/offline_get_diffus.F 69 OFFLINE_GET_DIFFUS
     O                  intimeP, intime0, intime1, bWght, aWght,
./model/src/external_fields_load.F 112 EXTERNAL_FIELDS_LOAD
     &    ' : Reading new data, i0,i1=', intime0, intime1,
./model/src/external_fields_load.F 119 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 125 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 131 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 136 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 142 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 161 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 167 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 173 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 180 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 201 EXTERNAL_FIELDS_LOAD
     &                        intime0, myIter, myThid )
./model/src/external_fields_load.F 62 EXTERNAL_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./model/src/external_fields_load.F 73 EXTERNAL_FIELDS_LOAD
     O                  intimeP, intime0, intime1, bWght, aWght,
./model/src/external_fields_load.F 84 EXTERNAL_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', intimeP,loadedRec(bi,bj), intime0,intime1,
./model/src/external_fields_load.F 95 EXTERNAL_FIELDS_LOAD
      IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/rbcs/rbcs_fields_load.F 104 RBCS_FIELDS_LOAD
      IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/rbcs/rbcs_fields_load.F 118 RBCS_FIELDS_LOAD
     &    ' : Reading new data, i0,i1=', intime0, intime1,
./pkg/rbcs/rbcs_fields_load.F 125 RBCS_FIELDS_LOAD
       initer0 = rbcsIter0 + intime0*Ifprd
./pkg/rbcs/rbcs_fields_load.F 137 RBCS_FIELDS_LOAD
         CALL READ_REC_XYZ_RS(relaxUFile,rbcu0,intime0,myIter,myThid)
./pkg/rbcs/rbcs_fields_load.F 149 RBCS_FIELDS_LOAD
         CALL READ_REC_XYZ_RS(relaxVFile,rbcv0,intime0,myIter,myThid)
./pkg/rbcs/rbcs_fields_load.F 167 RBCS_FIELDS_LOAD
         CALL READ_REC_XYZ_RS(relaxTFile,rbct0,intime0,myIter,myThid)
./pkg/rbcs/rbcs_fields_load.F 181 RBCS_FIELDS_LOAD
         CALL READ_REC_XYZ_RS(relaxSFile,rbcs0,intime0,myIter,myThid)
./pkg/rbcs/rbcs_fields_load.F 208 RBCS_FIELDS_LOAD
     &                           intime0, myIter, myThid )
./pkg/rbcs/rbcs_fields_load.F 56 RBCS_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/rbcs/rbcs_fields_load.F 78 RBCS_FIELDS_LOAD
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/rbcs/rbcs_fields_load.F 86 RBCS_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', intimeP,rbcsLdRec(bi,bj), intime0,intime1,
./pkg/rbcs/rbcs_fields_load.F 94 RBCS_FIELDS_LOAD
       intime0 = 1
./pkg/atm2d/atm2ocn_main.F 37 ATM2OCN_MAIN
      INTEGER intime0,intime1
./pkg/atm2d/atm2ocn_main.F 45 ATM2OCN_MAIN
     &                    intime0, intime1, ifTime, myThid)
./pkg/atm2d/atm2ocn_main.F 52 ATM2OCN_MAIN
     &                       intime0, intime1, myThid)
./pkg/atm2d/atm2ocn_main.F 58 ATM2OCN_MAIN
     &              intime0,intime1,ifTime,myIter,myThid)
./pkg/atm2d/atm2ocn_main.F 61 ATM2OCN_MAIN
     &              intime0,intime1,ifTime,myIter,myThid)
./pkg/atm2d/calc_fileload.F 38 CALC_FILELOAD
      INTEGER intime0
./pkg/atm2d/calc_fileload.F 74 CALC_FILELOAD
      intime0=intime1-1
./pkg/atm2d/calc_fileload.F 75 CALC_FILELOAD
      wght1=(ifcyc - dmonth(intime0)) /
./pkg/atm2d/calc_fileload.F 76 CALC_FILELOAD
     &     (dmonth(intime1) - dmonth(intime0))
./pkg/atm2d/calc_fileload.F 79 CALC_FILELOAD
      IF (ifcyc.LE.dmonth(intime0) + dtatmo) ifTime=.TRUE.
./pkg/atm2d/calc_fileload.F 82 CALC_FILELOAD
      IF (intime0.EQ.0) intime0=12
./pkg/atm2d/calc_fileload.F 9 CALC_FILELOAD
     &                        intime0, intime1,
./pkg/atm2d/fixed_flux_add.F 35 FIXED_FLUX_ADD
      INTEGER intime0
./pkg/atm2d/fixed_flux_add.F 75 FIXED_FLUX_ADD
          CALL READ_REC_XY_RS( tauuFile,tau0,intime0,
./pkg/atm2d/fixed_flux_add.F 81 FIXED_FLUX_ADD
          CALL READ_REC_XY_RS( tauvFile,tav0,intime0,
./pkg/atm2d/fixed_flux_add.F 87 FIXED_FLUX_ADD
          CALL READ_REC_XY_RS( windFile,wind0,intime0,
./pkg/atm2d/fixed_flux_add.F 93 FIXED_FLUX_ADD
          CALL READ_REC_XY_RS( qnetFile,qnet0,intime0,
./pkg/atm2d/fixed_flux_add.F 9 FIXED_FLUX_ADD
     &                   intime0, intime1, iftime, myIter, myThid)
./pkg/atm2d/relax_add.F 37 RELAX_ADD
      INTEGER intime0
./pkg/atm2d/relax_add.F 66 RELAX_ADD
          CALL READ_REC_XY_RS( thetaRelaxFile,sst0,intime0,
./pkg/atm2d/relax_add.F 72 RELAX_ADD
          CALL READ_REC_XY_RS( saltRelaxFile,sss0,intime0,
./pkg/atm2d/relax_add.F 9 RELAX_ADD
     &               intime0, intime1, iftime, myIter, myThid)
./pkg/atm2d/subtract_means.F 26 SUBTRACT_MEANS
      INTEGER intime0
./pkg/atm2d/subtract_means.F 37 SUBTRACT_MEANS
     &       (wght0*atau(j_atm,intime0) + wght1*atau(j_atm,intime1))
./pkg/atm2d/subtract_means.F 39 SUBTRACT_MEANS
     &       (wght0*atav(j_atm,intime0) + wght1*atav(j_atm,intime1))
./pkg/atm2d/subtract_means.F 41 SUBTRACT_MEANS
     &       (wght0*awind(j_atm,intime0) + wght1*awind(j_atm,intime1))
./pkg/atm2d/subtract_means.F 9 SUBTRACT_MEANS
     &                           intime0, intime1, myThid )
./pkg/bling/bling_carbonate_init.F 38 BLING_CARBONATE_INIT
       INTEGER intimeP, intime0, intime1
./pkg/bling/bling_carbonate_init.F 62 BLING_CARBONATE_INIT
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/bling/bling_carbonate_init.F 70 BLING_CARBONATE_INIT
     &   ' : Reading new data, i0,i1=', intime0, intime1
./pkg/bling/bling_carbonate_init.F 74 BLING_CARBONATE_INIT
         CALL READ_REC_XY_RS( BLING_silicaFile,silica0,intime0,
./pkg/bling/bling_fields_load.F 105 BLING_FIELDS_LOAD
         CALL READ_REC_XY_RS( BLING_windFile,dicwind0,intime0,
./pkg/bling/bling_fields_load.F 111 BLING_FIELDS_LOAD
         CALL READ_REC_XY_RS( BLING_atmospFile,atmosp0,intime0,
./pkg/bling/bling_fields_load.F 117 BLING_FIELDS_LOAD
         CALL READ_REC_XY_RS( BLING_silicaFile,silica0,intime0,
./pkg/bling/bling_fields_load.F 123 BLING_FIELDS_LOAD
         CALL READ_REC_XY_RS( BLING_iceFile,ice0,intime0,
./pkg/bling/bling_fields_load.F 129 BLING_FIELDS_LOAD
         CALL READ_REC_XY_RS( BLING_ironFile,feinput0,intime0,
./pkg/bling/bling_fields_load.F 52 BLING_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/bling/bling_fields_load.F 60 BLING_FIELDS_LOAD
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/bling/bling_fields_load.F 71 BLING_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', intimeP,BLING_ldRec(bi,bj), intime0,
./pkg/bling/bling_fields_load.F 83 BLING_FIELDS_LOAD
       IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/bling/bling_fields_load.F 97 BLING_FIELDS_LOAD
     &    ' : Reading new data, i0,i1=', intime0, intime1,
./pkg/bulk_force/bulkf_fields_load.F 122 BULKF_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/bulk_force/bulkf_fields_load.F 173 BULKF_FIELDS_LOAD
     O                  intimeP, intime0, intime1, bWght, aWght,
./pkg/bulk_force/bulkf_fields_load.F 184 BULKF_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', intimeP,bulkfRec(bi,bj), intime0,intime1,
./pkg/bulk_force/bulkf_fields_load.F 202 BULKF_FIELDS_LOAD
     &   ' : Reading new data, i0,i1=', intime0, intime1,
./pkg/bulk_force/bulkf_fields_load.F 208 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( AirTempFile,tair0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 214 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( AirhumidityFile,qair0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 220 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( SolarFile,solar0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 226 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( LongwaveFile,flwdwn0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 232 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( CloudFile,cloud0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 239 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( WSpeedFile,wspeed0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 245 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( UWindFile,uwind0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 251 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( VWindFile,vwind0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 258 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( RainFile,rain0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 264 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( RunoffFile,runoff0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 270 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( SnowFile,snow0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 278 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( airPotTempFile, thAir0, intime0,
./pkg/bulk_force/bulkf_fields_load.F 286 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( QnetFile,qnetch0,intime0,
./pkg/bulk_force/bulkf_fields_load.F 292 BULKF_FIELDS_LOAD
       CALL READ_REC_XY_RS( EmpFile,empch0,intime0,
./pkg/cfc/cfc11_forcing.F 102 CFC11_FORCING
     &        intime0, bWght, ACFCyear(iRec0)
./pkg/cfc/cfc11_forcing.F 71 CFC11_FORCING
      INTEGER intimeP, intime0, intime1, iRec0, iRec1
./pkg/cfc/cfc11_forcing.F 87 CFC11_FORCING
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/cfc/cfc11_forcing.F 90 CFC11_FORCING
       iRec0 = MAX( 1, MIN( ACFCnRec, intime0 ) )
./pkg/cfc/cfc12_forcing.F 103 CFC12_FORCING
     &        intime0, bWght, ACFCyear(iRec0)
./pkg/cfc/cfc12_forcing.F 72 CFC12_FORCING
      INTEGER intimeP, intime0, intime1, iRec0, iRec1
./pkg/cfc/cfc12_forcing.F 88 CFC12_FORCING
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/cfc/cfc12_forcing.F 91 CFC12_FORCING
       iRec0 = MAX( 1, MIN( ACFCnRec, intime0 ) )
./pkg/cfc/cfc_fields_load.F 100 CFC_FIELDS_LOAD
       IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/cfc/cfc_fields_load.F 114 CFC_FIELDS_LOAD
     &    ' : Reading new data, i0,i1=', intime0, intime1,
./pkg/cfc/cfc_fields_load.F 122 CFC_FIELDS_LOAD
         CALL READ_REC_XY_RS( CFC_windFile,wind0,intime0,
./pkg/cfc/cfc_fields_load.F 128 CFC_FIELDS_LOAD
         CALL READ_REC_XY_RS( CFC_atmospFile,atmosp0,intime0,
./pkg/cfc/cfc_fields_load.F 135 CFC_FIELDS_LOAD
         CALL READ_REC_XY_RS( CFC_iceFile,ice0,intime0,
./pkg/cfc/cfc_fields_load.F 52 CFC_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/cfc/cfc_fields_load.F 78 CFC_FIELDS_LOAD
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/cfc/cfc_fields_load.F 89 CFC_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', intimeP,CFC_ldRec(bi,bj), intime0,intime1,
./pkg/cheapaml/cheapaml_fields_load.F 104 CHEAPAML_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/cheapaml/cheapaml_fields_load.F 170 CHEAPAML_FIELDS_LOAD
     O           intimeP, intime0, intime1, bWght, aWght,
./pkg/cheapaml/cheapaml_fields_load.F 174 CHEAPAML_FIELDS_LOAD
        IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/cheapaml/cheapaml_fields_load.F 180 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( SolarFile,solar0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 198 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( TRFile,trair0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 216 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( QrFile,qrair0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 234 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( UWindFile,uWind0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 255 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( VWindFile,vWind0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 275 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( cheap_hFile,cheaph0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 281 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( cheap_clFile,cheapcl0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 287 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( cheap_dlwFile,cheaplw0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 293 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( cheap_prFile,cheappr0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 299 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( UStressFile,ustress0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 305 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( VStressFile,vstress0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 311 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( WaveHFile,wavesh0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 317 CHEAPAML_FIELDS_LOAD
          CALL READ_REC_XY_RL( WavePFile,wavesp0,intime0,
./pkg/cheapaml/cheapaml_fields_load.F 323 CHEAPAML_FIELDS_LOAD
           CALL READ_REC_XY_RL( TracerRFile,CheaptracerR0,intime0,
./pkg/dic/dic_fields_load.F 104 DIC_FIELDS_LOAD
         CALL READ_REC_XY_RS( DIC_silicaFile,silica0,intime0,
./pkg/dic/dic_fields_load.F 110 DIC_FIELDS_LOAD
         CALL READ_REC_XY_RS( DIC_iceFile,ice0,intime0,
./pkg/dic/dic_fields_load.F 117 DIC_FIELDS_LOAD
         CALL READ_REC_XY_RS( DIC_parFile,par0,intime0,
./pkg/dic/dic_fields_load.F 132 DIC_FIELDS_LOAD
         CALL READ_REC_XY_RS( DIC_ironFile,feinput0,intime0,
./pkg/dic/dic_fields_load.F 37 DIC_FIELDS_LOAD
      INTEGER intimeP, intime0, intime1
./pkg/dic/dic_fields_load.F 48 DIC_FIELDS_LOAD
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/dic/dic_fields_load.F 59 DIC_FIELDS_LOAD
     &   ' : iP,iLd,i0,i1=', intimeP,DIC_ldRec(bi,bj), intime0,intime1,
./pkg/dic/dic_fields_load.F 70 DIC_FIELDS_LOAD
       IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
./pkg/dic/dic_fields_load.F 84 DIC_FIELDS_LOAD
     &    ' : Reading new data, i0,i1=', intime0, intime1,
./pkg/dic/dic_fields_load.F 92 DIC_FIELDS_LOAD
         CALL READ_REC_XY_RS( DIC_windFile,dicwind0,intime0,
./pkg/dic/dic_fields_load.F 98 DIC_FIELDS_LOAD
         CALL READ_REC_XY_RS( DIC_atmospFile,atmosp0,intime0,
./pkg/dic/dic_surfforcing_init.F 39 DIC_SURFFORCING_INIT
       INTEGER intimeP, intime0, intime1
./pkg/dic/dic_surfforcing_init.F 70 DIC_SURFFORCING_INIT
     O                   intimeP, intime0, intime1, bWght, aWght,
./pkg/dic/dic_surfforcing_init.F 78 DIC_SURFFORCING_INIT
     &   ' : Reading new data, i0,i1=', intime0, intime1
./pkg/dic/dic_surfforcing_init.F 82 DIC_SURFFORCING_INIT
         CALL READ_REC_XY_RS( DIC_silicaFile,silica0,intime0,