c     IF (ok_mensuelNMC) THEN
      IF (ok_mensuel) THEN
c
      ndex2d = 0
      ndex3d = 0
c
c Champs 2D:
c

        zsto = dtime
        zout = dtime * ecrit_mth
        itau_w = itau_phy + itap

      i = NINT(zout/zsto)
c
c  Champs interpolles sur des niveaux de pression du NMC
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u1000,zx_tmp_2d)
      CALL histwrite(nid_nmc,
     ."u1000",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v1000,zx_tmp_2d)
      CALL histwrite(nid_nmc,
     ."v1000",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u925,zx_tmp_2d)
      CALL histwrite(nid_nmc,
     ."u925",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v925,zx_tmp_2d)
      CALL histwrite(nid_nmc,
     ."v925",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
      CALL histwrite(nid_nmc,
     ."u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v850",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u700,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u700",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v700,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v700",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u600,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u600",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v600,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v600",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u500",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v500",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u400,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u400",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v400,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v400",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u300,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u300",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v300,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v300",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u250,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u250",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v250,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v250",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u200",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v200",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u150,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u150",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v150,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v150",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u100,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u100",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v100,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v100",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u70,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u70",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v70,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v70",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u50,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u50",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v50,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v50",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u30,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u30",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v30,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v30",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u20,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u20",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v20,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v20",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u10,zx_tmp_2d)
      CALL histwrite(nid_nmc,"u10",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)
c
      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v10,zx_tmp_2d)
      CALL histwrite(nid_nmc,"v10",itau_w,
     .zx_tmp_2d,iim*jjmp1,ndex2d)

      if (ok_sync) then
        call histsync(nid_nmc)
      endif

      ENDIF