15 character(len=512) fpfname
30 if ( ldirect.eq.1 )
then
31 inquire(file=trim(path(3)) // trim(wfname(i)) //
'_fwd.fp', exist=exists)
33 inquire(file=trim(path(3)) // trim(wfname(i)) //
'_bwd.fp', exist=exists)
42 if ( ldirect.eq.1 )
then
43 fpfname = trim(path(3)) // trim(wfname(ifn)) //
'_fwd.fp'
45 fpfname = trim(path(3)) // trim(wfname(ifn)) //
'_bwd.fp'
47 print *,
'fpgridcheck(): LOADING.... ', trim(fpfname)
subroutine fpmetbinary_load(filename, cm_index)