copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
*
      integer Grd_ni,Grd_nj,Grd_iref,Grd_jref,Grd_id,
     $        Grd_ig1,Grd_ig2,Grd_ig3,Grd_ig4,
     $        Grd_ig1p,Grd_ig2p,Grd_ig3p,Grd_ig4p,endgrdi
      real Grd_latr,Grd_lonr,Grd_dx,Grd_dgrw,Grd_phir,
     $     Grd_xlat1,Grd_xlon1,Grd_xlat2,Grd_xlon2,endgrdr
      character*1 Grd_proj_S,endgrdc
*
      common /gril_i/ Grd_ni,Grd_nj,Grd_iref,Grd_jref,Grd_id,
     $                Grd_ig1,Grd_ig2,Grd_ig3,Grd_ig4,
     $                Grd_ig1p,Grd_ig2p,Grd_ig3p,Grd_ig4p,endgrdi
      common /gril_r/ Grd_latr,Grd_lonr,Grd_dx,Grd_dgrw,Grd_phir,
     $                Grd_xlat1,Grd_xlon1,Grd_xlat2,Grd_xlon2,endgrdr
      common /gril_c/ Grd_proj_S,endgrdc
*
      logical Grdc_bcs_L,Grdc_init3d_L,Grdc_initsfc_L
      integer Grdc_ni,Grdc_nj,Grdc_iref,Grdc_jref,Grdc_id,
     $        Grdc_gid,Grdc_gif,Grdc_gjd,Grdc_gjf,Grdc_ndt,
     $        Grdc_nsor,Grd_ig1c,Grd_ig2c,Grd_ig3c,Grd_ig4c,
     $        Grdc_Hblen_x,Grdc_Hblen_y,Grdc_hbwe,Grdc_hbsn,
     $        Grdc_start,Grdc_nbits,endGrdci
      real Grdc_latr,Grdc_lonr,Grdc_dx,Grdc_dgrw,Grdc_phir,
     $     Grdc_xlat1,Grdc_xlon1,Grdc_xlat2,Grdc_xlon2,endGrdcr
      integer max_trnm
      parameter (max_trnm=1000)
      character*1 Grdc_proj_S
      character*4 Grdc_trnm_S(max_trnm)
      character*12 Grdc_nfe
      character*16 Grdc_runstrt_S
*
      common /gril2_i/ Grdc_ni,Grdc_nj,Grdc_iref,Grdc_jref,Grdc_id,
     $                 Grdc_gid,Grdc_gif,Grdc_gjd,Grdc_gjf,Grdc_ndt,
     $                 Grdc_nsor,Grd_ig1c,Grd_ig2c,Grd_ig3c,Grd_ig4c,
     $                 Grdc_Hblen_x,Grdc_Hblen_y,Grdc_hbwe,Grdc_hbsn,
     $                 Grdc_start,Grdc_bcs_L,Grdc_init3d_L,
     $                 Grdc_initsfc_L,Grdc_nbits,endGrdci
      common /gril2_r/ Grdc_latr,Grdc_lonr,Grdc_dx,Grdc_dgrw,Grdc_phir,
     $                 Grdc_xlat1,Grdc_xlon1,Grdc_xlat2,Grdc_xlon2,
     $                 endGrdcr
      common /gril2_c1/ Grdc_proj_S
      common /gril2_c2/ Grdc_trnm_S
      common /gril2_c3/ Grdc_nfe   
      common /gril2_c4/ Grdc_runstrt_S