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



File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 49 SET_ALARM
      logical first,set
./pkg/fizhi/fizhi_clockstuff.F 50 SET_ALARM
      data          first /.true./
./pkg/fizhi/fizhi_clockstuff.F 54 SET_ALARM
      if(first) then
./pkg/fizhi/fizhi_clockstuff.F 97 SET_ALARM
      first = .false.
./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_prescribe_read.F 309 OBCS_PRESCRIBE_EXF_XZ
      logical first, changed
./pkg/obcs/obcs_prescribe_read.F 323 OBCS_PRESCRIBE_EXF_XZ
     O                        fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 336 OBCS_PRESCRIBE_EXF_XZ
     O                       fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 342 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 346 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 350 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 354 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 359 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 370 OBCS_PRESCRIBE_EXF_XZ
     I                       , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 383 OBCS_PRESCRIBE_EXF_XZ
     O                        fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 396 OBCS_PRESCRIBE_EXF_XZ
     O                       fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 402 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 406 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 410 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 414 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 418 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 422 OBCS_PRESCRIBE_EXF_XZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 543 OBCS_PRESCRIBE_EXF_YZ
      logical first, changed
./pkg/obcs/obcs_prescribe_read.F 557 OBCS_PRESCRIBE_EXF_YZ
     O                        fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 570 OBCS_PRESCRIBE_EXF_YZ
     O                       fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 576 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 580 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 584 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 588 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 593 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 604 OBCS_PRESCRIBE_EXF_YZ
     I                       , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 617 OBCS_PRESCRIBE_EXF_YZ
     O                        fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 630 OBCS_PRESCRIBE_EXF_YZ
     O                       fac, first, changed,
./pkg/obcs/obcs_prescribe_read.F 636 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 640 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 644 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 648 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 652 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./pkg/obcs/obcs_prescribe_read.F 656 OBCS_PRESCRIBE_EXF_YZ
     I                     , fac, first, changed, useYearlyFields
./verification/OpenAD/code_oad_all/ctrl_pack.F 158 CTRL_PACK
      if ( first ) then
./verification/OpenAD/code_oad_all/ctrl_pack.F 58 CTRL_PACK
      logical first
./verification/OpenAD/code_oad_all/ctrl_pack.F 7 CTRL_PACK
      subroutine CTRL_PACK( first, mythid )
./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 166 ADMTLM_DSVD2MODEL
      if ( first ) then
./pkg/admtlm/admtlm_dsvd2model.F 64 ADMTLM_DSVD2MODEL
      logical first
./pkg/admtlm/admtlm_dsvd2model.F 9 ADMTLM_DSVD2MODEL
     &     first, postprocev, mythid )
./pkg/admtlm/admtlm_model2dsvd.F 155 ADMTLM_MODEL2DSVD
      if ( first ) then
./pkg/admtlm/admtlm_model2dsvd.F 59 ADMTLM_MODEL2DSVD
      logical first
./pkg/admtlm/admtlm_model2dsvd.F 8 ADMTLM_MODEL2DSVD
     &     first, preprocev, mythid )
./pkg/cal/cal_getmonthsrec.F 126 CAL_GETMONTHSREC
      first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/cal/cal_getmonthsrec.F 128 CAL_GETMONTHSREC
      if ( first ) then
./pkg/cal/cal_getmonthsrec.F 199 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 124 CTRL_GET_GEN_REC
      first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/ctrl/ctrl_get_gen_rec.F 126 CTRL_GET_GEN_REC
      if ( first) then
./pkg/ctrl/ctrl_get_gen_rec.F 12 CTRL_GET_GEN_REC
     O                        first,
./pkg/ctrl/ctrl_get_gen_rec.F 168 CTRL_GET_GEN_REC
     &                          first, changed, fac
./pkg/ctrl/ctrl_get_gen_rec.F 51 CTRL_GET_GEN_REC
      logical first
./pkg/ctrl/ctrl_getrec.F 11 CTRL_GETREC
     O                        first,
./pkg/ctrl/ctrl_getrec.F 323 CTRL_GETREC
      first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/ctrl/ctrl_getrec.F 325 CTRL_GETREC
      if ( first) then
./pkg/ctrl/ctrl_getrec.F 371 CTRL_GETREC
     &                          first, changed, fac
./pkg/ctrl/ctrl_getrec.F 58 CTRL_GETREC
      logical first
./pkg/ctrl/ctrl_pack.F 158 CTRL_PACK
      if ( first ) then
./pkg/ctrl/ctrl_pack.F 58 CTRL_PACK
      logical first
./pkg/ctrl/ctrl_pack.F 7 CTRL_PACK
      subroutine CTRL_PACK( first, mythid )
./pkg/ctrl/ctrl_unpack.F 168 CTRL_UNPACK
      if ( first ) then
./pkg/ctrl/ctrl_unpack.F 63 CTRL_UNPACK
      logical first
./pkg/ctrl/ctrl_unpack.F 8 CTRL_UNPACK
      subroutine CTRL_UNPACK( first, mythid )
./pkg/ecco/cost_atlantic.F 112 COST_ATLANTIC
     O                    first,      last,
./pkg/ecco/cost_atlantic.F 139 COST_ATLANTIC
      if (first) then
./pkg/ecco/cost_atlantic.F 64 COST_ATLANTIC
      logical first
./pkg/ecco/cost_averagesfields.F 132 COST_AVERAGESFIELDS
     O                    first,      last,
./pkg/ecco/cost_averagesfields.F 160 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 177 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 184 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 198 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 214 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 221 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 230 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 241 COST_AVERAGESFIELDS
      if (first.or.startofmonth) then
./pkg/ecco/cost_averagesfields.F 290 COST_AVERAGESFIELDS
     &          .not. (first .or. startofmonth) .and.
./pkg/ecco/cost_averagesfields.F 315 COST_AVERAGESFIELDS
      if (first.or. startofmonth) then
./pkg/ecco/cost_averagesfields.F 359 COST_AVERAGESFIELDS
      else if ( .not. (first.or. startofmonth) .and.
./pkg/ecco/cost_averagesfields.F 383 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 388 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 409 COST_AVERAGESFIELDS
     &     first, last, startofyear, endofyear, inyear,
./pkg/ecco/cost_averagesfields.F 423 COST_AVERAGESFIELDS
     &     first, last, startofyear, endofyear, inyear,
./pkg/ecco/cost_averagesfields.F 433 COST_AVERAGESFIELDS
     &     first, last, startofyear, endofyear, inyear,
./pkg/ecco/cost_averagesfields.F 442 COST_AVERAGESFIELDS
     &     first, last, startofmonth, endofmonth, inmonth,
./pkg/ecco/cost_averagesfields.F 457 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 468 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 479 COST_AVERAGESFIELDS
     &     first, last, startofday, endofday, inday,
./pkg/ecco/cost_averagesfields.F 495 COST_AVERAGESFIELDS
     &     first, last, 
./pkg/ecco/cost_averagesfields.F 523 COST_AVERAGESFIELDS
         if (first.or.startofday)
./pkg/ecco/cost_averagesfields.F 74 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 127 COST_AVERAGESGENERIC
     &          .not. (first .or. startofloc) .and.
./pkg/ecco/cost_averagesgeneric.F 47 COST_AVERAGESGENERIC
      logical first
./pkg/ecco/cost_averagesgeneric.F 85 COST_AVERAGESGENERIC
      if (first .or. startofloc) then
./pkg/ecco/cost_averagesgeneric.F 9 COST_AVERAGESGENERIC
     &     first, last, startofloc, endofloc, inloc,
./pkg/ecco/cost_restore_averagesflags.F 28 COST_RESTORE_AVERAGESFLAGS
      logical first
./pkg/ecco/cost_restore_averagesflags.F 7 COST_RESTORE_AVERAGESFLAGS
     &           lcostrestart, first, last,
./pkg/ecco/cost_store_averagesflags.F 28 COST_STORE_AVERAGESFLAGS
      logical first
./pkg/ecco/cost_store_averagesflags.F 7 COST_STORE_AVERAGESFLAGS
     &           lflag, first, last,
./pkg/exf/exf_getffieldrec.F 10 EXF_GETFFIELDREC
     O                             first, changed,
./pkg/exf/exf_getffieldrec.F 192 EXF_GETFFIELDREC
     &                         first, changed, fac
./pkg/exf/exf_getffieldrec.F 53 EXF_GETFFIELDREC
      logical first, changed
./pkg/exf/exf_getffieldrec.F 83 EXF_GETFFIELDREC
      first = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/exf/exf_getffieldrec.F 90 EXF_GETFFIELDREC
       first   = ((mytime - modelstart) .lt. 0.5*modelstep)
./pkg/exf/exf_set_gen.F 105 EXF_SET_GEN
     O           fac, first, changed,
./pkg/exf/exf_set_gen.F 119 EXF_SET_GEN
     O           , fac, first, changed
./pkg/exf/exf_set_gen.F 126 EXF_SET_GEN
         if ( first ) then
./pkg/exf/exf_set_gen.F 158 EXF_SET_GEN
         if (( first ) .or. ( changed )) then
./pkg/exf/exf_set_gen.F 80 EXF_SET_GEN
      logical first, changed
./pkg/exf/exf_set_obcs.F 123 EXF_SET_OBCS_YZ
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 156 EXF_SET_OBCS_YZ
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 177 EXF_SET_OBCS_YZ
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 189 EXF_SET_OBCS_YZ
         IF (( first ) .OR. ( changed )) 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 226 EXF_SET_OBCS_X
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 259 EXF_SET_OBCS_X
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 279 EXF_SET_OBCS_X
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 291 EXF_SET_OBCS_X
         IF (( first ) .OR. ( changed )) THEN
./pkg/exf/exf_set_obcs.F 326 EXF_SET_OBCS_Y
     I       fac, first, changed, useYearlyFields, obcs_period,
./pkg/exf/exf_set_obcs.F 358 EXF_SET_OBCS_Y
      LOGICAL first, changed
./pkg/exf/exf_set_obcs.F 378 EXF_SET_OBCS_Y
         IF ( first ) THEN
./pkg/exf/exf_set_obcs.F 390 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 86 EXF_SET_OBCS_XZ
         IF (( first ) .OR. ( changed )) THEN
./pkg/exf/exf_set_runoff.F 101 EXF_SET_RUNOFF
         if ( first ) then
./pkg/exf/exf_set_runoff.F 120 EXF_SET_RUNOFF
         if (( first ) .or. ( changed )) then
./pkg/exf/exf_set_runoff.F 55 EXF_SET_RUNOFF
      logical first, changed
./pkg/exf/exf_set_runoff.F 80 EXF_SET_RUNOFF
     O           fac, first, changed,
./pkg/exf/exf_set_runoff.F 94 EXF_SET_RUNOFF
     O           , fac, first, changed
./pkg/exf/exf_set_uv.F 112 EXF_SET_UV
     O        , fac, first, changed
./pkg/exf/exf_set_uv.F 117 EXF_SET_UV
          if ( first ) then
./pkg/exf/exf_set_uv.F 195 EXF_SET_UV
          if (( first ) .or. ( changed )) then
./pkg/exf/exf_set_uv.F 88 EXF_SET_UV
      logical first, changed