--- MITgcm_contrib/jscott/igsm/src/input.F	2007/10/04 20:40:27	1.4
+++ MITgcm_contrib/jscott/igsm/src/input.F	2007/10/15 15:03:55	1.5
@@ -77,16 +77,19 @@
       character *120 file1,file2,plotfl,nwrfl
       character * 120  t3file,tsfile,zmfile,qffile,clfile,wrcldf
      &	  ,ochemfile,deepco2in
-     &	  ,oco2file,co2rfile,caruptfile,flrco2av
+cjrs DRIVER.h caruptfile  & ,oco2file,co2rfile,caruptfile,flrco2av
+     &	  ,oco2file,co2rfile,flrco2av
      &    ,ghg_monthly,ghg_monthly2,co2_data,o3_data
      &    ,bgrghg_data
       character * 120 sulf1986,sulf2050,sulfamp,SO2_EM,
      &  S0C_data,
      &  dirdat1,dirdat2
      &  ,bc_data
-      character * 120 chemdata,chemout,last_nep,init_4nem,pov_deepo
+      character * 120 chemdata,chemout,init_4nem,pov_deepo
+cjrs DRIVER.h last_nep character * 120 chemdata,chemout,last_nep,init_4nem,pov_deepo
      & ,flin_nep,last_clm,emiss_data,SO2ERATIO,SEN_dat
-     &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,
+cjrs DRIVER.h fnememiss &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,fnememiss,
+     &  ,fl_init_alkt,fl_init_salt,fl_dic_eq,
      & chem_init,chem_init2,chemrstfl
       common/files/file1,file2,plotfl,nwrfl,qffile,clfile,wrcldf
      *,t3file,tsfile,zmfile,ochemfile,deepco2in
@@ -556,7 +559,8 @@
 c     open file for carbon uptake
 #if ( defined CPL_TEM || defined CPL_OCEANCO2 )
 c     open(333,file=caruptfile,status='new',form='formatted')
-      open(333,file=caruptfile,form='formatted')
+      open(333,file=caruptfile,status='replace',form='formatted')
+      close(333)
 #endif
 
 #if ( defined CPL_OCEANCO2 && defined ML_2D)
@@ -720,7 +724,7 @@
      *    status='OLD',form='unformatted')
 #endif
 #if ( defined CPL_TEM )
-          open (367,file=last_nep,form='unformatted',status='new')
+cjrs          open (367,file=last_nep,form='unformatted',status='new')
           open (877,file=last_clm,form='unformatted',status='new')
 c         file last_clm contains data for posible restart of NEM
 c         this file is writen at the end of the run
@@ -728,7 +732,8 @@
           open (368,file=init_4nem,form='unformatted',status='old')
 c         file init_4nem contains data for the restart of NEM
 c         from the results of a previous run
-          open (277,file=fnememiss,form='unformatted',status='new')
+          open (277,file=fnememiss,form='unformatted',status='replace')
+          close(277)
 #endif
 #endif
 #if ( defined CPL_OCEANCO2 && defined ML_2D )
@@ -747,7 +752,8 @@
           open (368,file=init_4nem,form='unformatted',status='old')
 c         file init_4nem contains data for the restart of NEM
 c         from the results of a previous run
-          open (277,file=fnememiss,form='unformatted',status='new')
+          open (277,file=fnememiss,form='unformatted',status='replace')
+          close(277)
 #endif
 #endif
 #if ( defined CPL_OCEANCO2 && defined ML_2D )