source: LMDZ4/trunk/libf/phylmd/write_histhfNMC.h @ 1600

Last change on this file since 1600 was 1398, checked in by musat, 15 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:executable set to *
File size: 1.9 KB
Line 
1!
2! $Header$
3!
4      IF (ok_histNMC(3)) 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_hfnmc,"tnondef",itau_w,tnondef(:,:,3))
17c
18       CALL histwrite_phy(nid_hfnmc,"ta",itau_w,twriteSTD3)
19c
20       CALL histwrite_phy(nid_hfnmc,"zg",itau_w,phiwriteSTD3)
21c
22       CALL histwrite_phy(nid_hfnmc,"hus",itau_w,qwriteSTD3)
23c
24       CALL histwrite_phy(nid_hfnmc,"hur",itau_w,rhwriteSTD3)
25c
26       CALL histwrite_phy(nid_hfnmc,"ua",itau_w,uwriteSTD3)
27c
28       CALL histwrite_phy(nid_hfnmc,"va",itau_w,vwriteSTD3)
29c
30       CALL histwrite_phy(nid_hfnmc,"wap",itau_w,wwriteSTD3)
31c
32       DO k=1, nlevSTD
33        DO i=1, klon
34         IF(tnondef(i,k,3).NE.missing_val) THEN
35          zx_tmp_fiNC(i,k) = (100.*tnondef(i,k,3))/freq_moyNMC(3)
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_hfnmc,"psbg",itau_w,zx_tmp_fiNC)
43c
44       CALL histwrite_phy(nid_hfnmc,"uv",itau_w,uvsumSTD(:,:,3))
45c
46       CALL histwrite_phy(nid_hfnmc,"vq",itau_w,vqsumSTD(:,:,3))
47c
48       CALL histwrite_phy(nid_hfnmc,"vT",itau_w,vTsumSTD(:,:,3))
49c
50       CALL histwrite_phy(nid_hfnmc,"wq",itau_w,wqsumSTD(:,:,3))
51c
52       CALL histwrite_phy(nid_hfnmc,"vphi",itau_w,vphisumSTD(:,:,3))
53c
54       CALL histwrite_phy(nid_hfnmc,"wT",itau_w,wTsumSTD(:,:,3))
55c
56       CALL histwrite_phy(nid_hfnmc,"uxu",itau_w,u2sumSTD(:,:,3))
57c
58       CALL histwrite_phy(nid_hfnmc,"vxv",itau_w,v2sumSTD(:,:,3))
59c
60       CALL histwrite_phy(nid_hfnmc,"TxT",itau_w,T2sumSTD(:,:,3))
61c
62c     ENDIF !type_run
63c
64      if (ok_sync) then
65c$OMP MASTER
66        call histsync(nid_hfnmc)
67c$OMP END MASTER
68      endif
69c
70      ENDIF !      (ok_histNMC(3)) THEN
Note: See TracBrowser for help on using the repository browser.