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

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

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


Revision 1.3 - (hide annotations) (download)
Thu Oct 18 16:48:58 2007 UTC (17 years, 9 months ago) by jscott
Branch: MAIN
Changes since 1.2: +8 -0 lines
do pov_nep write here rather than forward_step_atm2d to avoid endian problem

1 jscott 1.1 #include "ctrparam.h"
2     subroutine wr_rstrt_nem
3     #include "BD2G04.COM"
4 jscott 1.2 #include "TEM.h"
5 jscott 1.3
6     C unit 877 is last_clm file (really nem pickup)
7    
8 jscott 1.1 write(877),co24tem,
9     & o34tem,
10     & temp4tem,
11     & dtem4tem,
12     & sws4tem,
13     & pre4tem,
14     & strmdur,
15     & qstrm,
16     & aet,
17     & sh2o1m,
18     & sh2o2m,
19     & swe,sfr,drn,
20     & daytsoil,
21     & daysho,
22     & rsh2o
23     c & istorms,
24     c & istrmdry
25     cprint *,'AET for J=23'
26     c print *,(aet(nc,23),nc=1,ncoh)
27     rewind 877
28 jscott 1.3
29     C unit 876 is last_nep file (older code, unit 367)
30     write(876),adupt,temco2
31     rewind 876
32    
33 jscott 1.1 return
34     end

  ViewVC Help
Powered by ViewVC 1.1.22