source: LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histREGDYN.h @ 1546

Last change on this file since 1546 was 500, checked in by (none), 21 years ago

This commit was manufactured by cvs2svn to create branch 'rel-LF'.

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 2.8 KB
Line 
1      if (ok_regdyn) then
2
3c   Comprendre comment marche el i=nint(zout/zsto)
4c
5      ndex2d = 0
6      ndex3d = 0
7c
8c        itap = 0
9c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
10c        zout = dtime * ecrit_mth
11
12c        zsto = dtime
13c        zout = dtime * ecrit_mth
14c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
15         itau_w = itau_phy + itap
16c
17c     i = NINT(zout/zsto)
18c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
19c     CALL histwrite(nid_regdyn,"phis",i,zx_tmp_2d,iim*jjmp1,ndex2d)
20c
21c     i = NINT(zout/zsto)
22c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d)
23c     CALL histwrite(nid_regdyn,"aire",i,zx_tmp_2d,iim*jjmp1,ndex2d)
24C
25c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
26c     CALL histwrite(nid_regdyn,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
27c
28c 8 or day     CALL histwrite(nid_regdyn,"histoW",itap,histoW,
29c
30c     CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
31
32c
33c     CALL gr_fi_ecrit(iwmax,kmaxm1*lmaxm1,kmaxm1,lmaxm1,
34c    . histoW, zx_tmp_3d)
35
36       CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1),
37     &               kmaxm1*lmaxm1*iwmax,ndex3d)
38c
39       CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1),
40     &               kmaxm1*lmaxm1*iwmax,ndex3d)
41c
42       CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1),
43     &               kmaxm1*lmaxm1*iwmax,ndex3d)
44c
45       CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2),
46     &               kmaxm1*lmaxm1*iwmax,ndex3d)
47c
48       CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2),
49     &               kmaxm1*lmaxm1*iwmax,ndex3d)
50c
51       CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2),
52     &               kmaxm1*lmaxm1*iwmax,ndex3d)
53c
54       CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3),
55     &               kmaxm1*lmaxm1*iwmax,ndex3d)
56c
57       CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3),
58     &               kmaxm1*lmaxm1*iwmax,ndex3d)
59c
60       CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3),
61     &               kmaxm1*lmaxm1*iwmax,ndex3d)
62c
63       CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4),
64     &               kmaxm1*lmaxm1*iwmax,ndex3d)
65c
66       CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4),
67     &               kmaxm1*lmaxm1*iwmax,ndex3d)
68c
69       CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4),
70     &               kmaxm1*lmaxm1*iwmax,ndex3d)
71c
72       CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5),
73     &               kmaxm1*lmaxm1*iwmax,ndex3d)
74c
75       CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5),
76     &               kmaxm1*lmaxm1*iwmax,ndex3d)
77c
78       CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5),
79     &               kmaxm1*lmaxm1*iwmax,ndex3d)
80
81      if (ok_sync) then
82        call histsync(nid_regdyn)
83      endif
84
85      endif
Note: See TracBrowser for help on using the repository browser.