Symbol Description Uses
flag 49



File Line number Procedure Code
./pkg/rw/set_write_global_fld.F 15 SET_WRITE_GLOBAL_FLD
      LOGICAL flag
./pkg/rw/set_write_global_fld.F 20 SET_WRITE_GLOBAL_FLD
      globalFile=flag
./pkg/rw/set_write_global_fld.F 6 SET_WRITE_GLOBAL_FLD
      SUBROUTINE SET_WRITE_GLOBAL_FLD ( flag )
./pkg/rw/get_write_global_fld.F 15 GET_WRITE_GLOBAL_FLD
      LOGICAL flag
./pkg/rw/get_write_global_fld.F 20 GET_WRITE_GLOBAL_FLD
      flag=globalFile
./pkg/rw/get_write_global_fld.F 6 GET_WRITE_GLOBAL_FLD
      SUBROUTINE GET_WRITE_GLOBAL_FLD ( flag )
./verification/rotating_tank/code/checkpoint.F 12 SET_WRITE_GLOBAL_PICKUP
      SUBROUTINE SET_WRITE_GLOBAL_PICKUP ( flag )
./verification/rotating_tank/code/checkpoint.F 21 SET_WRITE_GLOBAL_PICKUP
      LOGICAL flag
./verification/rotating_tank/code/checkpoint.F 26 SET_WRITE_GLOBAL_PICKUP
      globalFile=flag
./verification/flt_example/extra/write_float.F 117 NO PROCEDURE
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 12 NO PROCEDURE
        logical flag
./verification/flt_example/extra/write_float.F 144 NO PROCEDURE
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 170 NO PROCEDURE
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 17 NO PROCEDURE
      flag = .true.
./verification/flt_example/extra/write_float.F 192 NO PROCEDURE
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 19 NO PROCEDURE
      if ( narg .gt. 0 ) flag = .false.
./verification/flt_example/extra/write_float.F 20 NO PROCEDURE
      print*, flag
./verification/flt_example/extra/write_float.F 214 NO PROCEDURE
                   if (flag)
./verification/flt_example/extra/write_float.F 22 NO PROCEDURE
      if (flag) then
./verification/flt_example/extra/write_float.F 66 NO PROCEDURE
        if (flag)  write(1,rec=1)    npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 95 NO PROCEDURE
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./model/src/read_write_rec.F 24 SET_WRITE_GLOBAL_REC
      SUBROUTINE SET_WRITE_GLOBAL_REC ( flag )
./model/src/read_write_rec.F 37 SET_WRITE_GLOBAL_REC
      LOGICAL flag
./model/src/read_write_rec.F 44 SET_WRITE_GLOBAL_REC
      globalFile=flag
./pkg/diagnostics/diagstats_setdiag.F 114 DIAGSTATS_SETDIAG
        flag = .TRUE.
./pkg/diagnostics/diagstats_setdiag.F 116 DIAGSTATS_SETDIAG
         IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId)
./pkg/diagnostics/diagstats_setdiag.F 119 DIAGSTATS_SETDIAG
           IF (flag .AND. jSdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagstats_setdiag.F 122 DIAGSTATS_SETDIAG
             flag = .FALSE.
./pkg/diagnostics/diagstats_setdiag.F 130 DIAGSTATS_SETDIAG
        IF ( flag ) THEN
./pkg/diagnostics/diagstats_setdiag.F 50 DIAGSTATS_SETDIAG
      LOGICAL flag
./pkg/diagnostics/diagstats_setdiag.F 66 DIAGSTATS_SETDIAG
      flag = .TRUE.
./pkg/diagnostics/diagstats_setdiag.F 68 DIAGSTATS_SETDIAG
       IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId)
./pkg/diagnostics/diagstats_setdiag.F 71 DIAGSTATS_SETDIAG
         IF (flag .AND. jSdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagstats_setdiag.F 74 DIAGSTATS_SETDIAG
           flag = .FALSE.
./pkg/diagnostics/diagstats_setdiag.F 85 DIAGSTATS_SETDIAG
      IF ( flag ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 114 DIAGNOSTICS_SETDIAG
        flag = .TRUE.
./pkg/diagnostics/diagnostics_setdiag.F 116 DIAGNOSTICS_SETDIAG
         IF (flag .AND. freq(l).EQ.freq(listId)
./pkg/diagnostics/diagnostics_setdiag.F 119 DIAGNOSTICS_SETDIAG
           IF (flag .AND. jdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagnostics_setdiag.F 122 DIAGNOSTICS_SETDIAG
             flag = .FALSE.
./pkg/diagnostics/diagnostics_setdiag.F 130 DIAGNOSTICS_SETDIAG
        IF ( flag ) THEN
./pkg/diagnostics/diagnostics_setdiag.F 50 DIAGNOSTICS_SETDIAG
      LOGICAL flag
./pkg/diagnostics/diagnostics_setdiag.F 66 DIAGNOSTICS_SETDIAG
      flag = .TRUE.
./pkg/diagnostics/diagnostics_setdiag.F 68 DIAGNOSTICS_SETDIAG
       IF (flag .AND. freq(l) .EQ. freq(listId)
./pkg/diagnostics/diagnostics_setdiag.F 71 DIAGNOSTICS_SETDIAG
         IF (flag .AND. jdiag(k,l).GT.0) THEN
./pkg/diagnostics/diagnostics_setdiag.F 74 DIAGNOSTICS_SETDIAG
           flag = .FALSE.
./pkg/diagnostics/diagnostics_setdiag.F 85 DIAGNOSTICS_SETDIAG
      IF ( flag ) THEN
./model/src/checkpoint.F 11 SET_WRITE_GLOBAL_PICKUP
      SUBROUTINE SET_WRITE_GLOBAL_PICKUP( flag )
./model/src/checkpoint.F 29 SET_WRITE_GLOBAL_PICKUP
      LOGICAL flag
./model/src/checkpoint.F 34 SET_WRITE_GLOBAL_PICKUP
      globalFile = flag