igsm/src/bgrghg.F


#include "ctrparam.h"

      SUBROUTINE bgrghg(YEART)
      common /bghgdata/bgrghg_data
      common/ BACKGRGHG/GHGBGR(5)
      character * 120 bgrghg_data
      iyeart=yeart
      nyd=300
      open (unit=561,file=bgrghg_data,
     &  status='OLD',form='formatted')
   50 continue
      read (561,*,end=500),ighgyr,GHGBGR
      if(ighgyr.eq.iyeart) then 
        close (561)
        return
      endif
      go to 50
  500 continue
      print *,'From bgrghg wrong YEART ',YEART
      stop
      return
      end
1	jscott	1.1
2			#include "ctrparam.h"
3
4			SUBROUTINE bgrghg(YEART)
5			common /bghgdata/bgrghg_data
6			common/ BACKGRGHG/GHGBGR(5)
7			character * 120 bgrghg_data
8			iyeart=yeart
9			nyd=300
10			open (unit=561,file=bgrghg_data,
11			& status='OLD',form='formatted')
12			50 continue
13			read (561,*,end=500),ighgyr,GHGBGR
14			if(ighgyr.eq.iyeart) then
15			close (561)
16			return
17			endif
18			go to 50
19			500 continue
20			print *,'From bgrghg wrong YEART ',YEART
21			stop
22			return
23			end