source: LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histrac.h @ 1183

Last change on this file since 1183 was 1115, checked in by jghattas, 16 years ago

Si ecrit_tra=0, pas de creation ou ecriture de la fichier histrac.nc

JG

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 KB
Line 
1!
2! $Header$
3!
4
5      IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
6      ndex = 0
7      ndex2d = 0
8      ndex3d = 0
9c
10      itau_w = itau_phy + nstep
11
12      CALL histwrite_phy(nid_tra,"phis",itau_w,pphis)
13C
14      CALL histwrite_phy(nid_tra,"aire",itau_w,airephy)
15
16      DO it=1,nbtr
17       iiq=niadv(it+2)
18
19       CALL histwrite_phy(nid_tra,tname(iiq),itau_w,tr_seri(:,:,it))
20       if (lessivage) THEN
21       CALL histwrite_phy(nid_tra,"fl"//tname(iiq),itau_w,
22     .                                   flestottr(:,:,it))
23      endif
24     
25c----Olivia
26       CALL histwrite_phy(nid_tra,"d_tr_th_"//tname(iiq),itau_w,
27     .                                           d_tr_th(:,:,it))
28
29         if(iflag_con.GE.2) then
30       CALL histwrite_phy(nid_tra,"d_tr_cv_"//tname(iiq),itau_w,
31     .                                           d_tr_cv(:,:,it))
32         endif !(iflag_con.GE.2) then
33       CALL histwrite_phy(nid_tra,"d_tr_cl_"//tname(iiq),itau_w,
34     .                                           d_tr_cl(:,:,it))
35c---fin Olivia     
36     
37      ENDDO
38
39
40C abder
41         CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1)
42
43         CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1)
44
45         CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1)
46
47         CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2)
48
49         CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3)
50
51         CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4)
52
53         CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1)
54
55         CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2)
56
57         CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3)
58
59         CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4)
60        CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay)
61
62        CALL histwrite_phy(nid_tra,"t",itau_w,t_seri)
63        CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu)
64        CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd)
65        CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u)
66        CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d)
67        CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d)
68        CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u)
69        CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh)
70
71
72c abder
73
74      if (ok_sync) then
75c$OMP MASTER
76        call histsync(nid_tra)
77c$OMP END MASTER
78       endif
79
80       END IF !ecrit_tra>0. .AND. config_inca == 'none'
81
82
83
Note: See TracBrowser for help on using the repository browser.