# in_out.q

set echo 
# RCS file, release, date & time of last delta, author, state, [and locker]
# $Header: /project/work/rep/SCRIPTS/src/cctm/in_out.q,v 1.4 2005/09/09 13:53:15 sjr Exp $ 

# what(1) key, module and SID; SCCS file; date and time of last delta:
# %W% %P% %G% %U%

# for supplementary emissions file ...

 if ( $?EMISpath2 ) then
    setenv EMIS_SUP          $EMISpath2/$EMISfile2
    if ( ! (-e $EMIS_SUP) ) then
       echo " $EMIS_SUP not used "
    endif
 endif

# for MEPSE file ...
 
 if ( $?MEPSEpath ) then
    setenv      MEPSE_1         $MEPSEpath/$MEPSEfile
    if ( ! (-e $MEPSE_1) ) then
       echo  " $MEPSE_1 not found "
       exit 1
    endif
 endif
 
# for PDM file ...
 
 if ( $?PDMpath ) then
    setenv      PDM_PING_1      $PDMpath/$PDMfile
    if ( ! (-e $PDM_PING_1) ) then
       echo  " $PDM_PING_1 not found "
       exit 1
    endif
 endif

# for previous Ping conc file ...

 if ( $?PDM_PING_1 ) then
    if ( $INIT_PING == 'F' | $INIT_PING == 'N' ) then
       setenv      CTM_PING_0   $PINGpath/$PINGfile
       if ( ! (-e $CTM_PING_0) ) then
          echo  " $CTM_PING_0 not found "
          exit 1
       endif
    endif
 endif

# for Tracer Dep vel and Emissions

 if ( $?TR_DVpath ) then
    setenv DEPV_TRAC_1          MET_CRO_2D
 endif

 if ( $?TR_EMpath ) then
    setenv EMIS_TRAC_1          $TR_EMpath/$TR_EMfile
    if (! (-e $EMIS_TRAC_1) ) then
       echo " $EMIS_TRAC_1 not found "
       exit 1
    endif
 endif

# for OCEAN file ...
 
 if ( $?OCEANpath ) then
    setenv      I_OCEAN_1    $OCEANpath/$OCEANfile

    setenv      OCEAN_1      $OCEANpath/$OCEANfile

    if ( ! (-e $I_OCEAN_1) ) then
       echo  " $I_OCEAN_1 not found "
       exit 1
    endif
 endif

# for emissions file ...

 setenv     EMIS_1            $EMISpath/$EMISfile

# for ICBC files ...

 setenv     INIT_GASC_1     $GC_ICpath/$GC_ICfile
 setenv     BNDY_GASC_1     $GC_BCpath/$GC_BCfile
 setenv     INIT_AERO_1     $AE_ICpath/$AE_ICfile
 setenv     BNDY_AERO_1     $AE_BCpath/$AE_BCfile
 setenv     INIT_NONR_1     $NR_ICpath/$NR_ICfile
 setenv     BNDY_NONR_1     $NR_BCpath/$NR_BCfile
 setenv     INIT_TRAC_1     $TR_ICpath/$TR_ICfile
 setenv     BNDY_TRAC_1     $TR_BCpath/$TR_BCfile

# for meteorological files ...

 setenv     GRID_DOT_2D     BUFFERED
 setenv     GRID_CRO_2D     BUFFERED
 setenv     MET_CRO_2D      BUFFERED
 setenv     MET_DOT_3D      BUFFERED
 setenv     MET_CRO_3D      BUFFERED
#setenv     MET_BDY_3D      BUFFERED

# this is for creating physical files
@ n = 0
while ($n < $NPROCS)
 set name = `printf "_%3.3d\n" $n`
 
 setenv     PGRID_DOT_2D$name     "$OUTDIR/$GD2file$name -v"
 setenv     PGRID_CRO_2D$name     "$OUTDIR/$GC2file$name -v"
 setenv     PMET_CRO_2D$name      "$OUTDIR/$MC2file$name -v"
 setenv     PMET_DOT_3D$name      "$OUTDIR/$MD3file$name -v"
 setenv     PMET_CRO_3D$name      "$OUTDIR/$MC3file$name -v"
 
 @ n++
end

 setenv     PGRID_DOT_2D          "$OUTDIR/$GD2file -v"
 setenv     PGRID_CRO_2D          "$OUTDIR/$GC2file -v"
 setenv     PMET_CRO_2D           "$OUTDIR/$MC2file -v"
 setenv     PMET_DOT_3D           "$OUTDIR/$MD3file -v"
 setenv     PMET_CRO_3D           "$OUTDIR/$MC3file -v"

# for layer definition file (use the MET_CRO_3D file)...

#setenv     LAYER_FILE      $METpath/$MC3file
 setenv     LAYER_FILE      MET_CRO_3D

@ n = 0
while ($n < $NPROCS)
 set name = `printf "_%3.3d\n" $n`

# for feedback file

#setenv     feed_back$name       "$OUTDIR/feed_back$name -v" # feedback_file
 setenv     feed_back$name       BUFFERED

 @ n++
end

 setenv     feed_back       BUFFERED

#              $GRID_BDY_2D
#              $MET_BDY_2D
#              $I_MET_BDY_3D

 set flist = ( $EMIS_1\
               $INIT_GASC_1\
               $BNDY_GASC_1\
               $INIT_AERO_1\
               $BNDY_AERO_1\
               $INIT_NONR_1\
               $BNDY_NONR_1\
               $INIT_TRAC_1\
               $BNDY_TRAC_1 )
 foreach file ( $flist )
    if (! (-e $file) ) then
       echo " $file not found "
#      exit 1
       endif
    end

# out.q
# action if the output files already exist ...
 setenv CTM_CONC_1      "$OUTDIR/$CONCfile -v"
 setenv A_CONC_1        "$OUTDIR/$ACONCfile -v"
 setenv CTM_VCONC       "$OUTDIR/$VCONCfile -v"
#setenv L_CONC_1        "$OUTDIR/$LCONCfile -v"
 setenv CTM_DRY_DEP_1   "$OUTDIR/$DD1file -v"
 setenv CTM_DEPV_DIAG   "$OUTDIR/$DV1file -v"
 setenv CTM_PT3D_DIAG   "$OUTDIR/$PT1file -v"
 setenv B3GTS_S         "$OUTDIR/$BIO1file -v"
 setenv CTM_WET_DEP_1   "$OUTDIR/$WD1file -v"
 setenv CTM_WET_DEP_2   "$OUTDIR/$WD2file -v"
 setenv CTM_VIS_1       "$OUTDIR/$AV1file -v"
 setenv CTM_DIAM_1      "$OUTDIR/$AD1file -v"
 setenv CTM_RJ_1        "$OUTDIR/$RJ1file -v"
 setenv CTM_RJ_2        "$OUTDIR/$RJ2file -v"
 setenv CTM_SSEMIS_1    "$OUTDIR/$SSEfile -v"
 setenv CTM_DUST_EMIS_1 "$OUTDIR/$DSEfile -v"
 setenv CTM_IPR_1       "$OUTDIR/$PA1file -v"
 setenv CTM_IPR_2       "$OUTDIR/$PA2file -v"
 setenv CTM_IPR_3       "$OUTDIR/$PA3file -v"
 setenv CTM_IRR_1       "$OUTDIR/$IRR1file -v"
 setenv CTM_IRR_2       "$OUTDIR/$IRR2file -v"
 setenv CTM_IRR_3       "$OUTDIR/$IRR3file -v"
 setenv CTM_PING_1      "$OUTDIR/$PG1file -v"
 setenv CTM_PING_DIAM_1 "$OUTDIR/$PGDfile -v"
 setenv CTM_PING_DDEP_1 "$OUTDIR/$PGWfile -v"
 setenv S_CGRID          $OUTDIR/$CGRIDfile

 if ($SD_TIME_SERIES == T) then
    setenv CTM_SD_TS       "$OUTDIR/$SD_TSfile -v"
 endif

#              $L_CONC_1\

 set flist = ( $CTM_CONC_1\
               $A_CONC_1\
               $CTM_VCONC\
               $CTM_DRY_DEP_1\
               $CTM_DEPV_DIAG\
               $CTM_PT3D_DIAG\
               $B3GTS_S\
               $CTM_WET_DEP_1\
               $CTM_WET_DEP_2\
               $CTM_VIS_1\
               $CTM_DIAM_1\
               $CTM_SSEMIS_1\
               $CTM_DUST_EMIS_1\
               $CTM_PING_1\
               $CTM_PING_DIAM_1 \
               $CTM_PING_DDEP_1 \
               $CTM_IPR_1\
               $CTM_IPR_2\
               $CTM_IPR_3\
               $CTM_IRR_1\
               $CTM_IRR_2\
               $CTM_IRR_3 )
 unalias rm 
 foreach file ( $flist )
    if ( $file != '-v' ) then
       if ( -e $file ) then
          echo " $file already exists "
          if ( $DISP == 'delete' ) then
             echo " $file being deleted "
             rm $file
             else if ( $DISP == 'update' ) then
             echo " $file being updated "
             else
             echo "*** RUN ABORTED ***"
             exit 1
             endif
          endif
       endif
    end