iotd_ini.F90

Go to the documentation of this file.

      SUBROUTINE iotd_ini(fichnom,iim,jjm,llm,prlonv,prlatu,pcoordv)
      IMPLICIT NONE

!=======================================================================
!
!   Auteur:  L. Fairhead  ,  P. Le Van, Y. Wanherdrick, F. Forget
!   -------
!
!   Objet:
!   ------
!
!   'Initialize' the diagfi.nc file: write down dimensions as well
!   as time-independent fields (e.g: geopotential, mesh area, ...)
!
!=======================================================================
!-----------------------------------------------------------------------
!   Declarations:
!   -------------

#include "netcdf.inc"
#include "iotd.h"

!   Arguments:
!   ----------

      integer iim,jjm,llm
      real prlonv(iim),prlatu(jjm),pcoordv(llm),timestep
      INTEGER id_FOCE

      integer corner(4),edges(4),ndim
      real  px(1000)
      character (len=10) :: nom

!   Local:
!   ------
      INTEGER ierr

      integer :: nvarid
      integer, dimension(2) :: id  
      integer :: varid

      character*10 fichnom
      real*4 rlonv(iim),rlatu(jjm),coordv(llm)

      real pi

      print*,'INIIO prlonv ',prlonv
      imax=iim
      jmax=jjm
      lmax=llm

      rlonv=prlonv
      rlatu=prlatu
      coordv=pcoordv

!-----------------------------------------------------------------------


      pi=2.*asin(1.)

! Define dimensions
    
         ! Create the NetCDF file
         ierr=nf_create(fichnom, nf_clobber, nid)
         ! Define the 'Time' dimension
         ierr=nf_def_dim(nid,"Time",nf_unlimited,dim_coord(4))
         ! Define the 'Time' variable
         ierr=nf_def_var(nid, "Time", nf_float, 1, dim_coord(4),varid)
!        ! Add a long_name attribute
!        ierr=NF_PUT_ATT_TEXT(nid, varid, "long_name",4,"Time")
!        ! Add a units attribute
         ierr=nf_put_att_text(nid, varid,'units',29,"days since 0000-00-0 00:00:00")
         ! Switch out of NetCDF Define mode

      ierr=nf_def_dim(nid, "longitude", iim, dim_coord(1))
      ierr=nf_def_dim(nid, "latitude", jjm, dim_coord(2))
      ierr=nf_def_dim(nid, "altitude", llm, dim_coord(3))


      ierr=nf_enddef(nid)
!
!  Contol parameters for this run
! --------------------------

      ierr=nf_redef(nid)
      ierr=nf_def_var(nid,"longitude", nf_float, 1, dim_coord(1),nvarid)
!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name", 14,
!    .      "East longitude")
!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,'units',12,"degrees_east")
      ierr=nf_enddef(nid)
      ierr=nf_put_var_real(nid,nvarid,rlonv)
       print*,ierr

! --------------------------
      ierr=nf_redef(nid)
      ierr=nf_def_var(nid, "latitude", nf_float, 1, dim_coord(2),nvarid)
!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,'units',13,"degrees_north")
!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,"long_name", 14,"North latitude")
      ierr=nf_enddef(nid)
      ierr=nf_put_var_real(nid,nvarid,rlatu)
!
! --------------------------
      ierr=nf_redef(nid)
      ierr=nf_def_var(nid, "altitude", nf_float, 1,dim_coord(3),nvarid)
      ierr=nf_put_att_text(nid,nvarid,"long_name",10,"pseudo-alt")
!     ierr=NF_PUT_ATT_TEXT(nid,nvarid,'units',2,"km")
      if ( pcoordv(2)>pcoordv(1) ) then
         ierr=nf_put_att_text(nid,nvarid,"long_name",10,"pseudo-alt")
         ierr=nf_put_att_text(nid,nvarid,'positive',2,"up")
      else
         ierr=nf_put_att_text(nid,nvarid,"long_name",8,"pressure")
         ierr = nf_put_att_text(nid,nvarid,'positive',4,"down")
      endif
      ierr=nf_enddef(nid)

      ierr=nf_put_var_real(nid,nvarid,coordv)
!
      END