source: LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histREGDYN.h @ 2570

Last change on this file since 2570 was 634, checked in by Laurent Fairhead, 20 years ago

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF
  • 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     
6      if (monocpu) then
7
8c   Comprendre comment marche el i=nint(zout/zsto)
9c
10      ndex2d = 0
11      ndex3d = 0
12c
13c        itap = 0
14c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
15c        zout = dtime * ecrit_mth
16
17c        zsto = dtime
18c        zout = dtime * ecrit_mth
19c        zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn))
20         itau_w = itau_phy + itap
21
22       CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1),
23     &               kmaxm1*lmaxm1*iwmax,ndex3d)
24c
25       CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1),
26     &               kmaxm1*lmaxm1*iwmax,ndex3d)
27c
28       CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1),
29     &               kmaxm1*lmaxm1*iwmax,ndex3d)
30c
31       CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2),
32     &               kmaxm1*lmaxm1*iwmax,ndex3d)
33c
34       CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2),
35     &               kmaxm1*lmaxm1*iwmax,ndex3d)
36c
37       CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2),
38     &               kmaxm1*lmaxm1*iwmax,ndex3d)
39c
40       CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3),
41     &               kmaxm1*lmaxm1*iwmax,ndex3d)
42c
43       CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3),
44     &               kmaxm1*lmaxm1*iwmax,ndex3d)
45c
46       CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3),
47     &               kmaxm1*lmaxm1*iwmax,ndex3d)
48c
49       CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4),
50     &               kmaxm1*lmaxm1*iwmax,ndex3d)
51c
52       CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4),
53     &               kmaxm1*lmaxm1*iwmax,ndex3d)
54c
55       CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4),
56     &               kmaxm1*lmaxm1*iwmax,ndex3d)
57c
58       CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5),
59     &               kmaxm1*lmaxm1*iwmax,ndex3d)
60c
61       CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5),
62     &               kmaxm1*lmaxm1*iwmax,ndex3d)
63c
64       CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5),
65     &               kmaxm1*lmaxm1*iwmax,ndex3d)
66
67      if (ok_sync) then
68        call histsync(nid_regdyn)
69      endif
70     
71      endif ! monocpu
72
73      endif
Note: See TracBrowser for help on using the repository browser.