source: LMDZ4/trunk/libf/phylmd/write_histREGDYN.h @ 682

Last change on this file since 682 was 644, checked in by Laurent Fairhead, 19 years ago

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF

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