| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_set_map_tiles.F |
247 |
W2_SET_MAP_TILES |
LOGICAL flag |
|
./pkg/exch2/w2_set_map_tiles.F |
264 |
W2_SET_MAP_TILES |
flag = .TRUE. |
|
./pkg/exch2/w2_set_map_tiles.F |
266 |
W2_SET_MAP_TILES |
flag = flag.AND.(MOD(fldList(j),ii).EQ.0 ) |
|
./pkg/exch2/w2_set_map_tiles.F |
268 |
W2_SET_MAP_TILES |
IF ( flag ) THEN |
|
./pkg/generic_advdiff/salt_fill.F |
13 |
SALT_FILL |
I flag,myTime,myIter,myThid) |
|
./pkg/generic_advdiff/salt_fill.F |
49 |
SALT_FILL |
INTEGER flag |
|
./pkg/generic_advdiff/salt_fill.F |
83 |
SALT_FILL |
if(flag.eq.1) then |
|
./pkg/obcs/obcs_balance_flow.F |
138 |
OBCS_BALANCE_FLOW |
flag = flag .OR. ( OBCS_balanceFacW.GT.0. ) |
|
./pkg/obcs/obcs_balance_flow.F |
187 |
OBCS_BALANCE_FLOW |
flag = flag .OR. ( OBCS_balanceFacN.GT.0. ) |
|
./pkg/obcs/obcs_balance_flow.F |
236 |
OBCS_BALANCE_FLOW |
flag = flag .OR. ( OBCS_balanceFacS.GT.0. ) |
|
./pkg/obcs/obcs_balance_flow.F |
286 |
OBCS_BALANCE_FLOW |
IF ( flag ) CALL GLOBAL_SUM_TILE_RL( tileAreaOB, areaOB, myThid ) |
|
./pkg/obcs/obcs_balance_flow.F |
56 |
OBCS_BALANCE_FLOW |
LOGICAL flag |
|
./pkg/obcs/obcs_balance_flow.F |
76 |
OBCS_BALANCE_FLOW |
flag = .FALSE. |
|
./pkg/obcs/obcs_balance_flow.F |
89 |
OBCS_BALANCE_FLOW |
flag = flag .OR. ( OBCS_balanceFacE.GT.0. ) |
|
./pkg/obcs/obcs_init_fixed.F |
100 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
105 |
OBCS_INIT_FIXED |
flag = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
107 |
OBCS_INIT_FIXED |
flag = flag .AND. |
|
./pkg/obcs/obcs_init_fixed.F |
109 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
172 |
OBCS_INIT_FIXED |
flag = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
189 |
OBCS_INIT_FIXED |
IF ( flag ) CALL PRINT_ERROR( errMsg, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
190 |
OBCS_INIT_FIXED |
flag = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
212 |
OBCS_INIT_FIXED |
IF ( flag ) CALL PRINT_ERROR( errMsg, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
213 |
OBCS_INIT_FIXED |
flag = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
235 |
OBCS_INIT_FIXED |
IF ( flag ) CALL PRINT_ERROR( errMsg, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
236 |
OBCS_INIT_FIXED |
flag = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
258 |
OBCS_INIT_FIXED |
IF ( flag ) CALL PRINT_ERROR( errMsg, myThid ) |
|
./pkg/obcs/obcs_init_fixed.F |
259 |
OBCS_INIT_FIXED |
flag = .FALSE. |
|
./pkg/obcs/obcs_init_fixed.F |
49 |
OBCS_INIT_FIXED |
LOGICAL flag |
|
./pkg/obcs/obcs_init_fixed.F |
76 |
OBCS_INIT_FIXED |
flag = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
78 |
OBCS_INIT_FIXED |
flag = flag .AND. |
|
./pkg/obcs/obcs_init_fixed.F |
80 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
85 |
OBCS_INIT_FIXED |
flag = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
87 |
OBCS_INIT_FIXED |
flag = flag .AND. |
|
./pkg/obcs/obcs_init_fixed.F |
89 |
OBCS_INIT_FIXED |
IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0. |
|
./pkg/obcs/obcs_init_fixed.F |
96 |
OBCS_INIT_FIXED |
flag = .TRUE. |
|
./pkg/obcs/obcs_init_fixed.F |
98 |
OBCS_INIT_FIXED |
flag = flag .AND. |
|
./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 ) |
|
./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/write_rec.F |
26 |
SET_WRITE_GLOBAL_REC |
SUBROUTINE SET_WRITE_GLOBAL_REC ( flag ) |
|
./pkg/rw/write_rec.F |
39 |
SET_WRITE_GLOBAL_REC |
LOGICAL flag |
|
./pkg/rw/write_rec.F |
46 |
SET_WRITE_GLOBAL_REC |
globalFile=flag |
|
./pkg/rw/write_rec.F |
55 |
SET_WRITE_GLOBAL_SEC |
SUBROUTINE SET_WRITE_GLOBAL_SEC ( flag ) |
|
./pkg/rw/write_rec.F |
68 |
SET_WRITE_GLOBAL_SEC |
LOGICAL flag |
|
./pkg/rw/write_rec.F |
75 |
SET_WRITE_GLOBAL_SEC |
globalFile=flag |
|
./eesupp/src/bar_check.F |
42 |
BAR_CHECK |
LOGICAL flag |
|
./eesupp/src/bar_check.F |
57 |
BAR_CHECK |
flag = .FALSE. |
|
./eesupp/src/bar_check.F |
60 |
BAR_CHECK |
flag = flag .OR. (barStatus(bi,bj).NE.barrierId) |
|
./eesupp/src/bar_check.F |
63 |
BAR_CHECK |
IF ( flag ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
201 |
THSICE_DIAGNOSTICS_INIT |
flag = .TRUE. |
|
./pkg/thsice/thsice_diagnostics_init.F |
219 |
THSICE_DIAGNOSTICS_INIT |
flag = .FALSE. |
|
./pkg/thsice/thsice_diagnostics_init.F |
221 |
THSICE_DIAGNOSTICS_INIT |
IF ( flag ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
52 |
THSICE_DIAGNOSTICS_INIT |
LOGICAL 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, |
|
./eesupp/src/ini_threading_environment.F |
304 |
INI_THREADING_ENVIRONMENT |
flag = .FALSE. |
|
./eesupp/src/ini_threading_environment.F |
307 |
INI_THREADING_ENVIRONMENT |
flag = flag |
|
./eesupp/src/ini_threading_environment.F |
314 |
INI_THREADING_ENVIRONMENT |
IF ( flag ) THEN |
|
./eesupp/src/ini_threading_environment.F |
60 |
INI_THREADING_ENVIRONMENT |
LOGICAL flag |
|
./pkg/diagnostics/diagnostics_utils.F |
573 |
DIAGNOSTICS_SETKLEV |
LOGICAL flag |
|
./pkg/diagnostics/diagnostics_utils.F |
583 |
DIAGNOSTICS_SETKLEV |
flag = .FALSE. |
|
./pkg/diagnostics/diagnostics_utils.F |
586 |
DIAGNOSTICS_SETKLEV |
IF ( flag ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
592 |
DIAGNOSTICS_SETKLEV |
flag = .FALSE. |
|
./pkg/diagnostics/diagnostics_utils.F |
594 |
DIAGNOSTICS_SETKLEV |
flag = j.GE.1 |
|
./pkg/diagnostics/diagstats_set_regions.F |
206 |
DIAGSTATS_SET_REGIONS |
flag = .FALSE. |
|
./pkg/diagnostics/diagstats_set_regions.F |
208 |
DIAGSTATS_SET_REGIONS |
flag = flag .OR. diagSt_kRegMsk(j).NE.0 |
|
./pkg/diagnostics/diagstats_set_regions.F |
212 |
DIAGSTATS_SET_REGIONS |
IF ( flag .OR. iLen.GE.1 .OR. nSetRegMskFile.NE.0 ) THEN |
|
./pkg/diagnostics/diagstats_set_regions.F |
47 |
DIAGSTATS_SET_REGIONS |
LOGICAL flag |
|
./pkg/diagnostics/diagstats_setdiag.F |
110 |
DIAGSTATS_SETDIAG |
flag = .TRUE. |
|
./pkg/diagnostics/diagstats_setdiag.F |
112 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
115 |
DIAGSTATS_SETDIAG |
IF (flag .AND. jSdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
118 |
DIAGSTATS_SETDIAG |
flag = .FALSE. |
|
./pkg/diagnostics/diagstats_setdiag.F |
126 |
DIAGSTATS_SETDIAG |
IF ( flag ) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
50 |
DIAGSTATS_SETDIAG |
LOGICAL flag |
|
./pkg/diagnostics/diagstats_setdiag.F |
65 |
DIAGSTATS_SETDIAG |
flag = .TRUE. |
|
./pkg/diagnostics/diagstats_setdiag.F |
67 |
DIAGSTATS_SETDIAG |
IF (flag .AND. diagSt_freq(l) .EQ. diagSt_freq(listId) |
|
./pkg/diagnostics/diagstats_setdiag.F |
70 |
DIAGSTATS_SETDIAG |
IF (flag .AND. jSdiag(k,l).GT.0) THEN |
|
./pkg/diagnostics/diagstats_setdiag.F |
73 |
DIAGSTATS_SETDIAG |
flag = .FALSE. |
|
./pkg/diagnostics/diagstats_setdiag.F |
84 |
DIAGSTATS_SETDIAG |
IF ( flag ) THEN |