source: LMDZ5/trunk/libf/phylmd/write_paramLMDZ_phy.h @ 2456

Last change on this file since 2456 was 2454, checked in by musat, 9 years ago

Supression des moyennes globales du fichier paramLMDZ_phy.nc

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.4 KB
Line 
1!
2!$OMP MASTER
3      if (is_mpi_root) then     
4!
5      ndex2d = 0
6      itau_w = itau_phy + itap + int(start_time * day_step_phy)
7!
8! Variables globales
9!
10      zx_tmp_0d=R_ecc
11      CALL histwrite(nid_ctesGCM,"R_ecc",itau_w, &
12                     zx_tmp_0d,np,ndex2d)
13!
14      zx_tmp_0d=R_peri
15      CALL histwrite(nid_ctesGCM,"R_peri",itau_w, &
16                     zx_tmp_0d,np,ndex2d)
17!
18      zx_tmp_0d=R_incl
19      CALL histwrite(nid_ctesGCM,"R_incl",itau_w, &
20                     zx_tmp_0d,np,ndex2d)
21!
22      zx_tmp_0d=solaire
23      CALL histwrite(nid_ctesGCM,"solaire",itau_w, &
24                     zx_tmp_0d,np,ndex2d)
25!
26      zx_tmp_0d=co2_ppm
27      CALL histwrite(nid_ctesGCM,"co2_ppm",itau_w, &
28                     zx_tmp_0d,np,ndex2d)
29!
30      zx_tmp_0d=CH4_ppb
31      CALL histwrite(nid_ctesGCM,"CH4_ppb",itau_w, &
32                     zx_tmp_0d,np,ndex2d)
33!
34      zx_tmp_0d=N2O_ppb
35      CALL histwrite(nid_ctesGCM,"N2O_ppb",itau_w, &
36                     zx_tmp_0d,np,ndex2d)
37!
38      zx_tmp_0d=CFC11_ppt
39      CALL histwrite(nid_ctesGCM,"CFC11_ppt",itau_w, &
40                     zx_tmp_0d,np,ndex2d)
41!
42      zx_tmp_0d=CFC12_ppt
43      CALL histwrite(nid_ctesGCM,"CFC12_ppt",itau_w, &
44                     zx_tmp_0d,np,ndex2d)
45!
46!=================================================================
47!
48      if (ok_sync) then
49        call histsync(nid_ctesGCM)
50      endif
51!
52      endif !(is_mpi_root) then     
53!$OMP END MASTER
Note: See TracBrowser for help on using the repository browser.