| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
151 |
TURBIO |
_RL fmu,hice,tref,pref,cti,ed |
|
./pkg/fizhi/fizhi_turb.F |
156 |
TURBIO |
parameter ( pref = 500. ) |
|
./pkg/fizhi/fizhi_turb.F |
302 |
TURBIO |
rmu = fmu * tref * rgas / pref |
|
./pkg/fizhi/getpwhere.F |
105 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=1,ntry) |
|
./pkg/fizhi/getpwhere.F |
113 |
GETPWHERE |
pref(L) = (Nrphys-L+0.5)*dpTop |
|
./pkg/fizhi/getpwhere.F |
125 |
GETPWHERE |
pref(L) = rC_dyn(dynlev+L-ntry) |
|
./pkg/fizhi/getpwhere.F |
139 |
GETPWHERE |
if(rF_pmid(L).ge.pref(ntry)) dynlev = L |
|
./pkg/fizhi/getpwhere.F |
142 |
GETPWHERE |
IF ( rF_pmid(dynlev).ge.pref(ntry)-25. ) THEN |
|
./pkg/fizhi/getpwhere.F |
156 |
GETPWHERE |
if(rF_pmid(dynlev).ge.pref(ntry)-25.) then |
|
./pkg/fizhi/getpwhere.F |
158 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry) |
|
./pkg/fizhi/getpwhere.F |
161 |
GETPWHERE |
pref(ntry) = rF_pmid(dynlev) |
|
./pkg/fizhi/getpwhere.F |
163 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry+1) |
|
./pkg/fizhi/getpwhere.F |
167 |
GETPWHERE |
pref(Nrphys) = 0.5 |
|
./pkg/fizhi/getpwhere.F |
168 |
GETPWHERE |
if(Nr.eq.70)pref(Nrphys) = 0.005 |
|
./pkg/fizhi/getpwhere.F |
173 |
GETPWHERE |
IF ( pref(L).GE.pressures(n) ) tmplev = L |
|
./pkg/fizhi/getpwhere.F |
186 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=ntry,Nrphys) |
|
./pkg/fizhi/getpwhere.F |
63 |
GETPWHERE |
_RL pref(Nrphys) |
|
./pkg/fizhi/getpwhere.F |
96 |
GETPWHERE |
pref(L) = (dptry_pedge(L) + dptry_pedge(L+1))/2. |
|
./pkg/monitor/mon_out.F |
105 |
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 |
162 |
MON_OUT_ALL |
I0 = IFNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
163 |
MON_OUT_ALL |
I1 = ILNBLNK(pref) |
|
./pkg/monitor/mon_out.F |
166 |
MON_OUT_ALL |
IF ( pref(I0:I1) .NE. mon_string_none .AND. |
|
./pkg/monitor/mon_out.F |
169 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
171 |
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, |
|
./pkg/ptracers/ptracers_write_state.F |
108 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(A,A)') 'PTRACERS.', suff |
|
./pkg/ptracers/ptracers_write_state.F |
112 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(3A,A)') |
|
./pkg/ptracers/ptracers_write_state.F |
119 |
PTRACERS_WRITE_STATE |
CALL WRITE_REC_XYZ_RL(pref, |
|
./pkg/ptracers/ptracers_write_state.F |
122 |
PTRACERS_WRITE_STATE |
CALL WRITE_REC_XYZ_RL(pref, |
|
./pkg/ptracers/ptracers_write_state.F |
48 |
PTRACERS_WRITE_STATE |
CHARACTER*(MAX_LEN_FNAM) pref |
|
./pkg/ptracers/ptracers_write_state.F |
90 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(A)') 'PTRACERS' |
|
./pkg/ptracers/ptracers_write_state.F |
95 |
PTRACERS_WRITE_STATE |
WRITE(pref,'(2A)') 'PTRACER',PTRACERS_ioLabel(iTracer) |
|
./pkg/rw/read_fld_xy_rl.F |
15 |
READ_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xy_rl.F |
33 |
READ_FLD_XY_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xy_rl.F |
34 |
READ_FLD_XY_RL |
s1Hi = ILNBLNK(pref) |
|
./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 |
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 |
33 |
READ_FLD_XY_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xy_rs.F |
34 |
READ_FLD_XY_RS |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
READ_FLD_XY_RS |
SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rl.F |
15 |
READ_FLD_XYZ_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rl.F |
33 |
READ_FLD_XYZ_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xyz_rl.F |
34 |
READ_FLD_XYZ_RL |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
READ_FLD_XYZ_RL |
SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_fld_xyz_rs.F |
15 |
READ_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_fld_xyz_rs.F |
33 |
READ_FLD_XYZ_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_fld_xyz_rs.F |
34 |
READ_FLD_XYZ_RS |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
READ_FLD_XYZ_RS |
SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid) |
|
./pkg/rw/read_glvec_rl.F |
10 |
READ_GLVEC_RL |
I pref, suff, |
|
./pkg/rw/read_glvec_rl.F |
28 |
READ_GLVEC_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_glvec_rl.F |
49 |
READ_GLVEC_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_glvec_rl.F |
50 |
READ_GLVEC_RL |
s1Hi = ILNBLNK(pref) |
|
./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_rs.F |
10 |
READ_GLVEC_RS |
I pref, suff, |
|
./pkg/rw/read_glvec_rs.F |
28 |
READ_GLVEC_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/read_glvec_rs.F |
49 |
READ_GLVEC_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/read_glvec_rs.F |
50 |
READ_GLVEC_RS |
s1Hi = ILNBLNK(pref) |
|
./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/write_fld_3d_rl.F |
16 |
WRITE_FLD_3D_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_3d_rl.F |
37 |
WRITE_FLD_3D_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_3d_rl.F |
38 |
WRITE_FLD_3D_RL |
s1Hi = ILNBLNK(pref) |
|
./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 |
7 |
WRITE_FLD_3D_RL |
I pref, suff, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_3d_rs.F |
16 |
WRITE_FLD_3D_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_3d_rs.F |
37 |
WRITE_FLD_3D_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_3d_rs.F |
38 |
WRITE_FLD_3D_RS |
s1Hi = ILNBLNK(pref) |
|
./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 |
7 |
WRITE_FLD_3D_RS |
I pref, suff, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
10 |
WRITE_FLD_S3D_RL |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
36 |
WRITE_FLD_S3D_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_s3d_rl.F |
75 |
WRITE_FLD_S3D_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_s3d_rl.F |
76 |
WRITE_FLD_S3D_RL |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_fld_s3d_rl.F |
78 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_s3d_rl.F |
80 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rl.F |
84 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
10 |
WRITE_FLD_S3D_RS |
I pref, suff, Ovl, nNz, field, myIter, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
36 |
WRITE_FLD_S3D_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_s3d_rs.F |
75 |
WRITE_FLD_S3D_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_s3d_rs.F |
76 |
WRITE_FLD_S3D_RS |
s1Hi = ILNBLNK(pref) |
|
./pkg/rw/write_fld_s3d_rs.F |
78 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
80 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rs.F |
84 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_xy_rl.F |
15 |
WRITE_FLD_XY_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xy_rl.F |
36 |
WRITE_FLD_XY_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xy_rl.F |
37 |
WRITE_FLD_XY_RL |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
WRITE_FLD_XY_RL |
SUBROUTINE WRITE_FLD_XY_RL( 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 |
36 |
WRITE_FLD_XY_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xy_rs.F |
37 |
WRITE_FLD_XY_RS |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
WRITE_FLD_XY_RS |
SUBROUTINE WRITE_FLD_XY_RS( 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 |
36 |
WRITE_FLD_XYZ_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xyz_rl.F |
37 |
WRITE_FLD_XYZ_RL |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
WRITE_FLD_XYZ_RL |
SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_fld_xyz_rs.F |
15 |
WRITE_FLD_XYZ_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_fld_xyz_rs.F |
36 |
WRITE_FLD_XYZ_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_fld_xyz_rs.F |
37 |
WRITE_FLD_XYZ_RS |
s1Hi = ILNBLNK(pref) |
|
./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 |
6 |
WRITE_FLD_XYZ_RS |
SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid ) |
|
./pkg/rw/write_glvec_rl.F |
10 |
WRITE_GLVEC_RL |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rl.F |
26 |
WRITE_GLVEC_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_glvec_rl.F |
47 |
WRITE_GLVEC_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_glvec_rl.F |
48 |
WRITE_GLVEC_RL |
s1Hi = ILNBLNK(pref) |
|
./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_rs.F |
10 |
WRITE_GLVEC_RS |
I pref, suff, array, sizArr, myIter, myThid ) |
|
./pkg/rw/write_glvec_rs.F |
26 |
WRITE_GLVEC_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_glvec_rs.F |
47 |
WRITE_GLVEC_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_glvec_rs.F |
48 |
WRITE_GLVEC_RS |
s1Hi = ILNBLNK(pref) |
|
./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_local_rl.F |
10 |
WRITE_LOCAL_RL |
I pref, suff, nNr, field, |
|
./pkg/rw/write_local_rl.F |
34 |
WRITE_LOCAL_RL |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rl.F |
61 |
WRITE_LOCAL_RL |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_local_rl.F |
62 |
WRITE_LOCAL_RL |
s1Hi = ILNBLNK(pref) |
|
./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_rs.F |
10 |
WRITE_LOCAL_RS |
I pref, suff, nNr, field, |
|
./pkg/rw/write_local_rs.F |
34 |
WRITE_LOCAL_RS |
CHARACTER*(*) pref,suff |
|
./pkg/rw/write_local_rs.F |
61 |
WRITE_LOCAL_RS |
s1Lo = IFNBLNK(pref) |
|
./pkg/rw/write_local_rs.F |
62 |
WRITE_LOCAL_RS |
s1Hi = ILNBLNK(pref) |
|
./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/seaice/seaice_output.F |
159 |
SEAICE_OUTPUT |
WRITE(pref,'(A8,I2.2,A1)') 'SITRACER', iTracer, '.' |
|
./pkg/seaice/seaice_output.F |
161 |
SEAICE_OUTPUT |
& pref,suff, |
|
./pkg/seaice/seaice_output.F |
57 |
SEAICE_OUTPUT |
CHARACTER*(13) pref |
|
./pkg/aim_v23/aim_write_local.F |
10 |
AIM_WRITE_LOCAL |
I pref, suff, nNr, field, |
|
./pkg/aim_v23/aim_write_local.F |
37 |
AIM_WRITE_LOCAL |
CHARACTER*(*) pref,suff |
|
./pkg/aim_v23/aim_write_local.F |
59 |
AIM_WRITE_LOCAL |
iL = ILNBLNK( pref ) |
|
./pkg/aim_v23/aim_write_local.F |
62 |
AIM_WRITE_LOCAL |
& ' iRec=', iRec, ' ): try to write: ', pref(1:iL) |
|
./pkg/aim_v23/aim_write_local.F |
93 |
AIM_WRITE_LOCAL |
CALL WRITE_LOCAL_RL( pref, suff, nNr, tmpFld, |
|
./pkg/aim_v23/aim_write_phys.F |
10 |
AIM_WRITE_PHYS |
I pref, suff, nNr, field, |
|
./pkg/aim_v23/aim_write_phys.F |
132 |
AIM_WRITE_PHYS |
CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld, |
|
./pkg/aim_v23/aim_write_phys.F |
40 |
AIM_WRITE_PHYS |
CHARACTER*(*) pref, suff |
|
./pkg/aim_v23/aim_write_phys.F |
79 |
AIM_WRITE_PHYS |
iL = ILNBLNK( pref ) |
|
./pkg/aim_v23/aim_write_phys.F |
82 |
AIM_WRITE_PHYS |
& ' iRec=', iRec, ' ): try to write: ', pref(1:iL) |
|
./pkg/aim_v23/aim_write_phys.F |
89 |
AIM_WRITE_PHYS |
iL = ILNBLNK( pref ) |
|
./pkg/aim_v23/aim_write_phys.F |
92 |
AIM_WRITE_PHYS |
& ' iRec=', iRec, ' ): try to write: ', pref(1:iL) |
|
./pkg/autodiff/active_file_g.F |
175 |
G_ACTIVE_READ_XYZ |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
182 |
G_ACTIVE_READ_XYZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
185 |
G_ACTIVE_READ_XYZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
262 |
G_ACTIVE_READ_XZ |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
269 |
G_ACTIVE_READ_XZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
272 |
G_ACTIVE_READ_XZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
349 |
G_ACTIVE_READ_YZ |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
356 |
G_ACTIVE_READ_YZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
359 |
G_ACTIVE_READ_YZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
429 |
G_ACTIVE_WRITE_XY |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
437 |
G_ACTIVE_WRITE_XY |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
440 |
G_ACTIVE_WRITE_XY |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
511 |
G_ACTIVE_WRITE_XYZ |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
519 |
G_ACTIVE_WRITE_XYZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
522 |
G_ACTIVE_WRITE_XYZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./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+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
675 |
G_ACTIVE_WRITE_YZ |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
683 |
G_ACTIVE_WRITE_YZ |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
686 |
G_ACTIVE_WRITE_YZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
88 |
G_ACTIVE_READ_XY |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_g.F |
95 |
G_ACTIVE_READ_XY |
pref = 'g_' |
|
./pkg/autodiff/active_file_g.F |
98 |
G_ACTIVE_READ_XY |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
104 |
ADACTIVE_READ_GEN_RL |
pref = 'ad' |
|
./pkg/autodiff/active_file_gen_ad.F |
107 |
ADACTIVE_READ_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
216 |
ADACTIVE_READ_GEN_RS |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_ad.F |
221 |
ADACTIVE_READ_GEN_RS |
pref = 'ad' |
|
./pkg/autodiff/active_file_gen_ad.F |
224 |
ADACTIVE_READ_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
324 |
ADACTIVE_WRITE_GEN_RL |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_ad.F |
330 |
ADACTIVE_WRITE_GEN_RL |
pref = 'ad' |
|
./pkg/autodiff/active_file_gen_ad.F |
333 |
ADACTIVE_WRITE_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
434 |
ADACTIVE_WRITE_GEN_RS |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_ad.F |
440 |
ADACTIVE_WRITE_GEN_RS |
pref = 'ad' |
|
./pkg/autodiff/active_file_gen_ad.F |
443 |
ADACTIVE_WRITE_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
99 |
ADACTIVE_READ_GEN_RL |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_g.F |
202 |
G_ACTIVE_READ_GEN_RS |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_g.F |
207 |
G_ACTIVE_READ_GEN_RS |
pref = 'g_' |
|
./pkg/autodiff/active_file_gen_g.F |
210 |
G_ACTIVE_READ_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_g.F |
312 |
G_ACTIVE_WRITE_GEN_RL |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_g.F |
318 |
G_ACTIVE_WRITE_GEN_RL |
pref = 'g_' |
|
./pkg/autodiff/active_file_gen_g.F |
321 |
G_ACTIVE_WRITE_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_g.F |
424 |
G_ACTIVE_WRITE_GEN_RS |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_g.F |
430 |
G_ACTIVE_WRITE_GEN_RS |
pref = 'g_' |
|
./pkg/autodiff/active_file_gen_g.F |
433 |
G_ACTIVE_WRITE_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_g.F |
86 |
G_ACTIVE_READ_GEN_RL |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_gen_g.F |
91 |
G_ACTIVE_READ_GEN_RL |
pref = 'g_' |
|
./pkg/autodiff/active_file_gen_g.F |
94 |
G_ACTIVE_READ_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
171 |
G_ACTIVE_READ_XYZ_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
178 |
G_ACTIVE_READ_XYZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
181 |
G_ACTIVE_READ_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
256 |
G_ACTIVE_READ_XZ_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
263 |
G_ACTIVE_READ_XZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
266 |
G_ACTIVE_READ_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
341 |
G_ACTIVE_READ_YZ_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
348 |
G_ACTIVE_READ_YZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
351 |
G_ACTIVE_READ_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
419 |
G_ACTIVE_WRITE_XY_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
427 |
G_ACTIVE_WRITE_XY_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
430 |
G_ACTIVE_WRITE_XY_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
499 |
G_ACTIVE_WRITE_XYZ_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
507 |
G_ACTIVE_WRITE_XYZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
510 |
G_ACTIVE_WRITE_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./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+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
659 |
G_ACTIVE_WRITE_YZ_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
667 |
G_ACTIVE_WRITE_YZ_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
670 |
G_ACTIVE_WRITE_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
86 |
G_ACTIVE_READ_XY_LOC |
CHARACTER*(2) pref |
|
./pkg/autodiff/active_file_loc_g.F |
93 |
G_ACTIVE_READ_XY_LOC |
pref = 'g_' |
|
./pkg/autodiff/active_file_loc_g.F |
96 |
G_ACTIVE_READ_XY_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |