source: LMDZ4/trunk/libf/phylmd/write_histrac.h @ 1244

Last change on this file since 1244 was 1146, checked in by Laurent Fairhead, 16 years ago

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

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