File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_summary.F |
221 |
ECCO_COST_SUMMARY |
il = ilnblnk(tdatfile) |
./pkg/ecco/ecco_cost_summary.F |
223 |
ECCO_COST_SUMMARY |
&' Temperature data are read from: ',tdatfile(1:il) |
./pkg/ecco/ecco_cost_summary.F |
226 |
ECCO_COST_SUMMARY |
il = ilnblnk(sdatfile) |
./pkg/ecco/ecco_cost_summary.F |
228 |
ECCO_COST_SUMMARY |
&' Salinity data are read from: ',sdatfile(1:il) |
./pkg/ecco/ecco_cost_summary.F |
238 |
ECCO_COST_SUMMARY |
il = ilnblnk(mdtdatfile) |
./pkg/ecco/ecco_cost_summary.F |
240 |
ECCO_COST_SUMMARY |
& ' MDT is read from: ',mdtdatfile(1:il) |
./pkg/ecco/ecco_cost_summary.F |
260 |
ECCO_COST_SUMMARY |
il = ilnblnk(topexfile) |
./pkg/ecco/ecco_cost_summary.F |
262 |
ECCO_COST_SUMMARY |
& ' T/P data are read from: ',topexfile(1:il) |
./pkg/ecco/ecco_cost_summary.F |
281 |
ECCO_COST_SUMMARY |
il = ilnblnk(ersfile) |
./pkg/ecco/ecco_cost_summary.F |
283 |
ECCO_COST_SUMMARY |
& ' ERS data are read from: ',ersfile(1:il) |
./pkg/ecco/ecco_cost_summary.F |
302 |
ECCO_COST_SUMMARY |
il = ilnblnk(gfofile) |
./pkg/ecco/ecco_cost_summary.F |
304 |
ECCO_COST_SUMMARY |
& ' GFO data are read from: ',gfofile(1:il) |
./pkg/ecco/ecco_cost_summary.F |
46 |
ECCO_COST_SUMMARY |
integer il |
./pkg/ecco/ecco_readparms.F |
674 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_readparms.F |
676 |
ECCO_READPARMS |
& k,' ',gencost_name(k)(1:il),': ',using_gencost(k) |
./pkg/ecco/ecco_readparms.F |
689 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_readparms.F |
691 |
ECCO_READPARMS |
& k,' ',gencost_name(k)(1:il),': ',using_gencost(k) |
./pkg/ecco/ecco_readparms.F |
734 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_readparms.F |
735 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C' |
./pkg/ecco/ecco_readparms.F |
736 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_readparms.F |
748 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_readparms.F |
749 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W' |
./pkg/ecco/ecco_readparms.F |
750 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_readparms.F |
762 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_readparms.F |
763 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S' |
./pkg/ecco/ecco_readparms.F |
764 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_readparms.F |
776 |
ECCO_READPARMS |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_readparms.F |
777 |
ECCO_READPARMS |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'K' |
./pkg/ecco/ecco_readparms.F |
778 |
ECCO_READPARMS |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_readparms.F |
794 |
ECCO_READPARMS |
il=ilnblnk(gencost_barfile(k)) |
./pkg/ecco/ecco_readparms.F |
795 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_',gencost_barfile(k)(1:il) |
./pkg/ecco/ecco_readparms.F |
796 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+2) |
./pkg/ecco/ecco_readparms.F |
799 |
ECCO_READPARMS |
il=ilnblnk(gencost_barfile(k)) |
./pkg/ecco/ecco_readparms.F |
800 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_ustress',gencost_barfile(k)(9:il) |
./pkg/ecco/ecco_readparms.F |
801 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+1) |
./pkg/ecco/ecco_readparms.F |
804 |
ECCO_READPARMS |
il=ilnblnk(gencost_barfile(k)) |
./pkg/ecco/ecco_readparms.F |
805 |
ECCO_READPARMS |
WRITE(msgBuf,'(A,A)') 'm_vstress',gencost_barfile(k)(9:il) |
./pkg/ecco/ecco_readparms.F |
806 |
ECCO_READPARMS |
gencost_barfile(k)=msgBuf(1:il+1) |
./pkg/ecco/ecco_readparms.F |
828 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_readparms.F |
831 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
./pkg/ecco/ecco_readparms.F |
840 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_readparms.F |
843 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
./pkg/ecco/ecco_readparms.F |
851 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_readparms.F |
854 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
./pkg/ecco/ecco_readparms.F |
876 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_readparms.F |
879 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
./pkg/ecco/ecco_summary.F |
44 |
ECCO_SUMMARY |
integer k, k2, il, msgunit |
./pkg/ecco/ecco_summary.F |
786 |
ECCO_SUMMARY |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_summary.F |
788 |
ECCO_SUMMARY |
& ') = ',gencost_name(k)(1:il) |
./pkg/ecco/ecco_summary.F |
794 |
ECCO_SUMMARY |
il = ilnblnk(gencost_datafile(k)) |
./pkg/ecco/ecco_summary.F |
795 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' data file = ',gencost_datafile(k)(1:il) |
./pkg/ecco/ecco_summary.F |
809 |
ECCO_SUMMARY |
il = ilnblnk(gencost_barfile(k)) |
./pkg/ecco/ecco_summary.F |
810 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' model file = ',gencost_barfile(k)(1:il) |
./pkg/ecco/ecco_summary.F |
818 |
ECCO_SUMMARY |
il = ilnblnk(gencost_errfile(k)) |
./pkg/ecco/ecco_summary.F |
819 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' error file = ',gencost_errfile(k)(1:il) |
./pkg/ecco/ecco_summary.F |
822 |
ECCO_SUMMARY |
il = ilnblnk(gencost_scalefile(k)) |
./pkg/ecco/ecco_summary.F |
824 |
ECCO_SUMMARY |
& gencost_scalefile(k)(1:il) |
./pkg/ecco/ecco_summary.F |
829 |
ECCO_SUMMARY |
il = ilnblnk(gencost_preproc(k2,k)) |
./pkg/ecco/ecco_summary.F |
831 |
ECCO_SUMMARY |
& gencost_preproc(k2,k)(1:il) |
./pkg/ecco/ecco_summary.F |
835 |
ECCO_SUMMARY |
il = ilnblnk(gencost_posproc(k2,k)) |
./pkg/ecco/ecco_summary.F |
837 |
ECCO_SUMMARY |
& gencost_posproc(k2,k)(1:il) |
./pkg/exf/exf_getyearlyfieldname.F |
42 |
EXF_GETYEARLYFIELDNAME |
integer il |
./pkg/exf/exf_getyearlyfieldname.F |
53 |
EXF_GETYEARLYFIELDNAME |
il = ilnblnk( genfile ) |
./pkg/exf/exf_getyearlyfieldname.F |
57 |
EXF_GETYEARLYFIELDNAME |
write(genfileout(1:128),'( a,i2.2)') genfile(1:il),yearLoc |
./pkg/exf/exf_getyearlyfieldname.F |
59 |
EXF_GETYEARLYFIELDNAME |
write(genfileout(1:128),'(2a,i4.4)') genfile(1:il),'_',year |
./pkg/exf/exf_summary.F |
586 |
EXF_SUMMARY |
il = ILNBLNK(runoftempfile) |
./pkg/exf/exf_summary.F |
591 |
EXF_SUMMARY |
WRITE(msgBuf,'(3A)') ' >> ', runoftempfile(1:il), ' <<' |
./pkg/exf/exf_summary.F |
61 |
EXF_SUMMARY |
INTEGER il |
./pkg/grdchk/grdchk_getadxx.F |
103 |
GRDCHK_GETADXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_getadxx.F |
106 |
GRDCHK_GETADXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
111 |
GRDCHK_GETADXX |
il=ilnblnk( xx_salt_file ) |
./pkg/grdchk/grdchk_getadxx.F |
114 |
GRDCHK_GETADXX |
& yadmark, xx_salt_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
119 |
GRDCHK_GETADXX |
il=ilnblnk( xx_uvel_file ) |
./pkg/grdchk/grdchk_getadxx.F |
122 |
GRDCHK_GETADXX |
& yadmark, xx_uvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
127 |
GRDCHK_GETADXX |
il=ilnblnk( xx_vvel_file ) |
./pkg/grdchk/grdchk_getadxx.F |
130 |
GRDCHK_GETADXX |
& yadmark, xx_vvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
135 |
GRDCHK_GETADXX |
il=ilnblnk( xx_hflux_file ) |
./pkg/grdchk/grdchk_getadxx.F |
138 |
GRDCHK_GETADXX |
& yadmark, xx_hflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
143 |
GRDCHK_GETADXX |
il=ilnblnk( xx_sflux_file ) |
./pkg/grdchk/grdchk_getadxx.F |
146 |
GRDCHK_GETADXX |
& yadmark, xx_sflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
151 |
GRDCHK_GETADXX |
il=ilnblnk( xx_tauu_file ) |
./pkg/grdchk/grdchk_getadxx.F |
154 |
GRDCHK_GETADXX |
& yadmark, xx_tauu_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
159 |
GRDCHK_GETADXX |
il=ilnblnk( xx_tauv_file ) |
./pkg/grdchk/grdchk_getadxx.F |
162 |
GRDCHK_GETADXX |
& yadmark, xx_tauv_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
167 |
GRDCHK_GETADXX |
il=ilnblnk( xx_atemp_file ) |
./pkg/grdchk/grdchk_getadxx.F |
170 |
GRDCHK_GETADXX |
& yadmark, xx_atemp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
175 |
GRDCHK_GETADXX |
il=ilnblnk( xx_aqh_file ) |
./pkg/grdchk/grdchk_getadxx.F |
178 |
GRDCHK_GETADXX |
& yadmark, xx_aqh_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
183 |
GRDCHK_GETADXX |
il=ilnblnk( xx_uwind_file ) |
./pkg/grdchk/grdchk_getadxx.F |
186 |
GRDCHK_GETADXX |
& yadmark, xx_uwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
191 |
GRDCHK_GETADXX |
il=ilnblnk( xx_vwind_file ) |
./pkg/grdchk/grdchk_getadxx.F |
194 |
GRDCHK_GETADXX |
& yadmark, xx_vwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
201 |
GRDCHK_GETADXX |
il=ilnblnk( xx_obcsn_file ) |
./pkg/grdchk/grdchk_getadxx.F |
204 |
GRDCHK_GETADXX |
& yadmark, xx_obcsn_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
209 |
GRDCHK_GETADXX |
il=ilnblnk( xx_obcss_file ) |
./pkg/grdchk/grdchk_getadxx.F |
212 |
GRDCHK_GETADXX |
& yadmark, xx_obcss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
217 |
GRDCHK_GETADXX |
il=ilnblnk( xx_obcsw_file ) |
./pkg/grdchk/grdchk_getadxx.F |
220 |
GRDCHK_GETADXX |
& yadmark, xx_obcsw_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
225 |
GRDCHK_GETADXX |
il=ilnblnk( xx_obcse_file ) |
./pkg/grdchk/grdchk_getadxx.F |
228 |
GRDCHK_GETADXX |
& yadmark, xx_obcse_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
235 |
GRDCHK_GETADXX |
il=ilnblnk( xx_diffkr_file ) |
./pkg/grdchk/grdchk_getadxx.F |
238 |
GRDCHK_GETADXX |
& yadmark, xx_diffkr_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
243 |
GRDCHK_GETADXX |
il=ilnblnk( xx_kapgm_file ) |
./pkg/grdchk/grdchk_getadxx.F |
246 |
GRDCHK_GETADXX |
& yadmark, xx_kapgm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
251 |
GRDCHK_GETADXX |
il=ilnblnk( xx_kapredi_file ) |
./pkg/grdchk/grdchk_getadxx.F |
254 |
GRDCHK_GETADXX |
& yadmark, xx_kapredi_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
259 |
GRDCHK_GETADXX |
il=ilnblnk( xx_tr1_file ) |
./pkg/grdchk/grdchk_getadxx.F |
262 |
GRDCHK_GETADXX |
& yadmark, xx_tr1_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
267 |
GRDCHK_GETADXX |
il=ilnblnk( xx_sst_file ) |
./pkg/grdchk/grdchk_getadxx.F |
270 |
GRDCHK_GETADXX |
& yadmark, xx_sst_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
275 |
GRDCHK_GETADXX |
il=ilnblnk( xx_sss_file ) |
./pkg/grdchk/grdchk_getadxx.F |
278 |
GRDCHK_GETADXX |
& yadmark, xx_sss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
283 |
GRDCHK_GETADXX |
il=ilnblnk( xx_depth_file ) |
./pkg/grdchk/grdchk_getadxx.F |
286 |
GRDCHK_GETADXX |
& yadmark, xx_depth_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
291 |
GRDCHK_GETADXX |
il=ilnblnk( xx_efluxy_file ) |
./pkg/grdchk/grdchk_getadxx.F |
294 |
GRDCHK_GETADXX |
& yadmark, xx_efluxy_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
299 |
GRDCHK_GETADXX |
il=ilnblnk( xx_efluxp_file ) |
./pkg/grdchk/grdchk_getadxx.F |
302 |
GRDCHK_GETADXX |
& yadmark, xx_efluxp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
307 |
GRDCHK_GETADXX |
il=ilnblnk( xx_bottomdrag_file ) |
./pkg/grdchk/grdchk_getadxx.F |
310 |
GRDCHK_GETADXX |
& yadmark, xx_bottomdrag_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
315 |
GRDCHK_GETADXX |
il=ilnblnk( xx_hfluxm_file ) |
./pkg/grdchk/grdchk_getadxx.F |
318 |
GRDCHK_GETADXX |
& yadmark, xx_hfluxm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
323 |
GRDCHK_GETADXX |
il=ilnblnk( xx_gen2d_file ) |
./pkg/grdchk/grdchk_getadxx.F |
326 |
GRDCHK_GETADXX |
& yadmark, xx_gen2d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
331 |
GRDCHK_GETADXX |
il=ilnblnk( xx_gen3d_file ) |
./pkg/grdchk/grdchk_getadxx.F |
334 |
GRDCHK_GETADXX |
& yadmark, xx_gen3d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
339 |
GRDCHK_GETADXX |
il=ilnblnk( xx_precip_file ) |
./pkg/grdchk/grdchk_getadxx.F |
342 |
GRDCHK_GETADXX |
& yadmark, xx_precip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
347 |
GRDCHK_GETADXX |
il=ilnblnk( xx_swflux_file ) |
./pkg/grdchk/grdchk_getadxx.F |
350 |
GRDCHK_GETADXX |
& yadmark, xx_swflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
355 |
GRDCHK_GETADXX |
il=ilnblnk( xx_swdown_file ) |
./pkg/grdchk/grdchk_getadxx.F |
358 |
GRDCHK_GETADXX |
& yadmark, xx_swdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
363 |
GRDCHK_GETADXX |
il=ilnblnk( xx_lwflux_file ) |
./pkg/grdchk/grdchk_getadxx.F |
366 |
GRDCHK_GETADXX |
& yadmark, xx_lwflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
371 |
GRDCHK_GETADXX |
il=ilnblnk( xx_lwdown_file ) |
./pkg/grdchk/grdchk_getadxx.F |
374 |
GRDCHK_GETADXX |
& yadmark, xx_lwdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
379 |
GRDCHK_GETADXX |
il=ilnblnk( xx_evap_file ) |
./pkg/grdchk/grdchk_getadxx.F |
382 |
GRDCHK_GETADXX |
& yadmark, xx_evap_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
387 |
GRDCHK_GETADXX |
il=ilnblnk( xx_snowprecip_file ) |
./pkg/grdchk/grdchk_getadxx.F |
390 |
GRDCHK_GETADXX |
& yadmark, xx_snowprecip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
395 |
GRDCHK_GETADXX |
il=ilnblnk( xx_apressure_file ) |
./pkg/grdchk/grdchk_getadxx.F |
398 |
GRDCHK_GETADXX |
& yadmark, xx_apressure_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
403 |
GRDCHK_GETADXX |
il=ilnblnk( xx_runoff_file ) |
./pkg/grdchk/grdchk_getadxx.F |
406 |
GRDCHK_GETADXX |
& yadmark, xx_runoff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
411 |
GRDCHK_GETADXX |
il=ilnblnk( xx_siarea_file ) |
./pkg/grdchk/grdchk_getadxx.F |
414 |
GRDCHK_GETADXX |
& yadmark, xx_siarea_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
419 |
GRDCHK_GETADXX |
il=ilnblnk( xx_siheff_file ) |
./pkg/grdchk/grdchk_getadxx.F |
422 |
GRDCHK_GETADXX |
& yadmark, xx_siheff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
427 |
GRDCHK_GETADXX |
il=ilnblnk( xx_sihsnow_file ) |
./pkg/grdchk/grdchk_getadxx.F |
430 |
GRDCHK_GETADXX |
& yadmark, xx_sihsnow_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
435 |
GRDCHK_GETADXX |
il=ilnblnk( xx_shifwflx_file ) |
./pkg/grdchk/grdchk_getadxx.F |
438 |
GRDCHK_GETADXX |
& yadmark, xx_shifwflx_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
443 |
GRDCHK_GETADXX |
il=ilnblnk( xx_etan_file ) |
./pkg/grdchk/grdchk_getadxx.F |
446 |
GRDCHK_GETADXX |
& yadmark, xx_etan_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
456 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
./pkg/grdchk/grdchk_getadxx.F |
459 |
GRDCHK_GETADXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
469 |
GRDCHK_GETADXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
./pkg/grdchk/grdchk_getadxx.F |
472 |
GRDCHK_GETADXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
482 |
GRDCHK_GETADXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
./pkg/grdchk/grdchk_getadxx.F |
485 |
GRDCHK_GETADXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getadxx.F |
63 |
GRDCHK_GETADXX |
integer il |
./pkg/grdchk/grdchk_getxx.F |
108 |
GRDCHK_GETXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_getxx.F |
111 |
GRDCHK_GETXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
114 |
GRDCHK_GETXX |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
120 |
GRDCHK_GETXX |
il=ilnblnk( xx_salt_file ) |
./pkg/grdchk/grdchk_getxx.F |
123 |
GRDCHK_GETXX |
& yadmark, xx_salt_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
126 |
GRDCHK_GETXX |
& xx_salt_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
132 |
GRDCHK_GETXX |
il=ilnblnk( xx_uvel_file ) |
./pkg/grdchk/grdchk_getxx.F |
135 |
GRDCHK_GETXX |
& yadmark, xx_uvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
138 |
GRDCHK_GETXX |
& xx_uvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
144 |
GRDCHK_GETXX |
il=ilnblnk( xx_vvel_file ) |
./pkg/grdchk/grdchk_getxx.F |
147 |
GRDCHK_GETXX |
& yadmark, xx_vvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
150 |
GRDCHK_GETXX |
& xx_vvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
156 |
GRDCHK_GETXX |
il=ilnblnk( xx_hflux_file ) |
./pkg/grdchk/grdchk_getxx.F |
159 |
GRDCHK_GETXX |
& yadmark, xx_hflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
162 |
GRDCHK_GETXX |
& xx_hflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
168 |
GRDCHK_GETXX |
il=ilnblnk( xx_sflux_file ) |
./pkg/grdchk/grdchk_getxx.F |
171 |
GRDCHK_GETXX |
& yadmark, xx_sflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
174 |
GRDCHK_GETXX |
& xx_sflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
180 |
GRDCHK_GETXX |
il=ilnblnk( xx_tauu_file ) |
./pkg/grdchk/grdchk_getxx.F |
183 |
GRDCHK_GETXX |
& yadmark, xx_tauu_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
186 |
GRDCHK_GETXX |
& xx_tauu_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
192 |
GRDCHK_GETXX |
il=ilnblnk( xx_tauv_file ) |
./pkg/grdchk/grdchk_getxx.F |
195 |
GRDCHK_GETXX |
& yadmark, xx_tauv_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
198 |
GRDCHK_GETXX |
& xx_tauv_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
204 |
GRDCHK_GETXX |
il=ilnblnk( xx_atemp_file ) |
./pkg/grdchk/grdchk_getxx.F |
207 |
GRDCHK_GETXX |
& yadmark, xx_atemp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
210 |
GRDCHK_GETXX |
& xx_atemp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
216 |
GRDCHK_GETXX |
il=ilnblnk( xx_aqh_file ) |
./pkg/grdchk/grdchk_getxx.F |
219 |
GRDCHK_GETXX |
& yadmark, xx_aqh_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
222 |
GRDCHK_GETXX |
& xx_aqh_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
228 |
GRDCHK_GETXX |
il=ilnblnk( xx_uwind_file ) |
./pkg/grdchk/grdchk_getxx.F |
231 |
GRDCHK_GETXX |
& yadmark, xx_uwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
234 |
GRDCHK_GETXX |
& xx_uwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
240 |
GRDCHK_GETXX |
il=ilnblnk( xx_vwind_file ) |
./pkg/grdchk/grdchk_getxx.F |
243 |
GRDCHK_GETXX |
& yadmark, xx_vwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
246 |
GRDCHK_GETXX |
& xx_vwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
254 |
GRDCHK_GETXX |
il=ilnblnk( xx_obcsn_file ) |
./pkg/grdchk/grdchk_getxx.F |
257 |
GRDCHK_GETXX |
& yadmark, xx_obcsn_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
260 |
GRDCHK_GETXX |
& xx_obcsn_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
266 |
GRDCHK_GETXX |
il=ilnblnk( xx_obcss_file ) |
./pkg/grdchk/grdchk_getxx.F |
269 |
GRDCHK_GETXX |
& yadmark, xx_obcss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
272 |
GRDCHK_GETXX |
& xx_obcss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
278 |
GRDCHK_GETXX |
il=ilnblnk( xx_obcsw_file ) |
./pkg/grdchk/grdchk_getxx.F |
281 |
GRDCHK_GETXX |
& yadmark, xx_obcsw_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
284 |
GRDCHK_GETXX |
& xx_obcsw_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
290 |
GRDCHK_GETXX |
il=ilnblnk( xx_obcse_file ) |
./pkg/grdchk/grdchk_getxx.F |
293 |
GRDCHK_GETXX |
& yadmark, xx_obcse_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
296 |
GRDCHK_GETXX |
& xx_obcse_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
304 |
GRDCHK_GETXX |
il=ilnblnk( xx_diffkr_file ) |
./pkg/grdchk/grdchk_getxx.F |
307 |
GRDCHK_GETXX |
& yadmark, xx_diffkr_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
310 |
GRDCHK_GETXX |
& xx_diffkr_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
316 |
GRDCHK_GETXX |
il=ilnblnk( xx_kapgm_file ) |
./pkg/grdchk/grdchk_getxx.F |
319 |
GRDCHK_GETXX |
& yadmark, xx_kapgm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
322 |
GRDCHK_GETXX |
& xx_kapgm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
328 |
GRDCHK_GETXX |
il=ilnblnk( xx_kapredi_file ) |
./pkg/grdchk/grdchk_getxx.F |
331 |
GRDCHK_GETXX |
& yadmark, xx_kapredi_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
334 |
GRDCHK_GETXX |
& xx_kapredi_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
340 |
GRDCHK_GETXX |
il=ilnblnk( xx_tr1_file ) |
./pkg/grdchk/grdchk_getxx.F |
343 |
GRDCHK_GETXX |
& yadmark, xx_tr1_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
346 |
GRDCHK_GETXX |
& xx_tr1_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
352 |
GRDCHK_GETXX |
il=ilnblnk( xx_sst_file ) |
./pkg/grdchk/grdchk_getxx.F |
355 |
GRDCHK_GETXX |
& yadmark, xx_sst_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
358 |
GRDCHK_GETXX |
& xx_sst_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
364 |
GRDCHK_GETXX |
il=ilnblnk( xx_sss_file ) |
./pkg/grdchk/grdchk_getxx.F |
367 |
GRDCHK_GETXX |
& yadmark, xx_sss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
370 |
GRDCHK_GETXX |
& xx_sss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
376 |
GRDCHK_GETXX |
il=ilnblnk( xx_depth_file ) |
./pkg/grdchk/grdchk_getxx.F |
379 |
GRDCHK_GETXX |
& yadmark, xx_depth_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
382 |
GRDCHK_GETXX |
& xx_depth_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
388 |
GRDCHK_GETXX |
il=ilnblnk( xx_efluxy_file ) |
./pkg/grdchk/grdchk_getxx.F |
392 |
GRDCHK_GETXX |
& yadmark, xx_efluxy_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
395 |
GRDCHK_GETXX |
& xx_efluxy_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
401 |
GRDCHK_GETXX |
il=ilnblnk( xx_efluxp_file ) |
./pkg/grdchk/grdchk_getxx.F |
405 |
GRDCHK_GETXX |
& yadmark, xx_efluxp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
408 |
GRDCHK_GETXX |
& xx_efluxp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
414 |
GRDCHK_GETXX |
il=ilnblnk( xx_bottomdrag_file ) |
./pkg/grdchk/grdchk_getxx.F |
417 |
GRDCHK_GETXX |
& yadmark, xx_bottomdrag_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
420 |
GRDCHK_GETXX |
& xx_bottomdrag_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
426 |
GRDCHK_GETXX |
il=ilnblnk( xx_hfluxm_file ) |
./pkg/grdchk/grdchk_getxx.F |
429 |
GRDCHK_GETXX |
& yadmark, xx_hfluxm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
432 |
GRDCHK_GETXX |
& xx_hfluxm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
438 |
GRDCHK_GETXX |
il=ilnblnk( xx_gen2d_file ) |
./pkg/grdchk/grdchk_getxx.F |
441 |
GRDCHK_GETXX |
& yadmark, xx_gen2d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
444 |
GRDCHK_GETXX |
& xx_gen2d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
450 |
GRDCHK_GETXX |
il=ilnblnk( xx_gen3d_file ) |
./pkg/grdchk/grdchk_getxx.F |
453 |
GRDCHK_GETXX |
& yadmark, xx_gen3d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
456 |
GRDCHK_GETXX |
& xx_gen3d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
462 |
GRDCHK_GETXX |
il=ilnblnk( xx_precip_file ) |
./pkg/grdchk/grdchk_getxx.F |
465 |
GRDCHK_GETXX |
& yadmark, xx_precip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
468 |
GRDCHK_GETXX |
& xx_precip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
474 |
GRDCHK_GETXX |
il=ilnblnk( xx_swflux_file ) |
./pkg/grdchk/grdchk_getxx.F |
477 |
GRDCHK_GETXX |
& yadmark, xx_swflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
480 |
GRDCHK_GETXX |
& xx_swflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
486 |
GRDCHK_GETXX |
il=ilnblnk( xx_swdown_file ) |
./pkg/grdchk/grdchk_getxx.F |
489 |
GRDCHK_GETXX |
& yadmark, xx_swdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
492 |
GRDCHK_GETXX |
& xx_swdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
498 |
GRDCHK_GETXX |
il=ilnblnk( xx_lwflux_file ) |
./pkg/grdchk/grdchk_getxx.F |
501 |
GRDCHK_GETXX |
& yadmark, xx_lwflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
504 |
GRDCHK_GETXX |
& xx_lwflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
510 |
GRDCHK_GETXX |
il=ilnblnk( xx_lwdown_file ) |
./pkg/grdchk/grdchk_getxx.F |
513 |
GRDCHK_GETXX |
& yadmark, xx_lwdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
516 |
GRDCHK_GETXX |
& xx_lwdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
522 |
GRDCHK_GETXX |
il=ilnblnk( xx_evap_file ) |
./pkg/grdchk/grdchk_getxx.F |
525 |
GRDCHK_GETXX |
& yadmark, xx_evap_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
528 |
GRDCHK_GETXX |
& xx_evap_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
534 |
GRDCHK_GETXX |
il=ilnblnk( xx_snowprecip_file ) |
./pkg/grdchk/grdchk_getxx.F |
537 |
GRDCHK_GETXX |
& yadmark, xx_snowprecip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
540 |
GRDCHK_GETXX |
& xx_snowprecip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
546 |
GRDCHK_GETXX |
il=ilnblnk( xx_apressure_file ) |
./pkg/grdchk/grdchk_getxx.F |
549 |
GRDCHK_GETXX |
& yadmark, xx_apressure_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
552 |
GRDCHK_GETXX |
& xx_apressure_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
558 |
GRDCHK_GETXX |
il=ilnblnk( xx_runoff_file ) |
./pkg/grdchk/grdchk_getxx.F |
561 |
GRDCHK_GETXX |
& yadmark, xx_runoff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
564 |
GRDCHK_GETXX |
& xx_runoff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
570 |
GRDCHK_GETXX |
il=ilnblnk( xx_siarea_file ) |
./pkg/grdchk/grdchk_getxx.F |
573 |
GRDCHK_GETXX |
& yadmark, xx_siarea_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
576 |
GRDCHK_GETXX |
& xx_siarea_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
582 |
GRDCHK_GETXX |
il=ilnblnk( xx_siheff_file ) |
./pkg/grdchk/grdchk_getxx.F |
585 |
GRDCHK_GETXX |
& yadmark, xx_siheff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
588 |
GRDCHK_GETXX |
& xx_siheff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
594 |
GRDCHK_GETXX |
il=ilnblnk( xx_sihsnow_file ) |
./pkg/grdchk/grdchk_getxx.F |
597 |
GRDCHK_GETXX |
& yadmark, xx_sihsnow_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
600 |
GRDCHK_GETXX |
& xx_sihsnow_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
606 |
GRDCHK_GETXX |
il=ilnblnk( xx_shifwflx_file ) |
./pkg/grdchk/grdchk_getxx.F |
609 |
GRDCHK_GETXX |
& yadmark, xx_shifwflx_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
612 |
GRDCHK_GETXX |
& xx_shifwflx_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
618 |
GRDCHK_GETXX |
il=ilnblnk( xx_etan_file ) |
./pkg/grdchk/grdchk_getxx.F |
621 |
GRDCHK_GETXX |
& yadmark, xx_etan_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
624 |
GRDCHK_GETXX |
& xx_etan_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
635 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
./pkg/grdchk/grdchk_getxx.F |
638 |
GRDCHK_GETXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
641 |
GRDCHK_GETXX |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
652 |
GRDCHK_GETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
./pkg/grdchk/grdchk_getxx.F |
655 |
GRDCHK_GETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
658 |
GRDCHK_GETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
669 |
GRDCHK_GETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
./pkg/grdchk/grdchk_getxx.F |
672 |
GRDCHK_GETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
675 |
GRDCHK_GETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_getxx.F |
68 |
GRDCHK_GETXX |
integer il |
./pkg/grdchk/grdchk_readparms.F |
51 |
GRDCHK_READPARMS |
integer il |
./pkg/grdchk/grdchk_setxx.F |
105 |
GRDCHK_SETXX |
il=ilnblnk( xx_theta_file ) |
./pkg/grdchk/grdchk_setxx.F |
108 |
GRDCHK_SETXX |
& yadmark, xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
111 |
GRDCHK_SETXX |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
117 |
GRDCHK_SETXX |
il=ilnblnk( xx_salt_file ) |
./pkg/grdchk/grdchk_setxx.F |
120 |
GRDCHK_SETXX |
& yadmark, xx_salt_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
123 |
GRDCHK_SETXX |
& xx_salt_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
129 |
GRDCHK_SETXX |
il=ilnblnk( xx_uvel_file ) |
./pkg/grdchk/grdchk_setxx.F |
132 |
GRDCHK_SETXX |
& yadmark, xx_uvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
135 |
GRDCHK_SETXX |
& xx_uvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
141 |
GRDCHK_SETXX |
il=ilnblnk( xx_vvel_file ) |
./pkg/grdchk/grdchk_setxx.F |
144 |
GRDCHK_SETXX |
& yadmark, xx_vvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
147 |
GRDCHK_SETXX |
& xx_vvel_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
153 |
GRDCHK_SETXX |
il=ilnblnk( xx_hflux_file ) |
./pkg/grdchk/grdchk_setxx.F |
156 |
GRDCHK_SETXX |
& yadmark, xx_hflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
159 |
GRDCHK_SETXX |
& xx_hflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
165 |
GRDCHK_SETXX |
il=ilnblnk( xx_sflux_file ) |
./pkg/grdchk/grdchk_setxx.F |
168 |
GRDCHK_SETXX |
& yadmark, xx_sflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
171 |
GRDCHK_SETXX |
& xx_sflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
177 |
GRDCHK_SETXX |
il=ilnblnk( xx_tauu_file ) |
./pkg/grdchk/grdchk_setxx.F |
180 |
GRDCHK_SETXX |
& yadmark, xx_tauu_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
183 |
GRDCHK_SETXX |
& xx_tauu_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
189 |
GRDCHK_SETXX |
il=ilnblnk( xx_tauv_file ) |
./pkg/grdchk/grdchk_setxx.F |
192 |
GRDCHK_SETXX |
& yadmark, xx_tauv_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
195 |
GRDCHK_SETXX |
& xx_tauv_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
201 |
GRDCHK_SETXX |
il=ilnblnk( xx_atemp_file ) |
./pkg/grdchk/grdchk_setxx.F |
204 |
GRDCHK_SETXX |
& yadmark, xx_atemp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
207 |
GRDCHK_SETXX |
& xx_atemp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
213 |
GRDCHK_SETXX |
il=ilnblnk( xx_aqh_file ) |
./pkg/grdchk/grdchk_setxx.F |
216 |
GRDCHK_SETXX |
& yadmark, xx_aqh_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
219 |
GRDCHK_SETXX |
& xx_aqh_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
225 |
GRDCHK_SETXX |
il=ilnblnk( xx_uwind_file ) |
./pkg/grdchk/grdchk_setxx.F |
228 |
GRDCHK_SETXX |
& yadmark, xx_uwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
231 |
GRDCHK_SETXX |
& xx_uwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
237 |
GRDCHK_SETXX |
il=ilnblnk( xx_vwind_file ) |
./pkg/grdchk/grdchk_setxx.F |
240 |
GRDCHK_SETXX |
& yadmark, xx_vwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
243 |
GRDCHK_SETXX |
& xx_vwind_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
251 |
GRDCHK_SETXX |
il=ilnblnk( xx_obcsn_file ) |
./pkg/grdchk/grdchk_setxx.F |
254 |
GRDCHK_SETXX |
& yadmark, xx_obcsn_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
257 |
GRDCHK_SETXX |
& xx_obcsn_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
263 |
GRDCHK_SETXX |
il=ilnblnk( xx_obcss_file ) |
./pkg/grdchk/grdchk_setxx.F |
266 |
GRDCHK_SETXX |
& yadmark, xx_obcss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
269 |
GRDCHK_SETXX |
& xx_obcss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
276 |
GRDCHK_SETXX |
il=ilnblnk( xx_obcsw_file ) |
./pkg/grdchk/grdchk_setxx.F |
279 |
GRDCHK_SETXX |
& yadmark, xx_obcsw_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
282 |
GRDCHK_SETXX |
& xx_obcsw_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
289 |
GRDCHK_SETXX |
il=ilnblnk( xx_obcse_file ) |
./pkg/grdchk/grdchk_setxx.F |
292 |
GRDCHK_SETXX |
& yadmark, xx_obcse_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
295 |
GRDCHK_SETXX |
& xx_obcse_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
304 |
GRDCHK_SETXX |
il=ilnblnk( xx_diffkr_file ) |
./pkg/grdchk/grdchk_setxx.F |
307 |
GRDCHK_SETXX |
& yadmark, xx_diffkr_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
310 |
GRDCHK_SETXX |
& xx_diffkr_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
317 |
GRDCHK_SETXX |
il=ilnblnk( xx_kapgm_file ) |
./pkg/grdchk/grdchk_setxx.F |
320 |
GRDCHK_SETXX |
& yadmark, xx_kapgm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
323 |
GRDCHK_SETXX |
& xx_kapgm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
330 |
GRDCHK_SETXX |
il=ilnblnk( xx_kapredi_file ) |
./pkg/grdchk/grdchk_setxx.F |
333 |
GRDCHK_SETXX |
& yadmark, xx_kapredi_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
336 |
GRDCHK_SETXX |
& xx_kapredi_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
343 |
GRDCHK_SETXX |
il=ilnblnk( xx_tr1_file ) |
./pkg/grdchk/grdchk_setxx.F |
346 |
GRDCHK_SETXX |
& yadmark, xx_tr1_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
349 |
GRDCHK_SETXX |
& xx_tr1_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
356 |
GRDCHK_SETXX |
il=ilnblnk( xx_sst_file ) |
./pkg/grdchk/grdchk_setxx.F |
359 |
GRDCHK_SETXX |
& yadmark, xx_sst_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
362 |
GRDCHK_SETXX |
& xx_sst_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
368 |
GRDCHK_SETXX |
il=ilnblnk( xx_sss_file ) |
./pkg/grdchk/grdchk_setxx.F |
371 |
GRDCHK_SETXX |
& yadmark, xx_sss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
374 |
GRDCHK_SETXX |
& xx_sss_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
380 |
GRDCHK_SETXX |
il=ilnblnk( xx_depth_file ) |
./pkg/grdchk/grdchk_setxx.F |
383 |
GRDCHK_SETXX |
& yadmark, xx_depth_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
386 |
GRDCHK_SETXX |
& xx_depth_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
392 |
GRDCHK_SETXX |
il=ilnblnk( xx_efluxy_file ) |
./pkg/grdchk/grdchk_setxx.F |
396 |
GRDCHK_SETXX |
& yadmark, xx_efluxy_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
399 |
GRDCHK_SETXX |
& xx_efluxy_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
405 |
GRDCHK_SETXX |
il=ilnblnk( xx_efluxp_file ) |
./pkg/grdchk/grdchk_setxx.F |
409 |
GRDCHK_SETXX |
& yadmark, xx_efluxp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
412 |
GRDCHK_SETXX |
& xx_efluxp_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
418 |
GRDCHK_SETXX |
il=ilnblnk( xx_bottomdrag_file ) |
./pkg/grdchk/grdchk_setxx.F |
421 |
GRDCHK_SETXX |
& yadmark, xx_bottomdrag_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
424 |
GRDCHK_SETXX |
& xx_bottomdrag_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
430 |
GRDCHK_SETXX |
il=ilnblnk( xx_hfluxm_file ) |
./pkg/grdchk/grdchk_setxx.F |
433 |
GRDCHK_SETXX |
& yadmark, xx_hfluxm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
436 |
GRDCHK_SETXX |
& xx_hfluxm_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
442 |
GRDCHK_SETXX |
il=ilnblnk( xx_gen2d_file ) |
./pkg/grdchk/grdchk_setxx.F |
445 |
GRDCHK_SETXX |
& yadmark, xx_gen2d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
448 |
GRDCHK_SETXX |
& xx_gen2d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
454 |
GRDCHK_SETXX |
il=ilnblnk( xx_gen3d_file ) |
./pkg/grdchk/grdchk_setxx.F |
457 |
GRDCHK_SETXX |
& yadmark, xx_gen3d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
460 |
GRDCHK_SETXX |
& xx_gen3d_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
467 |
GRDCHK_SETXX |
il=ilnblnk( xx_precip_file ) |
./pkg/grdchk/grdchk_setxx.F |
470 |
GRDCHK_SETXX |
& yadmark, xx_precip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
473 |
GRDCHK_SETXX |
& xx_precip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
479 |
GRDCHK_SETXX |
il=ilnblnk( xx_swflux_file ) |
./pkg/grdchk/grdchk_setxx.F |
482 |
GRDCHK_SETXX |
& yadmark, xx_swflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
485 |
GRDCHK_SETXX |
& xx_swflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
491 |
GRDCHK_SETXX |
il=ilnblnk( xx_swdown_file ) |
./pkg/grdchk/grdchk_setxx.F |
494 |
GRDCHK_SETXX |
& yadmark, xx_swdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
497 |
GRDCHK_SETXX |
& xx_swdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
503 |
GRDCHK_SETXX |
il=ilnblnk( xx_lwflux_file ) |
./pkg/grdchk/grdchk_setxx.F |
506 |
GRDCHK_SETXX |
& yadmark, xx_lwflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
509 |
GRDCHK_SETXX |
& xx_lwflux_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
515 |
GRDCHK_SETXX |
il=ilnblnk( xx_lwdown_file ) |
./pkg/grdchk/grdchk_setxx.F |
518 |
GRDCHK_SETXX |
& yadmark, xx_lwdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
521 |
GRDCHK_SETXX |
& xx_lwdown_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
527 |
GRDCHK_SETXX |
il=ilnblnk( xx_evap_file ) |
./pkg/grdchk/grdchk_setxx.F |
530 |
GRDCHK_SETXX |
& yadmark, xx_evap_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
533 |
GRDCHK_SETXX |
& xx_evap_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
539 |
GRDCHK_SETXX |
il=ilnblnk( xx_snowprecip_file ) |
./pkg/grdchk/grdchk_setxx.F |
542 |
GRDCHK_SETXX |
& yadmark, xx_snowprecip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
545 |
GRDCHK_SETXX |
& xx_snowprecip_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
551 |
GRDCHK_SETXX |
il=ilnblnk( xx_apressure_file ) |
./pkg/grdchk/grdchk_setxx.F |
554 |
GRDCHK_SETXX |
& yadmark, xx_apressure_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
557 |
GRDCHK_SETXX |
& xx_apressure_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
563 |
GRDCHK_SETXX |
il=ilnblnk( xx_runoff_file ) |
./pkg/grdchk/grdchk_setxx.F |
566 |
GRDCHK_SETXX |
& yadmark, xx_runoff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
569 |
GRDCHK_SETXX |
& xx_runoff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
575 |
GRDCHK_SETXX |
il=ilnblnk( xx_siarea_file ) |
./pkg/grdchk/grdchk_setxx.F |
578 |
GRDCHK_SETXX |
& yadmark, xx_siarea_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
581 |
GRDCHK_SETXX |
& xx_siarea_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
587 |
GRDCHK_SETXX |
il=ilnblnk( xx_siheff_file ) |
./pkg/grdchk/grdchk_setxx.F |
590 |
GRDCHK_SETXX |
& yadmark, xx_siheff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
593 |
GRDCHK_SETXX |
& xx_siheff_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
599 |
GRDCHK_SETXX |
il=ilnblnk( xx_sihsnow_file ) |
./pkg/grdchk/grdchk_setxx.F |
602 |
GRDCHK_SETXX |
& yadmark, xx_sihsnow_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
605 |
GRDCHK_SETXX |
& xx_sihsnow_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
611 |
GRDCHK_SETXX |
il=ilnblnk( xx_shifwflx_file ) |
./pkg/grdchk/grdchk_setxx.F |
614 |
GRDCHK_SETXX |
& yadmark, xx_shifwflx_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
617 |
GRDCHK_SETXX |
& xx_shifwflx_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
623 |
GRDCHK_SETXX |
il=ilnblnk( xx_etan_file ) |
./pkg/grdchk/grdchk_setxx.F |
626 |
GRDCHK_SETXX |
& yadmark, xx_etan_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
629 |
GRDCHK_SETXX |
& xx_etan_file(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
640 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr2d_file(iarr) ) |
./pkg/grdchk/grdchk_setxx.F |
643 |
GRDCHK_SETXX |
& yadmark, xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
646 |
GRDCHK_SETXX |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
657 |
GRDCHK_SETXX |
il=ilnblnk( xx_genarr3d_file(iarr) ) |
./pkg/grdchk/grdchk_setxx.F |
660 |
GRDCHK_SETXX |
& yadmark, xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
663 |
GRDCHK_SETXX |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
66 |
GRDCHK_SETXX |
integer il |
./pkg/grdchk/grdchk_setxx.F |
674 |
GRDCHK_SETXX |
il=ilnblnk( xx_gentim2d_file(iarr) ) |
./pkg/grdchk/grdchk_setxx.F |
677 |
GRDCHK_SETXX |
& yadmark, xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
./pkg/grdchk/grdchk_setxx.F |
680 |
GRDCHK_SETXX |
& xx_gentim2d_file(iarr)(1:il),'.',optimcycle |
./pkg/openad/the_model_main.F |
312 |
THE_MODEL_MAIN |
INTEGER ik, il |
./pkg/openad/the_model_main.F |
493 |
THE_MODEL_MAIN |
il=ilnblnk( xx_theta_file ) |
./pkg/openad/the_model_main.F |
495 |
THE_MODEL_MAIN |
& 'ad',xx_theta_file(1:il),'.' |
./pkg/openad/the_model_main.F |
500 |
THE_MODEL_MAIN |
il=ilnblnk( xx_salt_file ) |
./pkg/openad/the_model_main.F |
502 |
THE_MODEL_MAIN |
& 'ad',xx_salt_file(1:il),'.' |
./pkg/openad/the_model_main.F |
507 |
THE_MODEL_MAIN |
il=ilnblnk( xx_diffkr_file ) |
./pkg/openad/the_model_main.F |
509 |
THE_MODEL_MAIN |
& 'ad',xx_diffkr_file(1:il),'.' |
./pkg/openad/the_model_main.F |
516 |
THE_MODEL_MAIN |
il=ilnblnk( xx_tauu_file ) |
./pkg/openad/the_model_main.F |
518 |
THE_MODEL_MAIN |
& 'ad',xx_tauu_file(1:il),'.' |
./pkg/openad/the_model_main.F |
523 |
THE_MODEL_MAIN |
il=ilnblnk( xx_tauv_file ) |
./pkg/openad/the_model_main.F |
525 |
THE_MODEL_MAIN |
& 'ad',xx_tauv_file(1:il),'.' |
./pkg/openad/the_model_main.F |
530 |
THE_MODEL_MAIN |
il=ilnblnk( xx_hflux_file ) |
./pkg/openad/the_model_main.F |
532 |
THE_MODEL_MAIN |
& 'ad',xx_hflux_file(1:il),'.' |
./pkg/openad/the_model_main.F |
537 |
THE_MODEL_MAIN |
il=ilnblnk( xx_sflux_file ) |
./pkg/openad/the_model_main.F |
539 |
THE_MODEL_MAIN |
& 'ad',xx_sflux_file(1:il),'.' |
./pkg/openad/the_model_main.F |
544 |
THE_MODEL_MAIN |
il=ilnblnk( xx_hfluxm_file ) |
./pkg/openad/the_model_main.F |
546 |
THE_MODEL_MAIN |
& 'ad',xx_hfluxm_file(1:il),'.' |
./pkg/openad/the_model_main.F |
551 |
THE_MODEL_MAIN |
il=ilnblnk( xx_etan_file ) |
./pkg/openad/the_model_main.F |
553 |
THE_MODEL_MAIN |
& 'ad',xx_etan_file(1:il),'.' |
./pkg/profiles/profiles_init_fixed.F |
809 |
PROFILES_INIT_FIXED |
do il = NLEVELCOMBMAX-1, l+2,-1 |
./pkg/profiles/profiles_init_fixed.F |
810 |
PROFILES_INIT_FIXED |
prof_depth_comb(il,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
811 |
PROFILES_INIT_FIXED |
& prof_depth_comb(il-1,bi,bj) |
./pkg/profiles/profiles_init_fixed.F |
824 |
PROFILES_INIT_FIXED |
do il = NLEVELCOMBMAX-1, l+3,-1 |
./pkg/profiles/profiles_init_fixed.F |
825 |
PROFILES_INIT_FIXED |
prof_depth_comb(il,bi,bj)= |
./pkg/profiles/profiles_init_fixed.F |
826 |
PROFILES_INIT_FIXED |
& prof_depth_comb(il-1,bi,bj) |
./pkg/seaice/seaice_cost_concentration.F |
158 |
SEAICE_COST_CONCENTRATION |
il=ilnblnk( localbarfile ) |
./pkg/seaice/seaice_cost_concentration.F |
160 |
SEAICE_COST_CONCENTRATION |
& localbarfile(1:il),'.',optimcycle |
./pkg/seaice/seaice_cost_concentration.F |
227 |
SEAICE_COST_CONCENTRATION |
il=ilnblnk(localobsfile) |
./pkg/seaice/seaice_cost_concentration.F |
229 |
SEAICE_COST_CONCENTRATION |
& localobsfile(1:il), '_', yday |
./pkg/seaice/seaice_cost_concentration.F |
236 |
SEAICE_COST_CONCENTRATION |
write(fname2(1:128),'(a)') localobsfile(1:il) |
./pkg/seaice/seaice_cost_concentration.F |
96 |
SEAICE_COST_CONCENTRATION |
integer il |
./pkg/seaice/seaice_cost_sss.F |
159 |
SEAICE_COST_SSS |
il=ilnblnk( localbarfile ) |
./pkg/seaice/seaice_cost_sss.F |
161 |
SEAICE_COST_SSS |
& localbarfile(1:il),'.',optimcycle |
./pkg/seaice/seaice_cost_sss.F |
164 |
SEAICE_COST_SSS |
il=ilnblnk( areabarfile ) |
./pkg/seaice/seaice_cost_sss.F |
166 |
SEAICE_COST_SSS |
& areabarfile(1:il),'.',optimcycle |
./pkg/seaice/seaice_cost_sss.F |
242 |
SEAICE_COST_SSS |
il=ilnblnk(localobsfile) |
./pkg/seaice/seaice_cost_sss.F |
244 |
SEAICE_COST_SSS |
& localobsfile(1:il), '_', yday |
./pkg/seaice/seaice_cost_sss.F |
251 |
SEAICE_COST_SSS |
write(fname2(1:128),'(a)') localobsfile(1:il) |
./pkg/seaice/seaice_cost_sss.F |
94 |
SEAICE_COST_SSS |
integer il |
./pkg/seaice/seaice_cost_sst.F |
161 |
SEAICE_COST_SST |
il=ilnblnk( localbarfile ) |
./pkg/seaice/seaice_cost_sst.F |
163 |
SEAICE_COST_SST |
& localbarfile(1:il),'.',optimcycle |
./pkg/seaice/seaice_cost_sst.F |
165 |
SEAICE_COST_SST |
il=ilnblnk( areabarfile ) |
./pkg/seaice/seaice_cost_sst.F |
167 |
SEAICE_COST_SST |
& areabarfile(1:il),'.',optimcycle |
./pkg/seaice/seaice_cost_sst.F |
242 |
SEAICE_COST_SST |
il=ilnblnk(localobsfile) |
./pkg/seaice/seaice_cost_sst.F |
244 |
SEAICE_COST_SST |
& localobsfile(1:il), '_', yday |
./pkg/seaice/seaice_cost_sst.F |
251 |
SEAICE_COST_SST |
write(fname2(1:128),'(a)') localobsfile(1:il) |
./pkg/seaice/seaice_cost_sst.F |
92 |
SEAICE_COST_SST |
integer il |
./pkg/seaice/seaice_ctrl_map_ini.F |
116 |
SEAICE_CTRL_MAP_INI |
il=ilnblnk( xx_siheff_file ) |
./pkg/seaice/seaice_ctrl_map_ini.F |
118 |
SEAICE_CTRL_MAP_INI |
& xx_siheff_file(1:il),'.',optimcycle |
./pkg/seaice/seaice_ctrl_map_ini.F |
136 |
SEAICE_CTRL_MAP_INI |
il=ilnblnk( xx_sihsnow_file ) |
./pkg/seaice/seaice_ctrl_map_ini.F |
138 |
SEAICE_CTRL_MAP_INI |
& xx_sihsnow_file(1:il),'.',optimcycle |
./pkg/seaice/seaice_ctrl_map_ini.F |
56 |
SEAICE_CTRL_MAP_INI |
integer il |
./pkg/seaice/seaice_ctrl_map_ini.F |
96 |
SEAICE_CTRL_MAP_INI |
il=ilnblnk( xx_siarea_file ) |
./pkg/seaice/seaice_ctrl_map_ini.F |
98 |
SEAICE_CTRL_MAP_INI |
& xx_siarea_file(1:il),'.',optimcycle |
./pkg/streamice/streamice_cost_surf_accum.F |
53 |
STREAMICE_COST_SURF_ACCUM |
integer il |
./verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F |
56 |
CTRL_MAP_GENTIM2D |
integer il |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
59 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
87 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/halfpipe_streamice/code_oad/ctrl_map_gentim2d.F |
56 |
CTRL_MAP_GENTIM2D |
integer il |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
145 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
147 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
59 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
87 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F |
89 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
52 |
CTRL_MAP_GENTIM2D |
integer il |
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
126 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
128 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F |
88 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
52 |
CTRL_MAP_GENTIM2D |
integer il |
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
126 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
128 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F |
88 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
136 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F |
88 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
131 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr3d_file(iarr) ) |
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
133 |
CTRL_MAP_INI_GENARR |
& xx_genarr3d_file(iarr)(1:il),'.',optimcycle |
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
84 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( xx_genarr2d_file(iarr) ) |
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
& xx_genarr2d_file(iarr)(1:il),'.',optimcycle |
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
134 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
136 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
55 |
CTRL_MAP_INI_GENARR |
integer il |
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
86 |
CTRL_MAP_INI_GENARR |
il=ILNBLNK( fnamebase ) |
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F |
88 |
CTRL_MAP_INI_GENARR |
& fnamebase(1:il),'.',optimcycle |
./optim/optim_numbmod.F |
214 |
OPTIM_NUMBMOD |
il = max(ilnblnk(record),1) |
./optim/optim_numbmod.F |
216 |
OPTIM_NUMBMOD |
& write(unit=scrunit1, fmt='(a)') record(:il) |
./optim/optim_numbmod.F |
242 |
OPTIM_NUMBMOD |
il = max(ilnblnk(record),1) |
./optim/optim_numbmod.F |
244 |
OPTIM_NUMBMOD |
& write(unit=scrunit1, fmt='(a)') record(:il) |
./optim/optim_numbmod.F |
92 |
OPTIM_NUMBMOD |
integer il |
./pkg/admtlm/admtlm_bypassad.F |
105 |
ADMTLM_BYPASSAD |
il = ilnblnk(xx_etan_file) |
./pkg/admtlm/admtlm_bypassad.F |
107 |
ADMTLM_BYPASSAD |
& xx_etan_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_bypassad.F |
123 |
ADMTLM_BYPASSAD |
il = ilnblnk(xx_vvel_file) |
./pkg/admtlm/admtlm_bypassad.F |
125 |
ADMTLM_BYPASSAD |
& xx_vvel_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_bypassad.F |
141 |
ADMTLM_BYPASSAD |
il = ilnblnk(xx_uvel_file) |
./pkg/admtlm/admtlm_bypassad.F |
143 |
ADMTLM_BYPASSAD |
& xx_uvel_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_bypassad.F |
159 |
ADMTLM_BYPASSAD |
il = ilnblnk(xx_salt_file) |
./pkg/admtlm/admtlm_bypassad.F |
161 |
ADMTLM_BYPASSAD |
& xx_salt_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_bypassad.F |
177 |
ADMTLM_BYPASSAD |
il = ilnblnk(xx_theta_file) |
./pkg/admtlm/admtlm_bypassad.F |
179 |
ADMTLM_BYPASSAD |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/admtlm/admtlm_bypassad.F |
39 |
ADMTLM_BYPASSAD |
integer il |
./pkg/admtlm/admtlm_dsvd2model.F |
74 |
ADMTLM_DSVD2MODEL |
integer il |
./pkg/admtlm/admtlm_model2dsvd.F |
72 |
ADMTLM_MODEL2DSVD |
integer il |
./pkg/autodiff/active_file_ad.F |
100 |
ADACTIVE_READ_XY |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
106 |
ADACTIVE_READ_XY |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
108 |
ADACTIVE_READ_XY |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
189 |
ADACTIVE_READ_XYZ |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
195 |
ADACTIVE_READ_XYZ |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
197 |
ADACTIVE_READ_XYZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
278 |
ADACTIVE_READ_XZ |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
284 |
ADACTIVE_READ_XZ |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
286 |
ADACTIVE_READ_XZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
367 |
ADACTIVE_READ_YZ |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
373 |
ADACTIVE_READ_YZ |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
375 |
ADACTIVE_READ_YZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
447 |
ADACTIVE_WRITE_XY |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
454 |
ADACTIVE_WRITE_XY |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
456 |
ADACTIVE_WRITE_XY |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
529 |
ADACTIVE_WRITE_XYZ |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
536 |
ADACTIVE_WRITE_XYZ |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
538 |
ADACTIVE_WRITE_XYZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
610 |
ADACTIVE_WRITE_XZ |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
617 |
ADACTIVE_WRITE_XZ |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
619 |
ADACTIVE_WRITE_XZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
692 |
ADACTIVE_WRITE_YZ |
INTEGER il |
./pkg/autodiff/active_file_ad.F |
699 |
ADACTIVE_WRITE_YZ |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_ad.F |
701 |
ADACTIVE_WRITE_YZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_control.F |
106 |
ACTIVE_READ_3D_RL |
il = ILNBLNK( activeVar_file ) |
./pkg/autodiff/active_file_control.F |
108 |
ACTIVE_READ_3D_RL |
WRITE(adfname(1:il+2),'(2A)') adpref, activeVar_file(1:il) |
./pkg/autodiff/active_file_control.F |
278 |
ACTIVE_READ_3D_RS |
INTEGER il |
./pkg/autodiff/active_file_control.F |
288 |
ACTIVE_READ_3D_RS |
il = ILNBLNK( activeVar_file ) |
./pkg/autodiff/active_file_control.F |
290 |
ACTIVE_READ_3D_RS |
WRITE(adfname(1:il+2),'(2A)') adpref, activeVar_file(1:il) |
./pkg/autodiff/active_file_control.F |
96 |
ACTIVE_READ_3D_RL |
INTEGER il |
./pkg/autodiff/active_file_control_slice.F |
108 |
ACTIVE_READ_XZ_RL |
il = ILNBLNK( activeVar_file ) |
./pkg/autodiff/active_file_control_slice.F |
110 |
ACTIVE_READ_XZ_RL |
WRITE(adfname(1:il+2),'(2A)') adpref, activeVar_file(1:il) |
./pkg/autodiff/active_file_control_slice.F |
274 |
ACTIVE_READ_XZ_RS |
INTEGER il |
./pkg/autodiff/active_file_control_slice.F |
284 |
ACTIVE_READ_XZ_RS |
il = ILNBLNK( activeVar_file ) |
./pkg/autodiff/active_file_control_slice.F |
286 |
ACTIVE_READ_XZ_RS |
WRITE(adfname(1:il+2),'(2A)') adpref, activeVar_file(1:il) |
./pkg/autodiff/active_file_control_slice.F |
449 |
ACTIVE_READ_YZ_RL |
INTEGER il |
./pkg/autodiff/active_file_control_slice.F |
459 |
ACTIVE_READ_YZ_RL |
il = ILNBLNK( activeVar_file ) |
./pkg/autodiff/active_file_control_slice.F |
461 |
ACTIVE_READ_YZ_RL |
WRITE(adfname(1:il+2),'(2A)') adpref, activeVar_file(1:il) |
./pkg/autodiff/active_file_control_slice.F |
625 |
ACTIVE_READ_YZ_RS |
INTEGER il |
./pkg/autodiff/active_file_control_slice.F |
635 |
ACTIVE_READ_YZ_RS |
il = ILNBLNK( activeVar_file ) |
./pkg/autodiff/active_file_control_slice.F |
637 |
ACTIVE_READ_YZ_RS |
WRITE(adfname(1:il+2),'(2A)') adpref, activeVar_file(1:il) |
./pkg/autodiff/active_file_control_slice.F |
98 |
ACTIVE_READ_XZ_RL |
INTEGER il |
./pkg/autodiff/active_file_g.F |
177 |
G_ACTIVE_READ_XYZ |
INTEGER il |
./pkg/autodiff/active_file_g.F |
183 |
G_ACTIVE_READ_XYZ |
il = ILNBLNK( active_var_file ) |
./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 |
264 |
G_ACTIVE_READ_XZ |
INTEGER il |
./pkg/autodiff/active_file_g.F |
270 |
G_ACTIVE_READ_XZ |
il = ILNBLNK( active_var_file ) |
./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 |
351 |
G_ACTIVE_READ_YZ |
INTEGER il |
./pkg/autodiff/active_file_g.F |
357 |
G_ACTIVE_READ_YZ |
il = ILNBLNK( active_var_file ) |
./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 |
431 |
G_ACTIVE_WRITE_XY |
INTEGER il |
./pkg/autodiff/active_file_g.F |
438 |
G_ACTIVE_WRITE_XY |
il = ILNBLNK( active_var_file ) |
./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 |
513 |
G_ACTIVE_WRITE_XYZ |
INTEGER il |
./pkg/autodiff/active_file_g.F |
520 |
G_ACTIVE_WRITE_XYZ |
il = ILNBLNK( active_var_file ) |
./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 |
595 |
G_ACTIVE_WRITE_XZ |
INTEGER il |
./pkg/autodiff/active_file_g.F |
602 |
G_ACTIVE_WRITE_XZ |
il = ILNBLNK( active_var_file ) |
./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 |
677 |
G_ACTIVE_WRITE_YZ |
INTEGER il |
./pkg/autodiff/active_file_g.F |
684 |
G_ACTIVE_WRITE_YZ |
il = ILNBLNK( active_var_file ) |
./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 |
90 |
G_ACTIVE_READ_XY |
INTEGER il |
./pkg/autodiff/active_file_g.F |
96 |
G_ACTIVE_READ_XY |
il = ILNBLNK( active_var_file ) |
./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 |
101 |
ADACTIVE_READ_GEN_RL |
INTEGER il |
./pkg/autodiff/active_file_gen_ad.F |
105 |
ADACTIVE_READ_GEN_RL |
il = ILNBLNK( activeVar_file ) |
./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 |
218 |
ADACTIVE_READ_GEN_RS |
INTEGER il |
./pkg/autodiff/active_file_gen_ad.F |
222 |
ADACTIVE_READ_GEN_RS |
il = ILNBLNK( activeVar_file ) |
./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 |
326 |
ADACTIVE_WRITE_GEN_RL |
INTEGER il |
./pkg/autodiff/active_file_gen_ad.F |
331 |
ADACTIVE_WRITE_GEN_RL |
il = ILNBLNK( activeVar_file ) |
./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 |
436 |
ADACTIVE_WRITE_GEN_RS |
INTEGER il |
./pkg/autodiff/active_file_gen_ad.F |
441 |
ADACTIVE_WRITE_GEN_RS |
il = ILNBLNK( activeVar_file ) |
./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_g.F |
204 |
G_ACTIVE_READ_GEN_RS |
INTEGER il |
./pkg/autodiff/active_file_gen_g.F |
208 |
G_ACTIVE_READ_GEN_RS |
il = ILNBLNK( activeVar_file ) |
./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 |
314 |
G_ACTIVE_WRITE_GEN_RL |
INTEGER il |
./pkg/autodiff/active_file_gen_g.F |
319 |
G_ACTIVE_WRITE_GEN_RL |
il = ILNBLNK( activeVar_file ) |
./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 |
426 |
G_ACTIVE_WRITE_GEN_RS |
INTEGER il |
./pkg/autodiff/active_file_gen_g.F |
431 |
G_ACTIVE_WRITE_GEN_RS |
il = ILNBLNK( activeVar_file ) |
./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 |
88 |
G_ACTIVE_READ_GEN_RL |
INTEGER il |
./pkg/autodiff/active_file_gen_g.F |
92 |
G_ACTIVE_READ_GEN_RL |
il = ILNBLNK( activeVar_file ) |
./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_ad.F |
100 |
ADACTIVE_READ_XY_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
106 |
ADACTIVE_READ_XY_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
108 |
ADACTIVE_READ_XY_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
189 |
ADACTIVE_READ_XYZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
195 |
ADACTIVE_READ_XYZ_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
197 |
ADACTIVE_READ_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
278 |
ADACTIVE_READ_XZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
284 |
ADACTIVE_READ_XZ_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
286 |
ADACTIVE_READ_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
367 |
ADACTIVE_READ_YZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
373 |
ADACTIVE_READ_YZ_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
375 |
ADACTIVE_READ_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
447 |
ADACTIVE_WRITE_XY_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
454 |
ADACTIVE_WRITE_XY_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
456 |
ADACTIVE_WRITE_XY_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
529 |
ADACTIVE_WRITE_XYZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
536 |
ADACTIVE_WRITE_XYZ_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
538 |
ADACTIVE_WRITE_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
610 |
ADACTIVE_WRITE_XZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
617 |
ADACTIVE_WRITE_XZ_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
619 |
ADACTIVE_WRITE_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
692 |
ADACTIVE_WRITE_YZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_ad.F |
699 |
ADACTIVE_WRITE_YZ_LOC |
il = ILNBLNK( active_var_file ) |
./pkg/autodiff/active_file_loc_ad.F |
701 |
ADACTIVE_WRITE_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
173 |
G_ACTIVE_READ_XYZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
179 |
G_ACTIVE_READ_XYZ_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
258 |
G_ACTIVE_READ_XZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
264 |
G_ACTIVE_READ_XZ_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
343 |
G_ACTIVE_READ_YZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
349 |
G_ACTIVE_READ_YZ_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
421 |
G_ACTIVE_WRITE_XY_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
428 |
G_ACTIVE_WRITE_XY_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
501 |
G_ACTIVE_WRITE_XYZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
508 |
G_ACTIVE_WRITE_XYZ_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
581 |
G_ACTIVE_WRITE_XZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
588 |
G_ACTIVE_WRITE_XZ_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
661 |
G_ACTIVE_WRITE_YZ_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
668 |
G_ACTIVE_WRITE_YZ_LOC |
il = ILNBLNK( active_var_file ) |
./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 |
88 |
G_ACTIVE_READ_XY_LOC |
INTEGER il |
./pkg/autodiff/active_file_loc_g.F |
94 |
G_ACTIVE_READ_XY_LOC |
il = ILNBLNK( active_var_file ) |
./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) |
./pkg/autodiff/adread_adwrite.F |
132 |
ADREAD |
INTEGER il, jl, lenLoc |
./pkg/autodiff/adread_adwrite.F |
163 |
ADREAD |
il = ILNBLNK( name ) |
./pkg/autodiff/adread_adwrite.F |
166 |
ADREAD |
lenLoc = il+jl |
./pkg/autodiff/adread_adwrite.F |
167 |
ADREAD |
WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il) |
./pkg/autodiff/adread_adwrite.F |
169 |
ADREAD |
lenLoc = il+jl+7 |
./pkg/autodiff/adread_adwrite.F |
171 |
ADREAD |
& adTapeDir(1:jl),name(1:il),'.it',optimcycle |
./pkg/autodiff/adread_adwrite.F |
330 |
ADWRITE |
INTEGER il,jl,lenLoc |
./pkg/autodiff/adread_adwrite.F |
362 |
ADWRITE |
il = ILNBLNK( name ) |
./pkg/autodiff/adread_adwrite.F |
365 |
ADWRITE |
lenLoc = il+jl |
./pkg/autodiff/adread_adwrite.F |
366 |
ADWRITE |
WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il) |
./pkg/autodiff/adread_adwrite.F |
368 |
ADWRITE |
lenLoc = il+jl+7 |
./pkg/autodiff/adread_adwrite.F |
370 |
ADWRITE |
& adTapeDir(1:jl),name(1:il),'.it',optimcycle |
./eesupp/src/nml_change_syntax.F |
117 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
./eesupp/src/nml_change_syntax.F |
147 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
./eesupp/src/nml_change_syntax.F |
203 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
./eesupp/src/nml_change_syntax.F |
224 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(A)') record(1:il) |
./eesupp/src/nml_change_syntax.F |
48 |
NML_CHANGE_SYNTAX |
INTEGER il |
./eesupp/src/nml_change_syntax.F |
75 |
NML_CHANGE_SYNTAX |
il = MAX(ILNBLNK(record),1) |
./eesupp/src/nml_change_syntax.F |
76 |
NML_CHANGE_SYNTAX |
IF ( il .EQ. 2 ) THEN |
./eesupp/src/nml_change_syntax.F |
96 |
NML_CHANGE_SYNTAX |
DO i=1,il |
./pkg/ctrl/ctrl_depth_ini.F |
113 |
CTRL_DEPTH_INI |
il=ilnblnk( xx_depth_file ) |
./pkg/ctrl/ctrl_depth_ini.F |
115 |
CTRL_DEPTH_INI |
& xx_depth_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_depth_ini.F |
46 |
CTRL_DEPTH_INI |
integer il |
./pkg/ctrl/ctrl_hfacc_ini.F |
118 |
CTRL_HFACC_INI |
il=ilnblnk( xx_hfacc_file ) |
./pkg/ctrl/ctrl_hfacc_ini.F |
120 |
CTRL_HFACC_INI |
& xx_hfacc_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_hfacc_ini.F |
46 |
CTRL_HFACC_INI |
integer il |
./pkg/ctrl/ctrl_init_rec.F |
119 |
CTRL_INIT_REC |
& 'CTRL_INIT_REC: Record indices for ',fldname(1:il),':' |
./pkg/ctrl/ctrl_init_rec.F |
67 |
CTRL_INIT_REC |
integer il |
./pkg/ctrl/ctrl_init_rec.F |
74 |
CTRL_INIT_REC |
il=ilnblnk(fldname) |
./pkg/ctrl/ctrl_init_rec.F |
76 |
CTRL_INIT_REC |
& 'CTRL_INIT_REC: Getting record indices for ',fldname(1:il) |
./pkg/ctrl/ctrl_map_forcing.F |
113 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_tauu_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
115 |
CTRL_MAP_FORCING |
& xx_tauu_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
138 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_tauv_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
140 |
CTRL_MAP_FORCING |
& xx_tauv_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
163 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_sflux_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
165 |
CTRL_MAP_FORCING |
& xx_sflux_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
188 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_hflux_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
190 |
CTRL_MAP_FORCING |
& xx_hflux_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
213 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_sss_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
215 |
CTRL_MAP_FORCING |
& xx_sss_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
232 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_sst_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
234 |
CTRL_MAP_FORCING |
& xx_sst_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
251 |
CTRL_MAP_FORCING |
il=ilnblnk( xx_hfluxm_file ) |
./pkg/ctrl/ctrl_map_forcing.F |
253 |
CTRL_MAP_FORCING |
& xx_hfluxm_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_forcing.F |
70 |
CTRL_MAP_FORCING |
integer il |
./pkg/ctrl/ctrl_map_gentim2d.F |
52 |
CTRL_MAP_GENTIM2D |
integer il |
./pkg/ctrl/ctrl_map_ini.F |
109 |
CTRL_MAP_INI |
il=ilnblnk( xx_theta_file ) |
./pkg/ctrl/ctrl_map_ini.F |
111 |
CTRL_MAP_INI |
& xx_theta_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
143 |
CTRL_MAP_INI |
il=ilnblnk( xx_salt_file ) |
./pkg/ctrl/ctrl_map_ini.F |
145 |
CTRL_MAP_INI |
& xx_salt_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
174 |
CTRL_MAP_INI |
il=ilnblnk( xx_tr1_file ) |
./pkg/ctrl/ctrl_map_ini.F |
176 |
CTRL_MAP_INI |
& xx_tr1_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
204 |
CTRL_MAP_INI |
il=ilnblnk( xx_sst_file ) |
./pkg/ctrl/ctrl_map_ini.F |
206 |
CTRL_MAP_INI |
& xx_sst_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
225 |
CTRL_MAP_INI |
il=ilnblnk( xx_sss_file ) |
./pkg/ctrl/ctrl_map_ini.F |
227 |
CTRL_MAP_INI |
& xx_sss_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
247 |
CTRL_MAP_INI |
il=ilnblnk( xx_diffkr_file ) |
./pkg/ctrl/ctrl_map_ini.F |
249 |
CTRL_MAP_INI |
& xx_diffkr_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
271 |
CTRL_MAP_INI |
il=ilnblnk( xx_kapgm_file ) |
./pkg/ctrl/ctrl_map_ini.F |
273 |
CTRL_MAP_INI |
& xx_kapgm_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
301 |
CTRL_MAP_INI |
il=ilnblnk( xx_kapredi_file ) |
./pkg/ctrl/ctrl_map_ini.F |
303 |
CTRL_MAP_INI |
& xx_kapredi_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
324 |
CTRL_MAP_INI |
il=ilnblnk( xx_efluxy_file ) |
./pkg/ctrl/ctrl_map_ini.F |
326 |
CTRL_MAP_INI |
& xx_efluxy_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
351 |
CTRL_MAP_INI |
il=ilnblnk( xx_efluxp_file ) |
./pkg/ctrl/ctrl_map_ini.F |
353 |
CTRL_MAP_INI |
& xx_efluxp_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
380 |
CTRL_MAP_INI |
il=ilnblnk( xx_bottomdrag_file ) |
./pkg/ctrl/ctrl_map_ini.F |
382 |
CTRL_MAP_INI |
& xx_bottomdrag_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
400 |
CTRL_MAP_INI |
il=ilnblnk( xx_edtaux_file ) |
./pkg/ctrl/ctrl_map_ini.F |
402 |
CTRL_MAP_INI |
& xx_edtaux_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
419 |
CTRL_MAP_INI |
il=ilnblnk( xx_edtauy_file ) |
./pkg/ctrl/ctrl_map_ini.F |
421 |
CTRL_MAP_INI |
& xx_edtauy_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
441 |
CTRL_MAP_INI |
il=ilnblnk( xx_uvel_file ) |
./pkg/ctrl/ctrl_map_ini.F |
443 |
CTRL_MAP_INI |
& xx_uvel_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
468 |
CTRL_MAP_INI |
il=ilnblnk( xx_vvel_file ) |
./pkg/ctrl/ctrl_map_ini.F |
470 |
CTRL_MAP_INI |
& xx_vvel_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
495 |
CTRL_MAP_INI |
il=ilnblnk( xx_etan_file ) |
./pkg/ctrl/ctrl_map_ini.F |
497 |
CTRL_MAP_INI |
& xx_etan_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
522 |
CTRL_MAP_INI |
il=ilnblnk( xx_relaxsst_file ) |
./pkg/ctrl/ctrl_map_ini.F |
524 |
CTRL_MAP_INI |
& xx_relaxsst_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
543 |
CTRL_MAP_INI |
il=ilnblnk( xx_relaxsss_file ) |
./pkg/ctrl/ctrl_map_ini.F |
545 |
CTRL_MAP_INI |
& xx_relaxsss_file(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini.F |
69 |
CTRL_MAP_INI |
integer il |
./pkg/ctrl/ctrl_map_ini_ecco.F |
76 |
CTRL_MAP_INI_ECCO |
integer il |
./pkg/ctrl/ctrl_map_ini_gen.F |
119 |
CTRL_MAP_INI_GEN3D |
il=ilnblnk( xxFileCur ) |
./pkg/ctrl/ctrl_map_ini_gen.F |
121 |
CTRL_MAP_INI_GEN3D |
& xxFileCur(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini_gen.F |
158 |
CTRL_MAP_INI_GEN3D |
& xxFileCur(1:il),'.smooth.',optimcycle |
./pkg/ctrl/ctrl_map_ini_gen.F |
214 |
CTRL_MAP_INI_GEN3D |
& xxFileCur(1:il),'.effective.',optimcycle |
./pkg/ctrl/ctrl_map_ini_gen.F |
281 |
CTRL_MAP_INI_GEN2D |
integer il |
./pkg/ctrl/ctrl_map_ini_gen.F |
331 |
CTRL_MAP_INI_GEN2D |
il=ilnblnk( xxFileCur ) |
./pkg/ctrl/ctrl_map_ini_gen.F |
333 |
CTRL_MAP_INI_GEN2D |
& xxFileCur(1:il),'.',optimcycle |
./pkg/ctrl/ctrl_map_ini_gen.F |
368 |
CTRL_MAP_INI_GEN2D |
& xxFileCur(1:il),'.smooth.',optimcycle |
./pkg/ctrl/ctrl_map_ini_gen.F |
419 |
CTRL_MAP_INI_GEN2D |
& xxFileCur(1:il),'.effective.',optimcycle |
./pkg/ctrl/ctrl_map_ini_gen.F |
67 |
CTRL_MAP_INI_GEN3D |
integer il |
./pkg/ctrl/ctrl_mask_set_xz.F |
124 |
CTRL_MASK_SET_XZ |
il=ilnblnk( ymaskobcs ) |
./pkg/ctrl/ctrl_mask_set_xz.F |
51 |
CTRL_MASK_SET_XZ |
integer il |
./pkg/ctrl/ctrl_mask_set_yz.F |
125 |
CTRL_MASK_SET_YZ |
il=ilnblnk( ymaskobcs ) |
./pkg/ctrl/ctrl_mask_set_yz.F |
51 |
CTRL_MASK_SET_YZ |
integer il |
./pkg/ctrl/ctrl_pack.F |
86 |
CTRL_PACK |
integer il |
./pkg/ctrl/ctrl_readparms.F |
51 |
CTRL_READPARMS |
integer il |
./pkg/ctrl/ctrl_set_fname.F |
41 |
CTRL_SET_FNAME |
integer il |
./pkg/ctrl/ctrl_set_fname.F |
53 |
CTRL_SET_FNAME |
il=ilnblnk( xx_fname ) |
./pkg/ctrl/ctrl_set_fname.F |
59 |
CTRL_SET_FNAME |
if ( il .GT. 0 .AND. il .LE. 80 ) then |
./pkg/ctrl/ctrl_set_fname.F |
61 |
CTRL_SET_FNAME |
& xx_fname(1:il) ,'.', optimcycle |
./pkg/ctrl/ctrl_set_fname.F |
63 |
CTRL_SET_FNAME |
& yadprefix, xx_fname(1:il), '.', optimcycle |
./pkg/ctrl/ctrl_set_fname.F |
65 |
CTRL_SET_FNAME |
& 'hn', xx_fname(1:il), '.', optimcycle |
./pkg/ctrl/ctrl_set_pack_xy.F |
149 |
CTRL_SET_PACK_XY |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_pack_xy.F |
151 |
CTRL_SET_PACK_XY |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_pack_xy.F |
378 |
CTRL_SET_PACK_XY |
integer il |
./pkg/ctrl/ctrl_set_pack_xy.F |
437 |
CTRL_SET_PACK_XY |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
439 |
CTRL_SET_PACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
440 |
CTRL_SET_PACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
442 |
CTRL_SET_PACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
443 |
CTRL_SET_PACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
51 |
CTRL_SET_PACK_XY |
integer il |
./pkg/ctrl/ctrl_set_pack_xyz.F |
159 |
CTRL_SET_PACK_XYZ |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
161 |
CTRL_SET_PACK_XYZ |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
291 |
CTRL_SET_PACK_XYZ |
integer il |
./pkg/ctrl/ctrl_set_pack_xyz.F |
352 |
CTRL_SET_PACK_XYZ |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
354 |
CTRL_SET_PACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
355 |
CTRL_SET_PACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
357 |
CTRL_SET_PACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
358 |
CTRL_SET_PACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
66 |
CTRL_SET_PACK_XYZ |
integer il |
./pkg/ctrl/ctrl_set_pack_xz.F |
169 |
CTRL_SET_PACK_XZ |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_pack_xz.F |
171 |
CTRL_SET_PACK_XZ |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_pack_xz.F |
76 |
CTRL_SET_PACK_XZ |
integer il |
./pkg/ctrl/ctrl_set_pack_yz.F |
169 |
CTRL_SET_PACK_YZ |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_pack_yz.F |
171 |
CTRL_SET_PACK_YZ |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_pack_yz.F |
76 |
CTRL_SET_PACK_YZ |
integer il |
./pkg/ctrl/ctrl_set_unpack_xy.F |
150 |
CTRL_SET_UNPACK_XY |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
152 |
CTRL_SET_UNPACK_XY |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
412 |
CTRL_SET_UNPACK_XY |
integer il |
./pkg/ctrl/ctrl_set_unpack_xy.F |
471 |
CTRL_SET_UNPACK_XY |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
473 |
CTRL_SET_UNPACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
474 |
CTRL_SET_UNPACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
476 |
CTRL_SET_UNPACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
477 |
CTRL_SET_UNPACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
52 |
CTRL_SET_UNPACK_XY |
integer il |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
168 |
CTRL_SET_UNPACK_XYZ |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
170 |
CTRL_SET_UNPACK_XYZ |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
320 |
CTRL_SET_UNPACK_XYZ |
integer il |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
381 |
CTRL_SET_UNPACK_XYZ |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
383 |
CTRL_SET_UNPACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
384 |
CTRL_SET_UNPACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
386 |
CTRL_SET_UNPACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
387 |
CTRL_SET_UNPACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
66 |
CTRL_SET_UNPACK_XYZ |
integer il |
./pkg/ctrl/ctrl_set_unpack_xz.F |
174 |
CTRL_SET_UNPACK_XZ |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
176 |
CTRL_SET_UNPACK_XZ |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_unpack_xz.F |
79 |
CTRL_SET_UNPACK_XZ |
integer il |
./pkg/ctrl/ctrl_set_unpack_yz.F |
174 |
CTRL_SET_UNPACK_YZ |
il=ilnblnk( weighttype) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
176 |
CTRL_SET_UNPACK_YZ |
write(weightname(1:80),'(a)') weighttype(1:il) |
./pkg/ctrl/ctrl_set_unpack_yz.F |
79 |
CTRL_SET_UNPACK_YZ |
integer il |
./pkg/ctrl/ctrl_summary.F |
173 |
CTRL_SUMMARY |
il = ilnblnk(xx_hflux_file) |
./pkg/ctrl/ctrl_summary.F |
196 |
CTRL_SUMMARY |
&' >> ',xx_hflux_file(1:il),' <<' |
./pkg/ctrl/ctrl_summary.F |
214 |
CTRL_SUMMARY |
il = ilnblnk(xx_sflux_file) |
./pkg/ctrl/ctrl_summary.F |
237 |
CTRL_SUMMARY |
&' >> ',xx_sflux_file(1:il),' <<' |
./pkg/ctrl/ctrl_summary.F |
255 |
CTRL_SUMMARY |
il = ilnblnk(xx_tauu_file) |
./pkg/ctrl/ctrl_summary.F |
278 |
CTRL_SUMMARY |
&' >> ',xx_tauu_file(1:il),' <<' |
./pkg/ctrl/ctrl_summary.F |
296 |
CTRL_SUMMARY |
il = ilnblnk(xx_tauv_file) |
./pkg/ctrl/ctrl_summary.F |
319 |
CTRL_SUMMARY |
&' >> ',xx_tauv_file(1:il),' <<' |
./pkg/ctrl/ctrl_summary.F |
403 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr2d_file(iarr) ) |
./pkg/ctrl/ctrl_summary.F |
405 |
CTRL_SUMMARY |
&' file = ',xx_genarr2d_file(iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
408 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr2d_weight(iarr) ) |
./pkg/ctrl/ctrl_summary.F |
410 |
CTRL_SUMMARY |
&' weight = ',xx_genarr2d_weight(iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
416 |
CTRL_SUMMARY |
il = ilnblnk(xx_genarr2d_preproc(jarr,iarr)) |
./pkg/ctrl/ctrl_summary.F |
418 |
CTRL_SUMMARY |
& xx_genarr2d_preproc(jarr,iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
439 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr3d_file(iarr) ) |
./pkg/ctrl/ctrl_summary.F |
441 |
CTRL_SUMMARY |
&' file = ',xx_genarr3d_file(iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
444 |
CTRL_SUMMARY |
il = ILNBLNK( xx_genarr3d_weight(iarr) ) |
./pkg/ctrl/ctrl_summary.F |
446 |
CTRL_SUMMARY |
&' weight = ',xx_genarr3d_weight(iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
452 |
CTRL_SUMMARY |
il = ilnblnk(xx_genarr3d_preproc(jarr,iarr)) |
./pkg/ctrl/ctrl_summary.F |
454 |
CTRL_SUMMARY |
& xx_genarr3d_preproc(jarr,iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
474 |
CTRL_SUMMARY |
il = ILNBLNK( xx_gentim2d_file(iarr) ) |
./pkg/ctrl/ctrl_summary.F |
476 |
CTRL_SUMMARY |
&' file = ',xx_gentim2d_file(iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
47 |
CTRL_SUMMARY |
integer il |
./pkg/ctrl/ctrl_summary.F |
480 |
CTRL_SUMMARY |
il = ILNBLNK( xx_gentim2d_weight(iarr) ) |
./pkg/ctrl/ctrl_summary.F |
482 |
CTRL_SUMMARY |
&' weight = ',xx_gentim2d_weight(iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
497 |
CTRL_SUMMARY |
il = ilnblnk(xx_gentim2d_preproc(jarr,iarr)) |
./pkg/ctrl/ctrl_summary.F |
499 |
CTRL_SUMMARY |
& xx_gentim2d_preproc(jarr,iarr)(1:il) |
./pkg/ctrl/ctrl_summary.F |
504 |
CTRL_SUMMARY |
il = ilnblnk(xx_gentim2d_preproc_c(jarr,iarr)) |
./pkg/ctrl/ctrl_summary.F |
506 |
CTRL_SUMMARY |
& xx_gentim2d_preproc_c(jarr,iarr)(1:il) |
./pkg/ctrl/ctrl_unpack.F |
89 |
CTRL_UNPACK |
integer il |
./pkg/ctrl/optim_readparms.F |
42 |
OPTIM_READPARMS |
integer il |
./pkg/dic/dic_set_control.F |
43 |
DIC_SET_CONTROL |
INTEGER il |
./pkg/dic/dic_set_control.F |
70 |
DIC_SET_CONTROL |
il=ILNBLNK( xx_gen2d_file ) |
./pkg/dic/dic_set_control.F |
72 |
DIC_SET_CONTROL |
& xx_gen2d_file(1:il),'.',optimcycle |
./pkg/ecco/cost_averagesgeneric.F |
128 |
COST_AVERAGESGENERIC |
il=ilnblnk( localbarfile ) |
./pkg/ecco/cost_averagesgeneric.F |
130 |
COST_AVERAGESGENERIC |
& localbarfile(1:il), '.', eccoiter |
./pkg/ecco/cost_averagesgeneric.F |
178 |
COST_AVERAGESGENERIC |
il=ilnblnk( localbarfile ) |
./pkg/ecco/cost_averagesgeneric.F |
180 |
COST_AVERAGESGENERIC |
& localbarfile(1:il), '.', eccoiter |
./pkg/ecco/cost_averagesgeneric.F |
62 |
COST_AVERAGESGENERIC |
integer il |
./pkg/ecco/cost_averagesgeneric.F |
81 |
COST_AVERAGESGENERIC |
il=ilnblnk( localbarfile ) |
./pkg/ecco/cost_averagesgeneric.F |
83 |
COST_AVERAGESGENERIC |
& 'cost_averagesgeneric, file : ',localbarfile(1:il) |
./pkg/ecco/cost_bp_read.F |
109 |
COST_BP_READ |
il=ilnblnk(localobsfile) |
./pkg/ecco/cost_bp_read.F |
111 |
COST_BP_READ |
& localobsfile(1:il), '_', iyear |
./pkg/ecco/cost_bp_read.F |
114 |
COST_BP_READ |
write(fnametmp(1:80),'(a)') localobsfile(1:il) |
./pkg/ecco/cost_bp_read.F |
70 |
COST_BP_READ |
integer il |
./pkg/ecco/cost_gencal.F |
119 |
COST_GENCAL |
il=ilnblnk(localobsfile) |
./pkg/ecco/cost_gencal.F |
121 |
COST_GENCAL |
& localobsfile(1:il), '_', yday |
./pkg/ecco/cost_gencal.F |
125 |
COST_GENCAL |
write(fname2(1:128),'(a)') localobsfile(1:il) |
./pkg/ecco/cost_gencal.F |
57 |
COST_GENCAL |
integer k, il |
./pkg/ecco/cost_gencal.F |
81 |
COST_GENCAL |
il=ilnblnk( localbarfile ) |
./pkg/ecco/cost_gencal.F |
83 |
COST_GENCAL |
& localbarfile(1:il),'.',eccoiter |
./pkg/ecco/cost_gencost_boxmean.F |
123 |
COST_GENCOST_BOXMEAN |
il = ilnblnk(gencost_mask(kgen)) |
./pkg/ecco/cost_gencost_boxmean.F |
124 |
COST_GENCOST_BOXMEAN |
write(tempfile(1:128),'(2A)') gencost_mask(kgen)(1:il),'T' |
./pkg/ecco/cost_gencost_boxmean.F |
125 |
COST_GENCOST_BOXMEAN |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/cost_gencost_boxmean.F |
51 |
COST_GENCOST_BOXMEAN |
integer nrecloc,irec,il,ioUnit |
./pkg/ecco/cost_gencost_boxmean.F |
84 |
COST_GENCOST_BOXMEAN |
il = ilnblnk( gencost_barfile(kgen) ) |
./pkg/ecco/cost_gencost_boxmean.F |
86 |
COST_GENCOST_BOXMEAN |
& gencost_barfile(kgen)(1:il),'.',eccoiter |
./pkg/ecco/cost_gencost_bpv4.F |
145 |
COST_GENCOST_BPV4 |
il=ilnblnk( gencost_barfile(kgen) ) |
./pkg/ecco/cost_gencost_bpv4.F |
147 |
COST_GENCOST_BPV4 |
& gencost_barfile(kgen)(1:il),'.',eccoiter |
./pkg/ecco/cost_gencost_bpv4.F |
52 |
COST_GENCOST_BPV4 |
integer il |
./pkg/ecco/cost_gencost_glbmean.F |
164 |
COST_GENCOST_GLBMEAN |
il=ilnblnk( gencost_barfile(kgen) ) |
./pkg/ecco/cost_gencost_glbmean.F |
166 |
COST_GENCOST_GLBMEAN |
& gencost_barfile(kgen)(1:il),'.',eccoiter |
./pkg/ecco/cost_gencost_glbmean.F |
53 |
COST_GENCOST_GLBMEAN |
integer il |
./pkg/ecco/cost_gencost_seaicev4.F |
272 |
COST_GENCOST_SEAICEV4 |
il=ilnblnk( fname0 ) |
./pkg/ecco/cost_gencost_seaicev4.F |
275 |
COST_GENCOST_SEAICEV4 |
& fname0(1:il) |
./pkg/ecco/cost_gencost_seaicev4.F |
79 |
COST_GENCOST_SEAICEV4 |
integer il, k2 |
./pkg/ecco/cost_gencost_sstv4.F |
220 |
COST_GENCOST_SSTV4 |
il=ilnblnk(gencost_datafile(kgen)) |
./pkg/ecco/cost_gencost_sstv4.F |
222 |
COST_GENCOST_SSTV4 |
& gencost_datafile(kgen)(1:il), '_', yday |
./pkg/ecco/cost_gencost_sstv4.F |
378 |
COST_GENCOST_SSTV4 |
il=ilnblnk(gencost_datafile(kgen)) |
./pkg/ecco/cost_gencost_sstv4.F |
380 |
COST_GENCOST_SSTV4 |
& gencost_datafile(kgen)(1:il), '_', yday |
./pkg/ecco/cost_gencost_sstv4.F |
90 |
COST_GENCOST_SSTV4 |
integer il, localrec |
./pkg/ecco/cost_gencost_transp.F |
117 |
COST_GENCOST_TRANSP |
il=ilnblnk(gencost_barfile(kgen(icount_transp))) |
./pkg/ecco/cost_gencost_transp.F |
119 |
COST_GENCOST_TRANSP |
& ': ',gencost_barfile(kgen(icount_transp))(1:il) |
./pkg/ecco/cost_gencost_transp.F |
171 |
COST_GENCOST_TRANSP |
il=ilnblnk(gencost_name(kgen(icount))) |
./pkg/ecco/cost_gencost_transp.F |
173 |
COST_GENCOST_TRANSP |
& 'Cost ',gencost_name(kgen(icount))(1:il), |
./pkg/ecco/cost_gencost_transp.F |
273 |
COST_GENCOST_TRANSP |
il=ilnblnk(gencost_barfile(kgen(icount))) |
./pkg/ecco/cost_gencost_transp.F |
277 |
COST_GENCOST_TRANSP |
& 'globalsum transp ',gencost_barfile(kgen(icount))(1:il), |
./pkg/ecco/cost_gencost_transp.F |
70 |
COST_GENCOST_TRANSP |
integer il,k2 |
./pkg/ecco/cost_generic.F |
240 |
COST_GENLOOP |
integer il, k2 |
./pkg/ecco/cost_generic.F |
391 |
COST_GENLOOP |
il=ilnblnk(outname) |
./pkg/ecco/cost_generic.F |
392 |
COST_GENLOOP |
write(fname3(1:128),'(2a)') 'misfit_', outname(1:il) |
./pkg/ecco/cost_generic.F |
418 |
COST_GENLOOP |
il=ilnblnk(outname) |
./pkg/ecco/cost_generic.F |
419 |
COST_GENLOOP |
write(fname3(1:128),'(2a)') 'misfit_', outname(1:il) |
./pkg/ecco/cost_generic.F |
427 |
COST_GENLOOP |
il=ilnblnk(outname) |
./pkg/ecco/cost_generic.F |
428 |
COST_GENLOOP |
write(fname3(1:128),'(2a)') 'weight_', outname(1:il) |
./pkg/ecco/cost_obcse.F |
84 |
COST_OBCSE |
integer il |
./pkg/ecco/cost_sla_read.F |
115 |
COST_SLA_READ |
il=ilnblnk(sla_file) |
./pkg/ecco/cost_sla_read.F |
117 |
COST_SLA_READ |
& sla_file(1:il), '_', yday |
./pkg/ecco/cost_sla_read.F |
67 |
COST_SLA_READ |
integer il |
./pkg/ecco/cost_sla_read_yd.F |
103 |
COST_SLA_READ_YD |
il=ilnblnk(sla_file) |
./pkg/ecco/cost_sla_read_yd.F |
106 |
COST_SLA_READ_YD |
& sla_file(1:il), '_', year |
./pkg/ecco/cost_sla_read_yd.F |
67 |
COST_SLA_READ_YD |
integer il |
./pkg/ecco/ecco_check.F |
354 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
./pkg/ecco/ecco_check.F |
355 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
./pkg/ecco/ecco_check.F |
358 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
361 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
410 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
./pkg/ecco/ecco_check.F |
411 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
./pkg/ecco/ecco_check.F |
414 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
417 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
423 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
426 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
451 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
454 |
ECCO_CHECK |
& ' undefined so ',gencost_name(k)(1:il), |
./pkg/ecco/ecco_check.F |
462 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_check.F |
463 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C' |
./pkg/ecco/ecco_check.F |
464 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_check.F |
467 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
470 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
478 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_check.F |
479 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W' |
./pkg/ecco/ecco_check.F |
47 |
ECCO_CHECK |
INTEGER igen_etaday, il, k2, ioUnit |
./pkg/ecco/ecco_check.F |
480 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_check.F |
483 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
486 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
491 |
ECCO_CHECK |
il = ilnblnk(gencost_mask(k)) |
./pkg/ecco/ecco_check.F |
492 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S' |
./pkg/ecco/ecco_check.F |
493 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_check.F |
496 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
499 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
515 |
ECCO_CHECK |
il=ilnblnk(gencost_barfile(k)) |
./pkg/ecco/ecco_check.F |
518 |
ECCO_CHECK |
& gencost_barfile(k)(1:il),': has no matched model var.' |
./pkg/ecco/ecco_check.F |
524 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
525 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
./pkg/ecco/ecco_check.F |
542 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
./pkg/ecco/ecco_check.F |
543 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'W' |
./pkg/ecco/ecco_check.F |
544 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_check.F |
546 |
ECCO_CHECK |
& tempfile(1:il+1),exst |
./pkg/ecco/ecco_check.F |
553 |
ECCO_CHECK |
& tempfile(1:il+1) |
./pkg/ecco/ecco_check.F |
556 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
558 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
576 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
./pkg/ecco/ecco_check.F |
577 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'S' |
./pkg/ecco/ecco_check.F |
578 |
ECCO_CHECK |
inquire( file=tempfile(1:il+1), exist=exst ) |
./pkg/ecco/ecco_check.F |
580 |
ECCO_CHECK |
& tempfile(1:il+1),exst |
./pkg/ecco/ecco_check.F |
587 |
ECCO_CHECK |
& tempfile(1:il+1) |
./pkg/ecco/ecco_check.F |
590 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
592 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
605 |
ECCO_CHECK |
il=ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
608 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
./pkg/ecco/ecco_check.F |
619 |
ECCO_CHECK |
il=ilnblnk(gencost_barfile(k)) |
./pkg/ecco/ecco_check.F |
622 |
ECCO_CHECK |
& gencost_barfile(k)(1:il),': has no matched model var.' |
./pkg/ecco/ecco_check.F |
628 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
./pkg/ecco/ecco_check.F |
629 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
./pkg/ecco/ecco_check.F |
712 |
ECCO_CHECK_FILES |
INTEGER irec, mody, modm, yday, locy, il |
./pkg/ecco/ecco_check.F |
755 |
ECCO_CHECK_FILES |
il=ilnblnk(localobsfile) |
./pkg/ecco/ecco_check.F |
757 |
ECCO_CHECK_FILES |
& localobsfile(1:il), '_', yday |
./pkg/ecco/ecco_cost_init_fixed.F |
67 |
ECCO_COST_INIT_FIXED |
integer il, ilo,ihi |