| File |
Line number |
Procedure |
Code |
|
./pkg/rw/write_fld_xyz_rs.F |
15 |
WRITE_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rs.F |
34 |
WRITE_FLD_XYZ_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xyz_rs.F |
35 |
WRITE_FLD_XYZ_RS |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_fld_xyz_rs.F |
37 |
WRITE_FLD_XYZ_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_xyz_rs.F |
41 |
WRITE_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xyz_rs.F |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xy_rl.F |
15 |
WRITE_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rl.F |
34 |
WRITE_FLD_XY_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xy_rl.F |
35 |
WRITE_FLD_XY_RL |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_fld_xy_rl.F |
37 |
WRITE_FLD_XY_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_xy_rl.F |
41 |
WRITE_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rl.F |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rl.F |
15 |
READ_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rl.F |
31 |
READ_FLD_XY_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xy_rl.F |
32 |
READ_FLD_XY_RL |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/read_fld_xy_rl.F |
34 |
READ_FLD_XY_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/read_fld_xy_rl.F |
38 |
READ_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xy_rl.F |
6 |
READ_FLD_XY_RL |
SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xy_rs.F |
15 |
READ_FLD_XY_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rs.F |
31 |
READ_FLD_XY_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xy_rs.F |
32 |
READ_FLD_XY_RS |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/read_fld_xy_rs.F |
34 |
READ_FLD_XY_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/read_fld_xy_rs.F |
38 |
READ_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xy_rs.F |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xy_rs.F |
15 |
WRITE_FLD_XY_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rs.F |
34 |
WRITE_FLD_XY_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xy_rs.F |
35 |
WRITE_FLD_XY_RS |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_fld_xy_rs.F |
37 |
WRITE_FLD_XY_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_xy_rs.F |
41 |
WRITE_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rs.F |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_local_rs.F |
16 |
WRITE_LOCAL_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rs.F |
37 |
WRITE_LOCAL_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_local_rs.F |
38 |
WRITE_LOCAL_RS |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_local_rs.F |
40 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_local_rs.F |
42 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_local_rs.F |
46 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_local_rs.F |
7 |
WRITE_LOCAL_RS |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rs.F |
15 |
READ_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rs.F |
31 |
READ_FLD_XYZ_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xyz_rs.F |
32 |
READ_FLD_XYZ_RS |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/read_fld_xyz_rs.F |
34 |
READ_FLD_XYZ_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/read_fld_xyz_rs.F |
38 |
READ_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xyz_rs.F |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_local_rl.F |
16 |
WRITE_LOCAL_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rl.F |
37 |
WRITE_LOCAL_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_local_rl.F |
38 |
WRITE_LOCAL_RL |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_local_rl.F |
40 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_local_rl.F |
42 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_local_rl.F |
46 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_local_rl.F |
7 |
WRITE_LOCAL_RL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rl.F |
15 |
READ_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rl.F |
31 |
READ_FLD_XYZ_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xyz_rl.F |
32 |
READ_FLD_XYZ_RL |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/read_fld_xyz_rl.F |
34 |
READ_FLD_XYZ_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/read_fld_xyz_rl.F |
38 |
READ_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/read_fld_xyz_rl.F |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/write_fld_xyz_rl.F |
15 |
WRITE_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rl.F |
34 |
WRITE_FLD_XYZ_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xyz_rl.F |
35 |
WRITE_FLD_XYZ_RL |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_fld_xyz_rl.F |
37 |
WRITE_FLD_XYZ_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_xyz_rl.F |
41 |
WRITE_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xyz_rl.F |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/autodiff/active_file_g.F |
104 |
G_ACTIVE_READ_XY |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
107 |
G_ACTIVE_READ_XY |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
182 |
G_ACTIVE_READ_XYZ |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
189 |
G_ACTIVE_READ_XYZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
192 |
G_ACTIVE_READ_XYZ |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
268 |
G_ACTIVE_READ_XZ |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
275 |
G_ACTIVE_READ_XZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
278 |
G_ACTIVE_READ_XZ |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
354 |
G_ACTIVE_READ_YZ |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
361 |
G_ACTIVE_READ_YZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
364 |
G_ACTIVE_READ_YZ |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
433 |
G_ACTIVE_WRITE_XY |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
441 |
G_ACTIVE_WRITE_XY |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
444 |
G_ACTIVE_WRITE_XY |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
513 |
G_ACTIVE_WRITE_XYZ |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
521 |
G_ACTIVE_WRITE_XYZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
524 |
G_ACTIVE_WRITE_XYZ |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
593 |
G_ACTIVE_WRITE_XZ |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
601 |
G_ACTIVE_WRITE_XZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
604 |
G_ACTIVE_WRITE_XZ |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
673 |
G_ACTIVE_WRITE_YZ |
character*(2) pref |
|
./pkg/autodiff/active_file_g.F |
681 |
G_ACTIVE_WRITE_YZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
684 |
G_ACTIVE_WRITE_YZ |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_g.F |
97 |
G_ACTIVE_READ_XY |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
102 |
G_ACTIVE_READ_XY_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
105 |
G_ACTIVE_READ_XY_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
178 |
G_ACTIVE_READ_XYZ_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
185 |
G_ACTIVE_READ_XYZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
188 |
G_ACTIVE_READ_XYZ_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
262 |
G_ACTIVE_READ_XZ_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
269 |
G_ACTIVE_READ_XZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
272 |
G_ACTIVE_READ_XZ_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
346 |
G_ACTIVE_READ_YZ_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
353 |
G_ACTIVE_READ_YZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
356 |
G_ACTIVE_READ_YZ_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
423 |
G_ACTIVE_WRITE_XY_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
431 |
G_ACTIVE_WRITE_XY_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
434 |
G_ACTIVE_WRITE_XY_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
501 |
G_ACTIVE_WRITE_XYZ_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
509 |
G_ACTIVE_WRITE_XYZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
512 |
G_ACTIVE_WRITE_XYZ_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
579 |
G_ACTIVE_WRITE_XZ_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
587 |
G_ACTIVE_WRITE_XZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
590 |
G_ACTIVE_WRITE_XZ_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
657 |
G_ACTIVE_WRITE_YZ_LOC |
character*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
665 |
G_ACTIVE_WRITE_YZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
668 |
G_ACTIVE_WRITE_YZ_LOC |
write(fname(1:2),'(a)') pref |
|
./pkg/autodiff/active_file_loc_g.F |
95 |
G_ACTIVE_READ_XY_LOC |
character*(2) pref |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
135 |
TURBIO |
_RL fmu,hice,tref,pref,cti,ed |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
140 |
TURBIO |
parameter ( pref = 500. ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
293 |
TURBIO |
rmu = fmu * tref * rgas / pref |
|
./pkg/aim_v23/aim_write_local.F |
10 |
AIM_WRITE_LOCAL |
I pref,suff,nNr,field,bi,bj,iRec,myIter,myThid) |
|
./pkg/aim_v23/aim_write_local.F |
36 |
AIM_WRITE_LOCAL |
CHARACTER*(*) pref,suff |
|
./pkg/aim_v23/aim_write_local.F |
79 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL(pref,suff,nNr,tmpFld, |
|
./pkg/ptracers/ptracers_write_state.F |
86 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(A7,I2.2)') 'PTRACER',iTracer |
|
./pkg/fizhi/getpwhere.F |
101 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry+1) |
|
./pkg/fizhi/getpwhere.F |
105 |
GETPWHERE |
pref(Nrphys) = 0.5 |
|
./pkg/fizhi/getpwhere.F |
109 |
GETPWHERE |
if(pref(L).ge.pressures(n)) plevref(n) = L |
|
./pkg/fizhi/getpwhere.F |
49 |
GETPWHERE |
_RL pref(Nrphys) |
|
./pkg/fizhi/getpwhere.F |
78 |
GETPWHERE |
pref(L) = (dptry_pedge(L) + dptry_pedge(L+1))/2. |
|
./pkg/fizhi/getpwhere.F |
92 |
GETPWHERE |
if(rF_pmid(L).ge.pref(ntry)) dynlev = L |
|
./pkg/fizhi/getpwhere.F |
94 |
GETPWHERE |
if(rF_pmid(dynlev).ge.pref(ntry)-25.) then |
|
./pkg/fizhi/getpwhere.F |
96 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry) |
|
./pkg/fizhi/getpwhere.F |
99 |
GETPWHERE |
pref(ntry) = rF_pmid(dynlev) |
|
./pkg/fizhi/fizhi_turb.F |
135 |
TURBIO |
_RL fmu,hice,tref,pref,cti,ed |
|
./pkg/fizhi/fizhi_turb.F |
140 |
TURBIO |
parameter ( pref = 500. ) |
|
./pkg/fizhi/fizhi_turb.F |
293 |
TURBIO |
rmu = fmu * tref * rgas / pref |
|
./pkg/fizhi/fizhi_write_state.F |
43 |
FIZHI_WRITE_STATE |
CHARACTER*(MAX_LEN_FNAM) pref |
|
./pkg/fizhi/fizhi_write_state.F |
62 |
FIZHI_WRITE_STATE |
pref = 'fizhi_U.' |
|
./pkg/fizhi/fizhi_write_state.F |
63 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
65 |
FIZHI_WRITE_STATE |
pref = 'fizhi_V.' |
|
./pkg/fizhi/fizhi_write_state.F |
66 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
68 |
FIZHI_WRITE_STATE |
pref = 'fizhi_T.' |
|
./pkg/fizhi/fizhi_write_state.F |
69 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/fizhi/fizhi_write_state.F |
71 |
FIZHI_WRITE_STATE |
pref = 'fizhi_S.' |
|
./pkg/fizhi/fizhi_write_state.F |
72 |
FIZHI_WRITE_STATE |
WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10) |
|
./pkg/monitor/mon_out.F |
108 |
MON_OUT_ALL |
CHARACTER*(*) pref, foot |
|
./pkg/monitor/mon_out.F |
11 |
MON_OUT_I |
SUBROUTINE MON_OUT_I( pref, value, foot, myThid ) |
|
./pkg/monitor/mon_out.F |
157 |
MON_OUT_ALL |
I0 = IFNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
158 |
MON_OUT_ALL |
I1 = ILNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
161 |
MON_OUT_ALL |
IF ( pref(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
164 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
166 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
20 |
MON_OUT_I |
CHARACTER*(*) pref |
|
./pkg/monitor/mon_out.F |
26 |
MON_OUT_I |
CALL MON_OUT_ALL(pref, foot, 1, value, 0.0d0, myThid) |
|
./pkg/monitor/mon_out.F |
35 |
MON_OUT_RS |
SUBROUTINE MON_OUT_RS( pref, value, foot, myThid ) |
|
./pkg/monitor/mon_out.F |
44 |
MON_OUT_RS |
CHARACTER*(*) pref |
|
./pkg/monitor/mon_out.F |
52 |
MON_OUT_RS |
CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid) |
|
./pkg/monitor/mon_out.F |
61 |
MON_OUT_RL |
SUBROUTINE MON_OUT_RL( pref, value, foot, myThid ) |
|
./pkg/monitor/mon_out.F |
70 |
MON_OUT_RL |
CHARACTER*(*) pref |
|
./pkg/monitor/mon_out.F |
78 |
MON_OUT_RL |
CALL MON_OUT_ALL(pref, foot, 2, 0, dtmp, myThid) |
|
./pkg/monitor/mon_out.F |
88 |
MON_OUT_ALL |
I pref, foot, |