source: LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/write_histREGDYN.h @ 5306

Last change on this file since 5306 was 524, checked in by lmdzadmin, 20 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
Line 
1!
2! $Header$
3!
4      if (ok_regdyn) then
5
6c   Comprendre comment marche el i=nint(zout/zsto)
7c
8      ndex2d = 0
9      ndex3d = 0
10c
11c        itap = 0
12c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
13c        zout = dtime * ecrit_mth
14
15c        zsto = dtime
16c        zout = dtime * ecrit_mth
17c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
18         itau_w = itau_phy + itap
19
20       CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1),
21     &               kmaxm1*lmaxm1*iwmax,ndex3d)
22c
23       CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1),
24     &               kmaxm1*lmaxm1*iwmax,ndex3d)
25c
26       CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1),
27     &               kmaxm1*lmaxm1*iwmax,ndex3d)
28c
29       CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2),
30     &               kmaxm1*lmaxm1*iwmax,ndex3d)
31c
32       CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2),
33     &               kmaxm1*lmaxm1*iwmax,ndex3d)
34c
35       CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2),
36     &               kmaxm1*lmaxm1*iwmax,ndex3d)
37c
38       CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3),
39     &               kmaxm1*lmaxm1*iwmax,ndex3d)
40c
41       CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3),
42     &               kmaxm1*lmaxm1*iwmax,ndex3d)
43c
44       CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3),
45     &               kmaxm1*lmaxm1*iwmax,ndex3d)
46c
47       CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4),
48     &               kmaxm1*lmaxm1*iwmax,ndex3d)
49c
50       CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4),
51     &               kmaxm1*lmaxm1*iwmax,ndex3d)
52c
53       CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4),
54     &               kmaxm1*lmaxm1*iwmax,ndex3d)
55c
56       CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5),
57     &               kmaxm1*lmaxm1*iwmax,ndex3d)
58c
59       CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5),
60     &               kmaxm1*lmaxm1*iwmax,ndex3d)
61c
62       CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5),
63     &               kmaxm1*lmaxm1*iwmax,ndex3d)
64
65      if (ok_sync) then
66        call histsync(nid_regdyn)
67      endif
68
69      endif
Note: See TracBrowser for help on using the repository browser.