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

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

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:35:33 2006 UTC revision 1.4 by jscott, Thu Sep 17 15:48:38 2009 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "ctrparam.h"  #include "ctrparam.h"
5          subroutine wr_rstrt_nem          subroutine wr_rstrt_nem
6  #include "BD2G04.COM"  #include "BD2G04.COM"
7  #include "TEM.COM"  #include "TEM.h"
8    
9    C  unit 877 is last_clm file (really nem pickup)
10    
11           if (1.eq.0) then
12          write(877),co24tem,          write(877),co24tem,
13       &            o34tem,       &            o34tem,
14       &            temp4tem,       &            temp4tem,
# Line 22  c    &            istrmdry Line 29  c    &            istrmdry
29  cprint *,'AET for J=23'  cprint *,'AET for J=23'
30  c       print *,(aet(nc,23),nc=1,ncoh)  c       print *,(aet(nc,23),nc=1,ncoh)
31          rewind 877          rewind 877
32            endif
33    
34    C  unit 876 is last_nep file (older code, unit 367)
35            write(876),adupt,temco2
36         &          ,temch4,temn2o
37            rewind 876
38    
39          return          return
40          end          end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22