/[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.5 by jscott, Mon Oct 15 15:03:55 2007 UTC revision 1.6 by jscott, Wed Oct 17 21:07:21 2007 UTC
# Line 724  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  cjrs          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 746  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')
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22