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
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