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

Diff of /MITgcm_contrib/jscott/igsm/src/input.F

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

revision 1.4 by jscott, Thu Oct 4 20:40:27 2007 UTC revision 1.5 by jscott, Mon Oct 15 15:03:55 2007 UTC
# Line 77  c     CHARACTER*8 RECORD,ANDEND,NLREC*80 Line 77  c     CHARACTER*8 RECORD,ANDEND,NLREC*80
77        character *120 file1,file2,plotfl,nwrfl        character *120 file1,file2,plotfl,nwrfl
78        character * 120  t3file,tsfile,zmfile,qffile,clfile,wrcldf        character * 120  t3file,tsfile,zmfile,qffile,clfile,wrcldf
79       &    ,ochemfile,deepco2in       &    ,ochemfile,deepco2in
80       &    ,oco2file,co2rfile,caruptfile,flrco2av  cjrs DRIVER.h caruptfile  & ,oco2file,co2rfile,caruptfile,flrco2av
81         &    ,oco2file,co2rfile,flrco2av
82       &    ,ghg_monthly,ghg_monthly2,co2_data,o3_data       &    ,ghg_monthly,ghg_monthly2,co2_data,o3_data
83       &    ,bgrghg_data       &    ,bgrghg_data
84        character * 120 sulf1986,sulf2050,sulfamp,SO2_EM,        character * 120 sulf1986,sulf2050,sulfamp,SO2_EM,
85       &  S0C_data,       &  S0C_data,
86       &  dirdat1,dirdat2       &  dirdat1,dirdat2
87       &  ,bc_data       &  ,bc_data
88        character * 120 chemdata,chemout,last_nep,init_4nem,pov_deepo        character * 120 chemdata,chemout,init_4nem,pov_deepo
89    cjrs DRIVER.h last_nep character * 120 chemdata,chemout,last_nep,init_4nem,pov_deepo
90       & ,flin_nep,last_clm,emiss_data,SO2ERATIO,SEN_dat       & ,flin_nep,last_clm,emiss_data,SO2ERATIO,SEN_dat
91       &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,  cjrs DRIVER.h fnememiss &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,
92         &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,
93       & chem_init,chem_init2,chemrstfl       & chem_init,chem_init2,chemrstfl
94        common/files/file1,file2,plotfl,nwrfl,qffile,clfile,wrcldf        common/files/file1,file2,plotfl,nwrfl,qffile,clfile,wrcldf
95       *,t3file,tsfile,zmfile,ochemfile,deepco2in       *,t3file,tsfile,zmfile,ochemfile,deepco2in
# Line 556  c Line 559  c
559  c     open file for carbon uptake  c     open file for carbon uptake
560  #if ( defined CPL_TEM || defined CPL_OCEANCO2 )  #if ( defined CPL_TEM || defined CPL_OCEANCO2 )
561  c     open(333,file=caruptfile,status='new',form='formatted')  c     open(333,file=caruptfile,status='new',form='formatted')
562        open(333,file=caruptfile,form='formatted')        open(333,file=caruptfile,status='replace',form='formatted')
563          close(333)
564  #endif  #endif
565    
566  #if ( defined CPL_OCEANCO2 && defined ML_2D)  #if ( defined CPL_OCEANCO2 && defined ML_2D)
# Line 720  c     LMCM=LTM+2 Line 724  c     LMCM=LTM+2
724       *    status='OLD',form='unformatted')       *    status='OLD',form='unformatted')
725  #endif  #endif
726  #if ( defined CPL_TEM )  #if ( defined CPL_TEM )
727            open (367,file=last_nep,form='unformatted',status='new')  cjrs          open (367,file=last_nep,form='unformatted',status='new')
728            open (877,file=last_clm,form='unformatted',status='new')            open (877,file=last_clm,form='unformatted',status='new')
729  c         file last_clm contains data for posible restart of NEM  c         file last_clm contains data for posible restart of NEM
730  c         this file is writen at the end of the run  c         this file is writen at the end of the run
# Line 728  c         this file is writen at the end Line 732  c         this file is writen at the end
732            open (368,file=init_4nem,form='unformatted',status='old')            open (368,file=init_4nem,form='unformatted',status='old')
733  c         file init_4nem contains data for the restart of NEM  c         file init_4nem contains data for the restart of NEM
734  c         from the results of a previous run  c         from the results of a previous run
735            open (277,file=fnememiss,form='unformatted',status='new')            open (277,file=fnememiss,form='unformatted',status='replace')
736              close(277)
737  #endif  #endif
738  #endif  #endif
739  #if ( defined CPL_OCEANCO2 && defined ML_2D )  #if ( defined CPL_OCEANCO2 && defined ML_2D )
# Line 747  C      For restart of the run Line 752  C      For restart of the run
752            open (368,file=init_4nem,form='unformatted',status='old')            open (368,file=init_4nem,form='unformatted',status='old')
753  c         file init_4nem contains data for the restart of NEM  c         file init_4nem contains data for the restart of NEM
754  c         from the results of a previous run  c         from the results of a previous run
755            open (277,file=fnememiss,form='unformatted',status='new')            open (277,file=fnememiss,form='unformatted',status='replace')
756              close(277)
757  #endif  #endif
758  #endif  #endif
759  #if ( defined CPL_OCEANCO2 && defined ML_2D )  #if ( defined CPL_OCEANCO2 && defined ML_2D )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22