source: LMDZ4/trunk/libf/phylmd/write_histdayNMC.h @ 1934

Last change on this file since 1934 was 1374, checked in by musat, 15 years ago

Add logical flags ok_histNMC(3) to manage output of the
standard pressure files hist*NMC.nc
IM

  • Property svn:executable set to *
File size: 1.5 KB
Line 
1!
2! $Header$
3!
4      IF (ok_histNMC(2)) 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      IF(lev_histdayNMC.EQ.nlevSTD) THEN
17       CALL histwrite_phy(nid_daynmc,"tnondef",itau_w,tnondef(:,:,2))
18       CALL histwrite_phy(nid_daynmc,"ta",itau_w,twriteSTD(:,:,2))
19       CALL histwrite_phy(nid_daynmc,"zg",itau_w,phiwriteSTD(:,:,2))
20       CALL histwrite_phy(nid_daynmc,"hus",itau_w,qwriteSTD(:,:,2))
21       CALL histwrite_phy(nid_daynmc,"hur",itau_w,rhwriteSTD(:,:,2))
22       CALL histwrite_phy(nid_daynmc,"ua",itau_w,uwriteSTD(:,:,2))
23       CALL histwrite_phy(nid_daynmc,"va",itau_w,vwriteSTD(:,:,2))
24       CALL histwrite_phy(nid_daynmc,"wap",itau_w,wwriteSTD(:,:,2))
25      ELSE IF(lev_histdayNMC.EQ.nlevSTD8) THEN
26       CALL histwrite_phy(nid_daynmc,"tnondef",itau_w,tnondefSTD8)
27       CALL histwrite_phy(nid_daynmc,"ta",itau_w,twriteSTD8)
28       CALL histwrite_phy(nid_daynmc,"zg",itau_w,phiwriteSTD8)
29       CALL histwrite_phy(nid_daynmc,"hus",itau_w,qwriteSTD8)
30       CALL histwrite_phy(nid_daynmc,"hur",itau_w,rhwriteSTD8)
31       CALL histwrite_phy(nid_daynmc,"ua",itau_w,uwriteSTD8)
32       CALL histwrite_phy(nid_daynmc,"va",itau_w,vwriteSTD8)
33       CALL histwrite_phy(nid_daynmc,"wap",itau_w,wwriteSTD8)
34      ENDIF
35c
36      if (ok_sync) then
37c$OMP MASTER
38        call histsync(nid_daynmc)
39c$OMP END MASTER
40      endif
41c
42      ENDIF ! (ok_histNMC(2)) THEN
Note: See TracBrowser for help on using the repository browser.