source: LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histhf.h @ 436

Last change on this file since 436 was 418, checked in by (none), 22 years ago

This commit was manufactured by cvs2svn to create branch 'rel-LF'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.0 KB
Line 
1      if (ok_hf) then
2
3c   Comprendre comment marche el i=nint(zout/zsto)
4c
5      print*,'ACRITURE HF !!! ACRITURE HF !!! ACRITURE HF !!! '
6      ndex2d = 0
7      ndex3d = 0
8c
9c
10c     i = NINT(zout/zsto)
11c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
12c     CALL histwrite(nid_hf,"phis",i,zx_tmp_2d,iim*jjmp1,ndex2d)
13c
14c     i = NINT(zout/zsto)
15c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,paire,zx_tmp_2d)
16c     CALL histwrite(nid_hf,"aire",i,zx_tmp_2d,iim*jjmp1,ndex2d)
17C
18      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
19      CALL histwrite(nid_hf,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
20c
21      DO i = 1, klon
22         zx_tmp_fi2d(i) = paprs(i,1)
23      ENDDO
24      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
25      CALL histwrite(nid_hf,"psol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
26c
27      DO i = 1, klon
28         zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
29      ENDDO
30      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
31      CALL histwrite(nid_hf,"rain",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
32
33      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
34      CALL histwrite(nid_hf,"u850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
35
36      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
37      CALL histwrite(nid_hf,"v850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
38
39      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
40      CALL histwrite(nid_hf,"u500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
41
42      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
43      CALL histwrite(nid_hf,"v500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
44
45      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
46      CALL histwrite(nid_hf,"u200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
47
48      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
49      CALL histwrite(nid_hf,"v200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
50
51      CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d)
52      CALL histwrite(nid_hf,"phi500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
53
54      if (ok_sync) then
55        call histsync(nid_hf)
56      endif
57
58      endif
Note: See TracBrowser for help on using the repository browser.