/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/assign.inc
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/inc/assign.inc

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

revision 1.1 by jscott, Fri Aug 11 19:33:31 2006 UTC revision 1.2 by jscott, Wed Sep 2 15:58:37 2009 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  !       ================================================================  !       ================================================================
5  !  !
# Line 62  c     open(160,file=chemdata(1:id2-1)//' Line 64  c     open(160,file=chemdata(1:id2-1)//'
64       &        form='unformatted',       &        form='unformatted',
65       &        status='old')       &        status='old')
66    
67    !     New init file hfc, pfc, and sf6 for Dec 1990
68          id1=index(chem_init4pfc," ")
69          print *,chem_init2
70          open(161,file=chemdata(1:id2-1)//chem_init4pfc(1:id1-1),
71         &        form='unformatted',
72         &        status='old')
73    
74        open(162,file=chemdata(1:id2-1)//'topo3_46x11',        open(162,file=chemdata(1:id2-1)//'topo3_46x11',
75       &        form='unformatted',       &        form='unformatted',
76       &        status='old')       &        status='old')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22