/[MITgcm]/MITgcm_contrib/jscott/igsm/src/bgrghg.F
ViewVC logotype

Contents of /MITgcm_contrib/jscott/igsm/src/bgrghg.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Aug 11 19:35:30 2006 UTC (18 years, 11 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
Error occurred while calculating annotation data.
atm2d package

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

  ViewVC Help
Powered by ViewVC 1.1.22