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

Last change on this file since 1063 was 1030, checked in by lmdzadmin, 16 years ago

Nettoyage de commentaires + correction d'un bug dans le cas sans convection
FH/IM

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
RevLine 
[524]1!
2! $Header$
3!
[959]4
5      IF (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
16      DO it=1,nqmax
17C champs 2D
[673]18
[524]19
[766]20       CALL histwrite_phy(nid_tra,tnom(it+2),itau_w,tr_seri(:,:,it))
[524]21       if (lessivage) THEN
[766]22       CALL histwrite_phy(nid_tra,"fl"//tnom(it+2),itau_w,
23     .                                   flestottr(:,:,it))
[524]24      endif
[541]25     
26c----Olivia
[766]27       CALL histwrite_phy(nid_tra,"d_tr_th_"//tnom(it+2),itau_w,
28     .                                           d_tr_th(:,:,it))
[1030]29
30         if(iflag_con.GE.2) then
[766]31       CALL histwrite_phy(nid_tra,"d_tr_cv_"//tnom(it+2),itau_w,
32     .                                           d_tr_cv(:,:,it))
[1030]33         endif !(iflag_con.GE.2) then
[766]34       CALL histwrite_phy(nid_tra,"d_tr_cl_"//tnom(it+2),itau_w,
35     .                                           d_tr_cl(:,:,it))
[541]36c---fin Olivia     
37     
[524]38      ENDDO
39
40
41C abder
[766]42         CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1)
[524]43
[766]44         CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1)
[524]45
[766]46         CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1)
[524]47
[766]48         CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2)
[524]49
[766]50         CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3)
[524]51
[766]52         CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4)
[524]53
[766]54         CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1)
[524]55
[766]56         CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2)
[524]57
[766]58         CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3)
[524]59
[766]60         CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4)
61        CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay)
[524]62
[766]63        CALL histwrite_phy(nid_tra,"t",itau_w,t_seri)
64        CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu)
65        CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd)
66        CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u)
67        CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d)
68        CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d)
69        CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u)
70        CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh)
[524]71
72
73c abder
74
75      if (ok_sync) then
[766]76c$OMP MASTER
77        call histsync(nid_tra)
78c$OMP END MASTER
[524]79       endif
80
[959]81       END IF
[524]82
[766]83
84
Note: See TracBrowser for help on using the repository browser.