/[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.3 by jscott, Mon Apr 23 21:20:18 2007 UTC revision 1.6 by jscott, Wed Oct 17 21:07:21 2007 UTC
# Line 44  C**** Line 44  C****
44  #include "AGRID.h"  #include "AGRID.h"
45  #endif  #endif
46    
47  #if ( defined CPL_TEM )  cjrs done in driver.h #if ( defined CPL_TEM )
48  #include "TEM.h"  cjrs#include "TEM.h"
49  #endif  cjrs#endif
50  !  !
51  ! === Chien Wang 062904  ! === Chien Wang 062904
52  !  !
# 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')            open (876,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 741  C      For restart of the run Line 746  C      For restart of the run
746            open( unit=547,file=nwrfl,            open( unit=547,file=nwrfl,
747       *    status='OLD',form='unformatted')       *    status='OLD',form='unformatted')
748  #if ( defined CPL_TEM )  #if ( defined CPL_TEM )
749            open (367,file=last_nep,form='unformatted',status='old')            open (876,file=last_nep,form='unformatted',status='old')
750            open (877,file=last_clm,form='unformatted',status='old')            open (877,file=last_clm,form='unformatted',status='old')
751  #if ( defined CPL_NEM )  #if ( defined CPL_NEM )
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.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22