source: lmdz_wrf/WRFV3/lmdz/write_histdayNMC.h @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

  • Property svn:executable set to *
File size: 2.3 KB
Line 
1!
2! $Header$
3!
4      IF (ok_histNMC(2)) THEN
5!c
6       ndex3d = 0
7       itau_w = itau_phy + itap + start_time * day_step / iphysiq
8!ccc
9!c  Champs interpolles sur des niveaux de pression du NMC
10!c
11!c     PARAMETER(nout=3) 
12!c nout=1 : in=pdtphys,    out=mth
13!c nout=2 : in=pdtphys,    out=day
14!c nout=3 : in=pdtphys,    out=hf
15!ccc
16      IF(lev_histdayNMC.EQ.nlevSTD) THEN
17       CALL histwrite_phy(nid_daynmc,lNMC,"tnondef",itau_w,                          &
18       &tnondef(:,:,2))
19       CALL histwrite_phy(nid_daynmc,lNMC,"ta",itau_w,                               &
20       &twriteSTD(:,:,2))
21       CALL histwrite_phy(nid_daynmc,lNMC,"zg",itau_w,                               &
22       &phiwriteSTD(:,:,2))
23       CALL histwrite_phy(nid_daynmc,lNMC,"hus",itau_w,                              &
24       &qwriteSTD(:,:,2))
25       CALL histwrite_phy(nid_daynmc,lNMC,"hur",itau_w,                              &
26       &rhwriteSTD(:,:,2))
27       CALL histwrite_phy(nid_daynmc,lNMC,"ua",itau_w,                               &
28       &uwriteSTD(:,:,2))
29       CALL histwrite_phy(nid_daynmc,lNMC,"va",itau_w,                               &
30       &vwriteSTD(:,:,2))
31       CALL histwrite_phy(nid_daynmc,lNMC,"wap",itau_w,                              &
32       &wwriteSTD(:,:,2))
33      ELSE IF(lev_histdayNMC.EQ.nlevSTD8) THEN
34       CALL histwrite_phy(nid_daynmc,lNMC,"tnondef",itau_w,                          &
35       &tnondefSTD8)
36       CALL histwrite_phy(nid_daynmc,lNMC,"ta",itau_w,                               &
37       &twriteSTD8)
38       CALL histwrite_phy(nid_daynmc,lNMC,"zg",itau_w,                               &
39       &phiwriteSTD8)
40       CALL histwrite_phy(nid_daynmc,lNMC,"hus",itau_w,                              &
41       &qwriteSTD8)
42       CALL histwrite_phy(nid_daynmc,lNMC,"hur",itau_w,                              &
43       &rhwriteSTD8)
44       CALL histwrite_phy(nid_daynmc,lNMC,"ua",itau_w,                               &
45       &uwriteSTD8)
46       CALL histwrite_phy(nid_daynmc,lNMC,"va",itau_w,                               &
47       &vwriteSTD8)
48       CALL histwrite_phy(nid_daynmc,lNMC,"wap",itau_w,                              &
49       &wwriteSTD8)
50      ENDIF
51!c
52      if (ok_sync) then
53!$OMP MASTER
54        call histsync(nid_daynmc)
55!$OMP END MASTER
56      endif
57!c
58      ENDIF ! (ok_histNMC(2)) THEN
Note: See TracBrowser for help on using the repository browser.