source: LMDZ4/trunk/libf/phylmd/write_histmthNMC.h @ 1398

Last change on this file since 1398 was 1398, checked in by musat, 14 years ago

Last corrections for CMIP5:

  • Add O3 at standard level files histmthNMC.nc
  • Add positive attribute "down" for vertical axes for all output files
  • Replace "inst" by "ave" for hist*NMC.nc files to have time_counter and bounds for time axis (Marie-Alice's hint)
  • Correct units for vertical axes : mb instead of hPa
  • Add mass flux at the bottom of clouds
  • Comment non initialized variables (s_capCL, s_oliqCL, s_cteiCL, s_trmb1, s_trmb2, s_trmb3) for the output files
  • Geopotential field phy850, phi700, phi500, etc are modified to "geopotential height and are called z850, z700, z500, etc
  • Meaning of specific humidity outputs - ovapinit and ovap - were interchanged
  • Fields albs, albslw become alb1, alb2 in output files
  • Correct title for rugs_* fields
  • Correct units for pbase and ptop are Pa (not mb)
  • Correct ndayrain field

FH/JLD/JYG/MAF/IM

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.6 KB
Line 
1!
2! $Header$
3!
4      IF (ok_histNMC(1)) THEN
5c
6       ndex3d = 0
7       itau_w = itau_phy + itap
8ccc
9c  Champs interpolles sur des niveaux de pression du NMC
10c
11c     PARAMETER(nout=3) 
12c nout=1 : in=pdtphys,    out=mth
13c nout=2 : in=pdtphys,    out=day
14c nout=3 : in=pdtphys,    out=hf
15ccc
16       CALL histwrite_phy(nid_mthnmc,"tnondef",itau_w,tnondef(:,:,1))
17c
18       CALL histwrite_phy(nid_mthnmc,"ta",itau_w,twriteSTD(:,:,1))
19c
20       CALL histwrite_phy(nid_mthnmc,"zg",itau_w,phiwriteSTD(:,:,1))
21c
22       CALL histwrite_phy(nid_mthnmc,"hus",itau_w,qwriteSTD(:,:,1))
23c
24       CALL histwrite_phy(nid_mthnmc,"hur",itau_w,rhwriteSTD(:,:,1))
25c
26       CALL histwrite_phy(nid_mthnmc,"ua",itau_w,uwriteSTD(:,:,1))
27c
28       CALL histwrite_phy(nid_mthnmc,"va",itau_w,vwriteSTD(:,:,1))
29c
30       CALL histwrite_phy(nid_mthnmc,"wap",itau_w,wwriteSTD(:,:,1))
31c
32       DO k=1, nlevSTD
33        DO i=1, klon
34         IF(tnondef(i,k,1).NE.missing_val) THEN
35          zx_tmp_fiNC(i,k) = (100.*tnondef(i,k,1))/freq_moyNMC(1)
36         ELSE
37          zx_tmp_fiNC(i,k) = missing_val
38         ENDIF
39        ENDDO
40       ENDDO !k=1, nlevSTD
41c
42       CALL histwrite_phy(nid_mthnmc,"psbg",itau_w,zx_tmp_fiNC)
43c
44       CALL histwrite_phy(nid_mthnmc,"uv",itau_w,uvsumSTD(:,:,1))
45c
46       CALL histwrite_phy(nid_mthnmc,"vq",itau_w,vqsumSTD(:,:,1))
47c
48       CALL histwrite_phy(nid_mthnmc,"vT",itau_w,vTsumSTD(:,:,1))
49c
50       CALL histwrite_phy(nid_mthnmc,"wq",itau_w,wqsumSTD(:,:,1))
51c
52       CALL histwrite_phy(nid_mthnmc,"vphi",itau_w,vphisumSTD(:,:,1))
53c
54       CALL histwrite_phy(nid_mthnmc,"wT",itau_w,wTsumSTD(:,:,1))
55c
56       CALL histwrite_phy(nid_mthnmc,"uxu",itau_w,u2sumSTD(:,:,1))
57c
58       CALL histwrite_phy(nid_mthnmc,"vxv",itau_w,v2sumSTD(:,:,1))
59c
60       CALL histwrite_phy(nid_mthnmc,"TxT",itau_w,T2sumSTD(:,:,1))
61c
62       DO k=1, nlevSTD
63        DO i=1, klon
64         IF(O3sumSTD(i,k,1).NE.missing_val) THEN
65          zx_tmp_fiNC(i,k) = O3sumSTD(i,k,1) * 1.e+9
66         ELSE
67          zx_tmp_fiNC(i,k) = missing_val
68         ENDIF
69        ENDDO
70       ENDDO !k=1, nlevSTD
71       CALL histwrite_phy(nid_mthnmc,"tro3",itau_w,
72     $ zx_tmp_fiNC)
73c
74       if (read_climoz == 2) THEN
75       DO k=1, nlevSTD
76        DO i=1, klon
77         IF(O3daysumSTD(i,k,1).NE.missing_val) THEN
78          zx_tmp_fiNC(i,k) = O3daysumSTD(i,k,1) * 1.e+9
79         ELSE
80          zx_tmp_fiNC(i,k) = missing_val
81         ENDIF
82        ENDDO
83       ENDDO !k=1, nlevSTD
84c
85        CALL histwrite_phy(nid_mthnmc,"tro3_daylight",itau_w,
86     $  zx_tmp_fiNC)
87       endif
88c
89      if (ok_sync) then
90c$OMP MASTER
91        call histsync(nid_mthnmc)
92c$OMP END MASTER
93      endif
94c
95      ENDIF !(ok_histNMC(1)) THEN
Note: See TracBrowser for help on using the repository browser.