18 character*40
title(nfmx),
tvar(nvarmx,nfmx)
!$Header!integer nvarmx s iid
!$Header!integer nvarmx yd
!$Header!integer nvarmx dtime
!$Header!integer nvarmx s imd
!$Header!integer nvarmx s ifd
!$Header!integer nvarmx s s s fichier
!$Header!integer nvarmx s s nvar
!$Header!integer nvarmx s lmd
!$Header!integer nvarmx s s s var
!$Header!integer nvarmx s jid
!$Header!integer nvarmx s s irec
!$Header!integer nvarmx s s nld
!$Header!integer nvarmx parameter(nfmx=10, imx=200, jmx=150, lmx=200, nvarmx=1000) real xd(imx
!$Header!integer nvarmx s jmd
!$Header!integer nvarmx zd
!$Header!integer nvarmx tvar(nvarmx, nfmx) common/gradsdef/xd
nsplit_thermals!nrlmd le iflag_clos_bl tau_trig_deep real::s_trig!fin nrlmd le fact_thermals_ed_dz integer
!$Header!integer nvarmx s s itime
!IM for NMC files!real nfiles!real nfiles!real nfiles!real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD3 real nlevSTD8 real nlevSTD8 real nlevSTD8 real nlevSTD8 real
!$Header!integer nvarmx s s s title
!$Header!integer nvarmx s jfd
!$Header!integer nvarmx s s unit
!$Header!integer nvarmx s s firsttime
!$Header!integer nvarmx s s ivar