DIC_COST.h
         _RL totcost
c control variables
cQQ      _RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
cQQ      _RL rain_ratio(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
cQQ      _RL KScav
cQQ      _RL ligand_stab
cQQ      _RL ligand_tot

         COMMON /DIC_COST_CTRL/
     &    totcost
cQQ  &   ,alpha, rain_ratio, KScav, ligand_stab, ligand_tot