Changeset 217 for LMDZ.3.3/trunk


Ignore:
Timestamp:
May 10, 2001, 12:40:04 PM (24 years ago)
Author:
lmdz
Message:

Pb de NC_DOUBLE sur VPP MAF
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/dyn3d/read_reanalyse.F

    r207 r217  
    1515
    1616      integer nlevnc
    17 cModef 11-2-99      parameter (nlevnc=15)
    18       parameter (nlevnc=21)
     17      parameter (nlevnc=15)
     18C pour annee 2000      parameter (nlevnc=21)
    1919      integer timestep,mode,l
    2020
     
    7373      print*,'WARNING!!! Il n y a pas de test de coherence'
    7474      print*,'sur le nombre de niveaux verticaux dans le fichier nc'
     75#ifdef NC_DOUBLE
     76      status=NF_GET_VARA_DOUBLE(ncidu,varidpl,1,nlevnc,pl)
     77#else
    7578      status=NF_GET_VARA_REAL(ncidu,varidpl,1,nlevnc,pl)
    76 
     79#endif
    7780      start(1)=1
    7881      start(2)=1
     
    8689
    8790c  u
     91#ifdef NC_DOUBLE
     92      status=NF_GET_VARA_DOUBLE(ncidu,varidu,start,count,unc)
     93#else
    8894      status=NF_GET_VARA_REAL(ncidu,varidu,start,count,unc)
     95#endif
    8996      print*,'WARNING!!! Correction bidon pour palier a un '
    9097      print*,'probleme dans la creation des fichiers nc'
     
    9299c     call dump2d(iip1,jjp1,unc,'UNC COUCHE 1 ')
    93100c  T
     101#ifdef NC_DOUBLE
     102      status=NF_GET_VARA_DOUBLE(ncidt,varidt,start,count,tnc)
     103#else
    94104      status=NF_GET_VARA_REAL(ncidt,varidt,start,count,tnc)
     105#endif
    95106      call correctbid(iim,jjp1*nlevnc,tnc)
    96107c     call dump2d(iip1,jjp1,tnc,'TNC COUCHE 1 ')
     
    98109      count(2)=jjm
    99110c  v
     111#ifdef NC_DOUBLE
     112      status=NF_GET_VARA_DOUBLE(ncidv,varidv,start,count,vnc)
     113#else
    100114      status=NF_GET_VARA_REAL(ncidv,varidv,start,count,vnc)
     115#endif
    101116      call correctbid(iim,jjm*nlevnc,vnc)
    102117c     call dump2d(iip1,jjm,vnc,'VNC COUCHE 1 ')
     
    108123      count(4)=0
    109124c  ps
     125C#ifdef NC_DOUBLE
     126c     status=NF_GET_VARA_DOUBLE(ncidps,varidps,start,count,psnc)
     127C#else
    110128c     status=NF_GET_VARA_REAL(ncidps,varidps,start,count,psnc)
     129C#endif
    111130c     call dump2d(iip1,jjp1,psnc,'PSNC COUCHE 1 ')
    112131c     call correctbid(iim,jjp1,psnc)
Note: See TracChangeset for help on using the changeset viewer.