/[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.2 by jscott, Mon Apr 23 21:20:18 2007 UTC revision 1.3 by jscott, Thu Oct 18 16:48:58 2007 UTC
# Line 2  Line 2 
2          subroutine wr_rstrt_nem          subroutine wr_rstrt_nem
3  #include "BD2G04.COM"  #include "BD2G04.COM"
4  #include "TEM.h"  #include "TEM.h"
5    
6    C  unit 877 is last_clm file (really nem pickup)
7    
8          write(877),co24tem,          write(877),co24tem,
9       &            o34tem,       &            o34tem,
10       &            temp4tem,       &            temp4tem,
# Line 22  c    &            istrmdry Line 25  c    &            istrmdry
25  cprint *,'AET for J=23'  cprint *,'AET for J=23'
26  c       print *,(aet(nc,23),nc=1,ncoh)  c       print *,(aet(nc,23),nc=1,ncoh)
27          rewind 877          rewind 877
28    
29    C  unit 876 is last_nep file (older code, unit 367)
30            write(876),adupt,temco2
31            rewind 876
32    
33          return          return
34          end          end
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22