Symbol Description Uses
first model initialization flag: read two forcing records 188



File Line number Procedure Code
./pkg/exf/exf_getffieldrec.F 104 EXF_GETFFIELDREC
        first   = ((myTime - modelstart) .lt. 0.5*modelstep)
./pkg/exf/exf_getffieldrec.F 12 EXF_GETFFIELDREC
     O               fac, first, changed,
./pkg/exf/exf_getffieldrec.F 214 EXF_GETFFIELDREC
        first   = ( myIter.EQ.nIter0 )
./pkg/exf/exf_getffieldrec.F 231 EXF_GETFFIELDREC
        first   = ( myIter .EQ.nIter0 )
./pkg/exf/exf_getffieldrec.F 62 EXF_GETFFIELDREC
      LOGICAL first, changed
./pkg/exf/exf_getffieldrec.F 97 EXF_GETFFIELDREC
       first = ((myTime - modelstart) .lt. 0.5*modelstep)
./pkg/exf/exf_set_fld.F 102 EXF_SET_FLD
      LOGICAL first, changed
./pkg/exf/exf_set_fld.F 133 EXF_SET_FLD
     O           fac, first, changed,
./pkg/exf/exf_set_fld.F 149 EXF_SET_FLD
     O           fac, first, changed,
./pkg/exf/exf_set_fld.F 161 EXF_SET_FLD
     &       '  first, changed, fac:  ', first, changed, fac
./pkg/exf/exf_set_fld.F 167 EXF_SET_FLD
         IF ( first ) THEN
./pkg/exf/exf_set_fld.F 224 EXF_SET_FLD
         IF ( first .OR. changed ) THEN
./pkg/exf/exf_set_obcs.F 127 EXF_SET_OBCS_YZ
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 160 EXF_SET_OBCS_YZ
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 181 EXF_SET_OBCS_YZ
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 18 EXF_SET_OBCS_XZ
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 195 EXF_SET_OBCS_YZ
         IF ( first .OR. changed ) THEN
./pkg/exf/exf_set_obcs.F 234 EXF_SET_OBCS_X
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 267 EXF_SET_OBCS_X
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 289 EXF_SET_OBCS_X
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 301 EXF_SET_OBCS_X
         IF (( first ) .OR. ( changed )) THEN
./pkg/exf/exf_set_obcs.F 336 EXF_SET_OBCS_Y
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 368 EXF_SET_OBCS_Y
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 390 EXF_SET_OBCS_Y
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 402 EXF_SET_OBCS_Y
         IF (( first ) .OR. ( changed )) THEN
./pkg/exf/exf_set_obcs.F 53 EXF_SET_OBCS_XZ
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 74 EXF_SET_OBCS_XZ
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 88 EXF_SET_OBCS_XZ
         IF ( first .OR. changed ) THEN
./pkg/exf/exf_set_uv.F 117 EXF_SET_UV
      LOGICAL first, changed
./pkg/exf/exf_set_uv.F 155 EXF_SET_UV
     O             fac, first, changed,
./pkg/exf/exf_set_uv.F 171 EXF_SET_UV
     O             fac, first, changed,
./pkg/exf/exf_set_uv.F 182 EXF_SET_UV
     &       ' first, changed, fac:  ', first, changed, fac
./pkg/exf/exf_set_uv.F 188 EXF_SET_UV
        IF ( first ) THEN
./pkg/exf/exf_set_uv.F 350 EXF_SET_UV
        IF (  first .OR. changed ) THEN
./pkg/fizhi/fizhi_clockstuff.F 113 SET_ALARM
      first = .false.
./pkg/fizhi/fizhi_clockstuff.F 59 SET_ALARM
      logical first,set
./pkg/fizhi/fizhi_clockstuff.F 60 SET_ALARM
      data          first /.true./
./pkg/fizhi/fizhi_clockstuff.F 64 SET_ALARM
      if(first) then
./pkg/fizhi/fizhi_lwrad.F 787 IRRAD
      logical first
./pkg/fizhi/fizhi_lwrad.F 788 IRRAD
      data first /.true./
./pkg/fizhi/fizhi_lwrad.F 797 IRRAD
      if (first) then
./pkg/fizhi/fizhi_lwrad.F 865 IRRAD
       first=.false.
./pkg/fizhi/fizhi_moist.F 128 MOISTIO
      logical first
./pkg/fizhi/fizhi_moist.F 1396 RNDCLOUD
      logical first
./pkg/fizhi/fizhi_moist.F 1397 RNDCLOUD
      data    first /.true./
./pkg/fizhi/fizhi_moist.F 1406 RNDCLOUD
       if(first .and. myid.eq.1) print *,' NO RANDOM CLOUDS IN RAS '
./pkg/fizhi/fizhi_moist.F 1424 RNDCLOUD
      elseif ( first.and.(iras.gt.1) .or. mcheck.eq.0 ) then
./pkg/fizhi/fizhi_moist.F 1455 RNDCLOUD
      first = .false.
./pkg/fizhi/fizhi_moist.F 203 MOISTIO
      if(first .and. myid.eq.1 .and. bi.eq.1 ) then
./pkg/fizhi/fizhi_moist.F 210 MOISTIO
       first = .false.
./pkg/fizhi/fizhi_swrad.F 122 SWRIO
      if (first .and. myid.eq.1 ) then
./pkg/fizhi/fizhi_swrad.F 129 SWRIO
      first = .false.
./pkg/fizhi/fizhi_swrad.F 98 SWRIO
      logical first
./pkg/fizhi/fizhi_swrad.F 99 SWRIO
      data first /.true./
./pkg/fizhi/update_ocean_exports.F 119 GETSICE
     .   sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,
./pkg/fizhi/update_ocean_exports.F 172 GETSICE
      logical first
./pkg/fizhi/update_ocean_exports.F 220 GETSICE
      if (first) then
./pkg/fizhi/update_ocean_exports.F 226 GETSICE
        first = .false.
./pkg/fizhi/update_ocean_exports.F 380 GETSST
     .   sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,
./pkg/fizhi/update_ocean_exports.F 433 GETSST
      logical first
./pkg/fizhi/update_ocean_exports.F 480 GETSST
      if (first) then
./pkg/fizhi/update_ocean_exports.F 486 GETSST
        first = .false.
./pkg/fizhi/update_ocean_exports.F 50 UPDATE_OCEAN_EXPORTS
       logical first(nSx,nSy)
./pkg/fizhi/update_ocean_exports.F 53 UPDATE_OCEAN_EXPORTS
       data first/nSxnSy*.true./
./pkg/fizhi/update_ocean_exports.F 91 UPDATE_OCEAN_EXPORTS
     .  sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj),
./pkg/fizhi/update_ocean_exports.F 96 UPDATE_OCEAN_EXPORTS
     .  sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj),
./pkg/obcs/obcs_exf_load.F 278 OBCS_EXF_READ_XZ
      LOGICAL first, changed
./pkg/obcs/obcs_exf_load.F 292 OBCS_EXF_READ_XZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 308 OBCS_EXF_READ_XZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 323 OBCS_EXF_READ_XZ
     &     ' first, changed, fac:  ', first, changed, fac
./pkg/obcs/obcs_exf_load.F 330 OBCS_EXF_READ_XZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 334 OBCS_EXF_READ_XZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 338 OBCS_EXF_READ_XZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 342 OBCS_EXF_READ_XZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 347 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 358 OBCS_EXF_READ_XZ
     I                        fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 372 OBCS_EXF_READ_XZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 388 OBCS_EXF_READ_XZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 403 OBCS_EXF_READ_XZ
     &     ' first, changed, fac:  ', first, changed, fac
./pkg/obcs/obcs_exf_load.F 410 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 414 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 418 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 422 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 426 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 430 OBCS_EXF_READ_XZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 553 OBCS_EXF_READ_YZ
      LOGICAL first, changed
./pkg/obcs/obcs_exf_load.F 567 OBCS_EXF_READ_YZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 583 OBCS_EXF_READ_YZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 598 OBCS_EXF_READ_YZ
     &     ' first, changed, fac:  ', first, changed, fac
./pkg/obcs/obcs_exf_load.F 605 OBCS_EXF_READ_YZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 609 OBCS_EXF_READ_YZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 613 OBCS_EXF_READ_YZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 617 OBCS_EXF_READ_YZ
     I                      fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 622 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 633 OBCS_EXF_READ_YZ
     I                        fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 647 OBCS_EXF_READ_YZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 663 OBCS_EXF_READ_YZ
     O              fac, first, changed,
./pkg/obcs/obcs_exf_load.F 678 OBCS_EXF_READ_YZ
     &     ' first, changed, fac:  ', first, changed, fac
./pkg/obcs/obcs_exf_load.F 685 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 689 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 693 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 697 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 701 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/obcs/obcs_exf_load.F 705 OBCS_EXF_READ_YZ
     I                       fac, first, changed, useYearlyFields,
./pkg/streamice/streamice_fields_load.F 107 STREAMICE_FIELDS_LOAD
       IF ( first ) changed = .false.
./pkg/streamice/streamice_fields_load.F 121 STREAMICE_FIELDS_LOAD
        IF ( first ) THEN
./pkg/streamice/streamice_fields_load.F 177 STREAMICE_FIELDS_LOAD
        IF ( first .OR. changed) THEN
./pkg/streamice/streamice_fields_load.F 60 STREAMICE_FIELDS_LOAD
      LOGICAL first, changed
./pkg/streamice/streamice_fields_load.F 74 STREAMICE_FIELDS_LOAD
      first = (myRelTime .lt. 0.5*deltaTClock)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 119 GETSICE
     .   sicebc1,sicebc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 172 GETSICE
      logical first
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 192 GETSST
     .   sstbc1,sstbc2,first,nymdbc1,nymdbc2,nhmsbc1,nhmsbc2,
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 245 GETSST
      logical first
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 50 UPDATE_OCEAN_EXPORTS
       logical first(nSx,nSy)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 53 UPDATE_OCEAN_EXPORTS
       data first/nSxnSy*.true./
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 91 UPDATE_OCEAN_EXPORTS
     .  sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj),
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 96 UPDATE_OCEAN_EXPORTS
     .  sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj),
./pkg/admtlm/admtlm_dsvd2model.F 10 ADMTLM_DSVD2MODEL
     &     first, postprocev, mythid )
./pkg/admtlm/admtlm_dsvd2model.F 167 ADMTLM_DSVD2MODEL
      if ( first ) then
./pkg/admtlm/admtlm_dsvd2model.F 65 ADMTLM_DSVD2MODEL
      logical first
./pkg/admtlm/admtlm_model2dsvd.F 10 ADMTLM_MODEL2DSVD
     &     first, preprocev, mythid )
./pkg/admtlm/admtlm_model2dsvd.F 157 ADMTLM_MODEL2DSVD
      if ( first ) then
./pkg/admtlm/admtlm_model2dsvd.F 61 ADMTLM_MODEL2DSVD
      logical first
./pkg/cal/cal_getmonthsrec.F 127 CAL_GETMONTHSREC
      first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/cal/cal_getmonthsrec.F 129 CAL_GETMONTHSREC
      if ( first ) then
./pkg/cal/cal_getmonthsrec.F 196 CAL_GETMONTHSREC
      if ( (.not. first) .and. (prevcount .ne. count0) ) then
./pkg/cal/cal_getmonthsrec.F 41 CAL_GETMONTHSREC
      logical first
./pkg/cal/cal_getmonthsrec.F 7 CAL_GETMONTHSREC
     O                             fac, first, changed,
./pkg/chronos/chronos.F 41 SET_ALARM
      logical first,set
./pkg/chronos/chronos.F 42 SET_ALARM
      data          first /.true./
./pkg/chronos/chronos.F 51 SET_ALARM
      if(first) then
./pkg/chronos/chronos.F 94 SET_ALARM
      first = .false.
./pkg/ctrl/ctrl_get_gen_rec.F 10 CTRL_GET_GEN_REC
     O                        first,
./pkg/ctrl/ctrl_get_gen_rec.F 114 CTRL_GET_GEN_REC
     O      fac, first, changed,
./pkg/ctrl/ctrl_get_gen_rec.F 122 CTRL_GET_GEN_REC
       first   = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/ctrl/ctrl_get_gen_rec.F 147 CTRL_GET_GEN_REC
       first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/ctrl/ctrl_get_gen_rec.F 149 CTRL_GET_GEN_REC
       if ( first) then
./pkg/ctrl/ctrl_get_gen_rec.F 191 CTRL_GET_GEN_REC
      first = (myRelTime .lt. 0.5*deltaTClock)
./pkg/ctrl/ctrl_get_gen_rec.F 213 CTRL_GET_GEN_REC
       IF ( first ) changed = .false.
./pkg/ctrl/ctrl_get_gen_rec.F 227 CTRL_GET_GEN_REC
     &                          first, changed, fac
./pkg/ctrl/ctrl_get_gen_rec.F 48 CTRL_GET_GEN_REC
      logical first
./pkg/ctrl/ctrl_getrec.F 335 CTRL_GETREC
      first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/ctrl/ctrl_getrec.F 337 CTRL_GETREC
      if ( first) then
./pkg/ctrl/ctrl_getrec.F 383 CTRL_GETREC
     &                          first, changed, fac
./pkg/ctrl/ctrl_getrec.F 56 CTRL_GETREC
      logical first
./pkg/ctrl/ctrl_getrec.F 9 CTRL_GETREC
     O                        first,
./pkg/ctrl/ctrl_pack.F 15 CTRL_PACK
      subroutine CTRL_PACK( first, mythid )
./pkg/ctrl/ctrl_pack.F 185 CTRL_PACK
      if ( first ) then
./pkg/ctrl/ctrl_pack.F 72 CTRL_PACK
      logical first
./pkg/ctrl/ctrl_unpack.F 15 CTRL_UNPACK
      subroutine CTRL_UNPACK( first, mythid )
./pkg/ctrl/ctrl_unpack.F 196 CTRL_UNPACK
      if ( first ) then
./pkg/ctrl/ctrl_unpack.F 77 CTRL_UNPACK
      logical first
./pkg/ecco/cost_averagesfields.F 172 COST_AVERAGESFIELDS
     O                    first,      last,
./pkg/ecco/cost_averagesfields.F 245 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 258 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 275 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 282 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 297 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 314 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 321 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 330 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 341 COST_AVERAGESFIELDS
      if (first.or.startofmonth) then
./pkg/ecco/cost_averagesfields.F 390 COST_AVERAGESFIELDS
     &          .not. (first .or. startofmonth) .and.
./pkg/ecco/cost_averagesfields.F 416 COST_AVERAGESFIELDS
      if (first.or. startofmonth) then
./pkg/ecco/cost_averagesfields.F 460 COST_AVERAGESFIELDS
      else if ( .not. (first.or. startofmonth) .and.
./pkg/ecco/cost_averagesfields.F 484 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 489 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 511 COST_AVERAGESFIELDS
     &     first, last, startofyear, endofyear, inyear,
./pkg/ecco/cost_averagesfields.F 525 COST_AVERAGESFIELDS
     &     first, last, startofyear, endofyear, inyear,
./pkg/ecco/cost_averagesfields.F 535 COST_AVERAGESFIELDS
     &     first, last, startofyear, endofyear, inyear,
./pkg/ecco/cost_averagesfields.F 544 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 559 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 570 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 581 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 682 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 697 COST_AVERAGESFIELDS
     &       first, last,
./pkg/ecco/cost_averagesfields.F 708 COST_AVERAGESFIELDS
     &     first, last,
./pkg/ecco/cost_averagesfields.F 736 COST_AVERAGESFIELDS
         if (first.or.startofday)
./pkg/ecco/cost_averagesfields.F 91 COST_AVERAGESFIELDS
      logical first
./pkg/ecco/cost_averagesflags.F 11 COST_AVERAGESFLAGS
     O                               first,
./pkg/ecco/cost_averagesflags.F 127 COST_AVERAGESFLAGS
        first  = .true.
./pkg/ecco/cost_averagesflags.F 132 COST_AVERAGESFLAGS
        first = .false.
./pkg/ecco/cost_averagesflags.F 61 COST_AVERAGESFLAGS
      logical first
./pkg/ecco/cost_averagesgeneric.F 147 COST_AVERAGESGENERIC
      elseif (first .or. startofloc) then
./pkg/ecco/cost_averagesgeneric.F 197 COST_AVERAGESGENERIC
     &          .not. (first .or. startofloc) .and.
./pkg/ecco/cost_averagesgeneric.F 45 COST_AVERAGESGENERIC
      logical first
./pkg/ecco/cost_averagesgeneric.F 89 COST_AVERAGESGENERIC
     &  first, last, startofloc, endofloc, inloc
./pkg/ecco/cost_averagesgeneric.F 9 COST_AVERAGESGENERIC
     &     first, last, startofloc, endofloc, inloc,