| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_cw_init.F |
120 |
MNC_CW_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_cw_init.F |
133 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'X' |
|
./pkg/mnc/mnc_cw_init.F |
140 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Xp1' |
|
./pkg/mnc/mnc_cw_init.F |
151 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'Y' |
|
./pkg/mnc/mnc_cw_init.F |
158 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Yp1' |
|
./pkg/mnc/mnc_cw_init.F |
169 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Xwh' |
|
./pkg/mnc/mnc_cw_init.F |
177 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Ywh' |
|
./pkg/mnc/mnc_cw_init.F |
188 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'Z' |
|
./pkg/mnc/mnc_cw_init.F |
195 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Zp1' |
|
./pkg/mnc/mnc_cw_init.F |
202 |
MNC_CW_INIT |
dn(ndim)(1:2) = 'Zl' |
|
./pkg/mnc/mnc_cw_init.F |
209 |
MNC_CW_INIT |
dn(ndim)(1:2) = 'Zu' |
|
./pkg/mnc/mnc_cw_init.F |
216 |
MNC_CW_INIT |
dn(ndim)(1:3) = 'Zm1' |
|
./pkg/mnc/mnc_cw_init.F |
225 |
MNC_CW_INIT |
dn(ndim)(1:1) = 'T' |
|
./pkg/mnc/mnc_cw_init.F |
239 |
MNC_CW_INIT |
& ' | ', (dn(i)(1:4), i=1,5) |
|
./pkg/mnc/mnc_cw_init.F |
243 |
MNC_CW_INIT |
& dim, dn, ib, ie, myThid) |
|
./pkg/mnc/mnc_cw_init.F |
56 |
MNC_CW_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/diagnostics/diagnostics_out.F |
103 |
DIAGNOSTICS_OUT |
CHARACTER*(NLEN) dn(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_out.F |
134 |
DIAGNOSTICS_OUT |
dn(1)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_out.F |
135 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
141 |
DIAGNOSTICS_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
164 |
DIAGNOSTICS_OUT |
dn(1)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_out.F |
165 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
166 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_GNAME(dn(1), 1, dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
167 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VNAME(dn(1), dn(1), 0,0, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
181 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description', |
|
./pkg/diagnostics/diagnostics_out.F |
188 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description', |
|
./pkg/diagnostics/diagnostics_out.F |
195 |
DIAGNOSTICS_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description', |
|
./pkg/diagnostics/diagnostics_out.F |
199 |
DIAGNOSTICS_OUT |
CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
200 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_VNAME(dn(1), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
201 |
DIAGNOSTICS_OUT |
CALL MNC_CW_DEL_GNAME(dn(1), myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
445 |
DIAGNOSTICS_OUT |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_out.F |
463 |
DIAGNOSTICS_OUT |
dn(1)(1:2) = 'X' |
|
./pkg/diagnostics/diagnostics_out.F |
465 |
DIAGNOSTICS_OUT |
dn(2)(1:2) = 'Y' |
|
./pkg/diagnostics/diagnostics_out.F |
468 |
DIAGNOSTICS_OUT |
dn(1)(1:3) = 'Xp1' |
|
./pkg/diagnostics/diagnostics_out.F |
470 |
DIAGNOSTICS_OUT |
dn(2)(1:2) = 'Y' |
|
./pkg/diagnostics/diagnostics_out.F |
473 |
DIAGNOSTICS_OUT |
dn(1)(1:2) = 'X' |
|
./pkg/diagnostics/diagnostics_out.F |
475 |
DIAGNOSTICS_OUT |
dn(2)(1:3) = 'Yp1' |
|
./pkg/diagnostics/diagnostics_out.F |
478 |
DIAGNOSTICS_OUT |
dn(1)(1:3) = 'Xp1' |
|
./pkg/diagnostics/diagnostics_out.F |
480 |
DIAGNOSTICS_OUT |
dn(2)(1:3) = 'Yp1' |
|
./pkg/diagnostics/diagnostics_out.F |
485 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
488 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zmd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
492 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zld', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
496 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zud', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
503 |
DIAGNOSTICS_OUT |
dn(4)(1:1) = 'T' |
|
./pkg/diagnostics/diagnostics_out.F |
509 |
DIAGNOSTICS_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
119 |
DIAGSTATS_MNC_OUT |
dn(1)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
120 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
126 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
142 |
DIAGSTATS_MNC_OUT |
dn(1)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
143 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
144 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_GNAME(dn(1), 1, dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
145 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_VNAME(dn(1), dn(1), 0,0, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
159 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description', |
|
./pkg/diagnostics/diagstats_mnc_out.F |
166 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description', |
|
./pkg/diagnostics/diagstats_mnc_out.F |
173 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description', |
|
./pkg/diagnostics/diagstats_mnc_out.F |
177 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_RS_W('D',diag_mnc_bn,0,0, dn(1), ztmp, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
178 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_VNAME(dn(1), myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
179 |
DIAGSTATS_MNC_OUT |
CALL MNC_CW_DEL_GNAME(dn(1), myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
185 |
DIAGSTATS_MNC_OUT |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
189 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
192 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
196 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zld', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
200 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zud', kdiag(ndId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
209 |
DIAGSTATS_MNC_OUT |
dn(2)(1:6) = 'region' |
|
./pkg/diagnostics/diagstats_mnc_out.F |
213 |
DIAGSTATS_MNC_OUT |
dn(3)(1:1) = 'T' |
|
./pkg/diagnostics/diagstats_mnc_out.F |
228 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
230 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(a3)') 'Zd0' |
|
./pkg/diagnostics/diagstats_mnc_out.F |
234 |
DIAGSTATS_MNC_OUT |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
67 |
DIAGSTATS_MNC_OUT |
CHARACTER*(NLEN) dn(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
101 |
DIAGNOSTICS_WRITE_PICKUP |
dn(2)(1:3) = 'Yp1' |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
105 |
DIAGNOSTICS_WRITE_PICKUP |
dn(3)(1:2) = 'Nd' |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
109 |
DIAGNOSTICS_WRITE_PICKUP |
dn(4)(1:1) = 'T' |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
115 |
DIAGNOSTICS_WRITE_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
130 |
DIAGNOSTICS_WRITE_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
133 |
DIAGNOSTICS_WRITE_PICKUP |
dn(1)(1:2) = 'Nd' |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
137 |
DIAGNOSTICS_WRITE_PICKUP |
dn(2)(1:1) = 'T' |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
143 |
DIAGNOSTICS_WRITE_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
64 |
DIAGNOSTICS_WRITE_PICKUP |
CHARACTER*(NLEN) dn(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
94 |
DIAGNOSTICS_WRITE_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
97 |
DIAGNOSTICS_WRITE_PICKUP |
dn(1)(1:3) = 'Xp1' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
110 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
113 |
DIAGNOSTICS_READ_PICKUP |
dn(1)(1:2) = 'Nd' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
117 |
DIAGNOSTICS_READ_PICKUP |
dn(2)(1:1) = 'T' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
122 |
DIAGNOSTICS_READ_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
53 |
DIAGNOSTICS_READ_PICKUP |
CHARACTER*(NLEN) dn(CW_DIMS) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
79 |
DIAGNOSTICS_READ_PICKUP |
dn(ii)(1:NLEN) = dn_blnk(1:NLEN) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
82 |
DIAGNOSTICS_READ_PICKUP |
dn(1)(1:3) = 'Xp1' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
86 |
DIAGNOSTICS_READ_PICKUP |
dn(2)(1:3) = 'Yp1' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
90 |
DIAGNOSTICS_READ_PICKUP |
dn(3)(1:2) = 'Zd' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
94 |
DIAGNOSTICS_READ_PICKUP |
dn(4)(1:1) = 'T' |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
99 |
DIAGNOSTICS_READ_PICKUP |
& dim, dn, ib, ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
107 |
FIZHI_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/fizhi/fizhi_mnc_init.F |
120 |
FIZHI_MNC_INIT |
dn(ndim)(1:1) = 'X' |
|
./pkg/fizhi/fizhi_mnc_init.F |
127 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Xp1' |
|
./pkg/fizhi/fizhi_mnc_init.F |
138 |
FIZHI_MNC_INIT |
dn(ndim)(1:1) = 'Y' |
|
./pkg/fizhi/fizhi_mnc_init.F |
145 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Yp1' |
|
./pkg/fizhi/fizhi_mnc_init.F |
156 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Xwh' |
|
./pkg/fizhi/fizhi_mnc_init.F |
164 |
FIZHI_MNC_INIT |
dn(ndim)(1:3) = 'Ywh' |
|
./pkg/fizhi/fizhi_mnc_init.F |
175 |
FIZHI_MNC_INIT |
dn(ndim)(1:5) = 'Zphys' |
|
./pkg/fizhi/fizhi_mnc_init.F |
182 |
FIZHI_MNC_INIT |
dn(ndim)(1:7) = 'Zphysm1' |
|
./pkg/fizhi/fizhi_mnc_init.F |
192 |
FIZHI_MNC_INIT |
dn(ndim)(1:1) = 'T' |
|
./pkg/fizhi/fizhi_mnc_init.F |
201 |
FIZHI_MNC_INIT |
& dim, dn, ib, ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
216 |
FIZHI_MNC_INIT |
dn(1)(1:10) = 'X ' |
|
./pkg/fizhi/fizhi_mnc_init.F |
220 |
FIZHI_MNC_INIT |
dn(2)(1:10) = 'Y ' |
|
./pkg/fizhi/fizhi_mnc_init.F |
224 |
FIZHI_MNC_INIT |
dn(3)(1:10) = 'VegType ' |
|
./pkg/fizhi/fizhi_mnc_init.F |
229 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_veg', ndim, dim, dn,ib,ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
242 |
FIZHI_MNC_INIT |
dn(1)(1:10) = 'chips ' |
|
./pkg/fizhi/fizhi_mnc_init.F |
246 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chip', ndim, dim, dn,ib,ie, myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
267 |
FIZHI_MNC_INIT |
dn(1)(1:10) = 'chips ' |
|
./pkg/fizhi/fizhi_mnc_init.F |
271 |
FIZHI_MNC_INIT |
dn(2)(1:10) = 'Zph ' |
|
./pkg/fizhi/fizhi_mnc_init.F |
275 |
FIZHI_MNC_INIT |
CALL MNC_CW_ADD_GNAME('fizhi_chiplev',ndim,dim,dn,ib,ie,myThid) |
|
./pkg/fizhi/fizhi_mnc_init.F |
41 |
FIZHI_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/land/land_mnc_init.F |
124 |
LAND_MNC_INIT |
dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR) |
|
./pkg/land/land_mnc_init.F |
137 |
LAND_MNC_INIT |
dn(ndim)(1:1) = 'X' |
|
./pkg/land/land_mnc_init.F |
144 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Xp1' |
|
./pkg/land/land_mnc_init.F |
155 |
LAND_MNC_INIT |
dn(ndim)(1:1) = 'Y' |
|
./pkg/land/land_mnc_init.F |
162 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Yp1' |
|
./pkg/land/land_mnc_init.F |
173 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Xwh' |
|
./pkg/land/land_mnc_init.F |
181 |
LAND_MNC_INIT |
dn(ndim)(1:3) = 'Ywh' |
|
./pkg/land/land_mnc_init.F |
192 |
LAND_MNC_INIT |
dn(ndim)(1:5) = 'Zland' |
|
./pkg/land/land_mnc_init.F |
202 |
LAND_MNC_INIT |
dn(ndim)(1:1) = 'T' |
|
./pkg/land/land_mnc_init.F |
211 |
LAND_MNC_INIT |
& dim, dn, ib, ie, myThid) |
|
./pkg/land/land_mnc_init.F |
60 |
LAND_MNC_INIT |
character*(MNC_MAX_CHAR) dn(CW_MAX_LOC) |
|
./pkg/exf/exf_getffieldrec.F |
281 |
EXF_GETFFIELDREC |
call CAL_CONVDATE( nextperiod,yn,mn,dn,sn,ln,wn,mythid ) |
|
./pkg/exf/exf_getffieldrec.F |
94 |
EXF_GETFFIELDREC |
integer di,df,dp,dn |