File |
Line number |
Procedure |
Code |
./pkg/rbcs/rbcs_fields_load.F |
132 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxUFile(1:IL),'.',initer0 |
./pkg/rbcs/rbcs_fields_load.F |
133 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcu0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
134 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxUFile(1:IL),'.',initer1 |
./pkg/rbcs/rbcs_fields_load.F |
135 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcu1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
144 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxVFile(1:IL),'.',initer0 |
./pkg/rbcs/rbcs_fields_load.F |
145 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcv0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
146 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxVFile(1:IL),'.',initer1 |
./pkg/rbcs/rbcs_fields_load.F |
147 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcv1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
162 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxTFile(1:IL),'.',initer0 |
./pkg/rbcs/rbcs_fields_load.F |
163 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
164 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxTFile(1:IL),'.',initer1 |
./pkg/rbcs/rbcs_fields_load.F |
165 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbct1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
176 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxSFile(1:IL),'.',initer0 |
./pkg/rbcs/rbcs_fields_load.F |
177 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs0, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
178 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxSFile(1:IL),'.',initer1 |
./pkg/rbcs/rbcs_fields_load.F |
179 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS(fullName, rbcs1, 1, myIter, myThid) |
./pkg/rbcs/rbcs_fields_load.F |
195 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxPtracerFile(iTracer)(1:IL) |
./pkg/rbcs/rbcs_fields_load.F |
197 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS( fullName, |
./pkg/rbcs/rbcs_fields_load.F |
200 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxPtracerFile(iTracer)(1:IL) |
./pkg/rbcs/rbcs_fields_load.F |
202 |
RBCS_FIELDS_LOAD |
CALL READ_REC_XYZ_RS( fullName, |
./pkg/rbcs/rbcs_fields_load.F |
63 |
RBCS_FIELDS_LOAD |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_fld_xy_rl.F |
28 |
READ_FLD_XY_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_fld_xy_rl.F |
36 |
READ_FLD_XY_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/read_fld_xy_rl.F |
40 |
READ_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/read_fld_xy_rl.F |
49 |
READ_FLD_XY_RL |
I fullName, readBinaryPrec, useCurrentDir, |
./pkg/rw/read_fld_xy_rs.F |
28 |
READ_FLD_XY_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_fld_xy_rs.F |
36 |
READ_FLD_XY_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/read_fld_xy_rs.F |
40 |
READ_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/read_fld_xy_rs.F |
49 |
READ_FLD_XY_RS |
I fullName, readBinaryPrec, useCurrentDir, |
./pkg/rw/read_fld_xyz_rl.F |
28 |
READ_FLD_XYZ_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_fld_xyz_rl.F |
36 |
READ_FLD_XYZ_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/read_fld_xyz_rl.F |
40 |
READ_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/read_fld_xyz_rl.F |
49 |
READ_FLD_XYZ_RL |
I fullName, readBinaryPrec, useCurrentDir, |
./pkg/rw/read_fld_xyz_rs.F |
28 |
READ_FLD_XYZ_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_fld_xyz_rs.F |
36 |
READ_FLD_XYZ_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/read_fld_xyz_rs.F |
40 |
READ_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/read_fld_xyz_rs.F |
49 |
READ_FLD_XYZ_RS |
I fullName, readBinaryPrec, useCurrentDir, |
./pkg/rw/read_glvec_rl.F |
43 |
READ_GLVEC_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_glvec_rl.F |
52 |
READ_GLVEC_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/read_glvec_rl.F |
56 |
READ_GLVEC_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/read_glvec_rl.F |
65 |
READ_GLVEC_RL |
& fullName, readBinaryPrec, ioUnit, |
./pkg/rw/read_glvec_rs.F |
43 |
READ_GLVEC_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/read_glvec_rs.F |
52 |
READ_GLVEC_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/read_glvec_rs.F |
56 |
READ_GLVEC_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/read_glvec_rs.F |
65 |
READ_GLVEC_RS |
& fullName, readBinaryPrec, ioUnit, |
./pkg/rw/write_fld_3d_rl.F |
32 |
WRITE_FLD_3D_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_fld_3d_rl.F |
40 |
WRITE_FLD_3D_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/write_fld_3d_rl.F |
42 |
WRITE_FLD_3D_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_3d_rl.F |
46 |
WRITE_FLD_3D_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_fld_3d_rl.F |
54 |
WRITE_FLD_3D_RL |
I fullName, writeBinaryPrec, |
./pkg/rw/write_fld_3d_rs.F |
32 |
WRITE_FLD_3D_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_fld_3d_rs.F |
40 |
WRITE_FLD_3D_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/write_fld_3d_rs.F |
42 |
WRITE_FLD_3D_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_3d_rs.F |
46 |
WRITE_FLD_3D_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_fld_3d_rs.F |
54 |
WRITE_FLD_3D_RS |
I fullName, writeBinaryPrec, |
./pkg/rw/write_fld_xy_rl.F |
31 |
WRITE_FLD_XY_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_fld_xy_rl.F |
39 |
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,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xy_rl.F |
45 |
WRITE_FLD_XY_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_fld_xy_rl.F |
54 |
WRITE_FLD_XY_RL |
I fullName, writeBinaryPrec, |
./pkg/rw/write_fld_xy_rs.F |
31 |
WRITE_FLD_XY_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_fld_xy_rs.F |
39 |
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,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xy_rs.F |
45 |
WRITE_FLD_XY_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_fld_xy_rs.F |
54 |
WRITE_FLD_XY_RS |
I fullName, writeBinaryPrec, |
./pkg/rw/write_fld_xyz_rl.F |
31 |
WRITE_FLD_XYZ_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_fld_xyz_rl.F |
39 |
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,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xyz_rl.F |
45 |
WRITE_FLD_XYZ_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_fld_xyz_rl.F |
54 |
WRITE_FLD_XYZ_RL |
I fullName, writeBinaryPrec, |
./pkg/rw/write_fld_xyz_rs.F |
31 |
WRITE_FLD_XYZ_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_fld_xyz_rs.F |
39 |
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,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_fld_xyz_rs.F |
45 |
WRITE_FLD_XYZ_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_fld_xyz_rs.F |
54 |
WRITE_FLD_XYZ_RS |
I fullName, writeBinaryPrec, |
./pkg/rw/write_glvec_rl.F |
41 |
WRITE_GLVEC_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_glvec_rl.F |
50 |
WRITE_GLVEC_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/write_glvec_rl.F |
54 |
WRITE_GLVEC_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_glvec_rl.F |
64 |
WRITE_GLVEC_RL |
I fullName, writeBinaryPrec, ioUnit, |
./pkg/rw/write_glvec_rs.F |
41 |
WRITE_GLVEC_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_glvec_rs.F |
50 |
WRITE_GLVEC_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/write_glvec_rs.F |
54 |
WRITE_GLVEC_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_glvec_rs.F |
64 |
WRITE_GLVEC_RS |
I fullName, writeBinaryPrec, ioUnit, |
./pkg/rw/write_local_rl.F |
54 |
WRITE_LOCAL_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_local_rl.F |
64 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/write_local_rl.F |
66 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_local_rl.F |
70 |
WRITE_LOCAL_RL |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_local_rl.F |
83 |
WRITE_LOCAL_RL |
I fullName, writeBinaryPrec, |
./pkg/rw/write_local_rl.F |
89 |
WRITE_LOCAL_RL |
I fullName, writeBinaryPrec, globalFile, |
./pkg/rw/write_local_rs.F |
54 |
WRITE_LOCAL_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/rw/write_local_rs.F |
64 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A)' ) pref(s1Lo:s1Hi) |
./pkg/rw/write_local_rs.F |
66 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
./pkg/rw/write_local_rs.F |
70 |
WRITE_LOCAL_RS |
WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
./pkg/rw/write_local_rs.F |
83 |
WRITE_LOCAL_RS |
I fullName, writeBinaryPrec, |
./pkg/rw/write_local_rs.F |
89 |
WRITE_LOCAL_RS |
I fullName, writeBinaryPrec, globalFile, |
./pkg/debug/write_fullarray_rl.F |
114 |
WRITE_FULLARRAY_RL |
WRITE( fullName, '(2A,I10.10,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rl.F |
117 |
WRITE_FULLARRAY_RL |
WRITE( fullName, '(A,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rl.F |
129 |
WRITE_FULLARRAY_RL |
OPEN( dUnit, file=fullName, status='unknown', |
./pkg/debug/write_fullarray_rl.F |
52 |
WRITE_FULLARRAY_RL |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/debug/write_fullarray_rl.F |
80 |
WRITE_FULLARRAY_RL |
WRITE( fullName, '(2A,I10.10,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rl.F |
83 |
WRITE_FULLARRAY_RL |
WRITE( fullName, '(A,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rl.F |
95 |
WRITE_FULLARRAY_RL |
OPEN( dUnit, file=fullName, status='unknown', |
./pkg/debug/write_fullarray_rs.F |
114 |
WRITE_FULLARRAY_RS |
WRITE( fullName, '(2A,I10.10,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rs.F |
117 |
WRITE_FULLARRAY_RS |
WRITE( fullName, '(A,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rs.F |
129 |
WRITE_FULLARRAY_RS |
OPEN( dUnit, file=fullName, status='unknown', |
./pkg/debug/write_fullarray_rs.F |
52 |
WRITE_FULLARRAY_RS |
CHARACTER*(MAX_LEN_FNAM) fullName |
./pkg/debug/write_fullarray_rs.F |
80 |
WRITE_FULLARRAY_RS |
WRITE( fullName, '(2A,I10.10,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rs.F |
83 |
WRITE_FULLARRAY_RS |
WRITE( fullName, '(A,2(A,I3.3),A)' ) |
./pkg/debug/write_fullarray_rs.F |
95 |
WRITE_FULLARRAY_RS |
OPEN( dUnit, file=fullName, status='unknown', |