write_paramLMDZ_phy.h

Go to the documentation of this file.

c
c calcul moyennes globales
c
       zx_tmp_fi2d=bils*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gbils)
       zx_tmp_fi2d=evap*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gevap)
       zx_tmp_fi2d(:)=fevap(:, is_ter)*airephy(:)
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gevapt)
       zx_tmp_fi2d=zxfluxlat*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,glat)
       zx_tmp_fi2d=(topsw0-toplw0)*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gnet0)
       zx_tmp_fi2d=(topsw-toplw)*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gnet)
       zx_tmp_fi2d=(rain_fall+snow_fall)*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,grain)
       zx_tmp_fi2d=zxtsol*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gtsol)
       zx_tmp_fi2d=zt2m*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gt2m)
       zx_tmp_fi2d=prw*airephy
       CALL global_mean(zx_tmp_fi2d,airephy,.TRUE.,gprw)
c
c$OMP MASTER
      if (is_mpi_root) then      
c
      ndex2d = 0
      itau_w = itau_phy + itap + start_time * day_step / iphysiq
c
c Variables globales
c
      zx_tmp_0d=R_ecc
      CALL histwrite(nid_ctesGCM,"R_ecc",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=R_peri
      CALL histwrite(nid_ctesGCM,"R_peri",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=R_incl
      CALL histwrite(nid_ctesGCM,"R_incl",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=solaire
      CALL histwrite(nid_ctesGCM,"solaire",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=co2_ppm
      CALL histwrite(nid_ctesGCM,"co2_ppm",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=CH4_ppb
      CALL histwrite(nid_ctesGCM,"CH4_ppb",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=N2O_ppb
      CALL histwrite(nid_ctesGCM,"N2O_ppb",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=CFC11_ppt
      CALL histwrite(nid_ctesGCM,"CFC11_ppt",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
      zx_tmp_0d=CFC12_ppt
      CALL histwrite(nid_ctesGCM,"CFC12_ppt",itau_w,
     .               zx_tmp_0d,np,ndex2d)
c
c=================================================================
c moyennes globales
c
      CALL histwrite(nid_ctesGCM,"bils",itau_w,
     .               gbils,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"evap",itau_w,
     .               gevap,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"evap_land",itau_w,
     .               gevapt,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"flat",itau_w,
     .               glat,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"nettop0",itau_w,
     .               gnet0,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"nettop",itau_w,
     .               gnet,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"precip",itau_w,
     .               grain,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"tsol",itau_w,
     .               gtsol,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"t2m",itau_w,
     .               gt2m,np,ndex2d)
      CALL histwrite(nid_ctesGCM,"prw",itau_w,
     .               gprw,np,ndex2d)
c=================================================================
c
      if (ok_sync) then
        call histsync(nid_ctesGCM)
      endif
c
      endif !(is_mpi_root) then      
c$OMP END MASTER