Ignore:
Timestamp:
Jul 17, 2001, 5:34:41 PM (23 years ago)
Author:
lmdz
Message:

Recuperation de la version qui se trouvait dans dyn3d et remise des NC_DOUBLE
pour VPP. MAF
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/phylmd/read_pstoke.F

    r207 r256  
    199199c niveaux de pression
    200200
     201#ifdef NC_DOUBLE
     202            status=NF_GET_VARA_DOUBLE(ncidp,varidpl,1,zklevo,pl)
     203#else
    201204            status=NF_GET_VARA_REAL(ncidp,varidpl,1,zklevo,pl)
     205#endif
     206
    202207
    203208c lecture de aire et phis
    … …  
    214219
    215220c phis
     221#ifdef NC_DOUBLE
     222      status=NF_GET_VARA_DOUBLE(ncidp,varidps,start,count,phisfi2)
     223#else
    216224      status=NF_GET_VARA_REAL(ncidp,varidps,start,count,phisfi2)
     225#endif
    217226c      print*,'WARNING!!! Correction bidon pour palier a un '
    218227c      print*,'probleme dans la creation des fichiers nc'
    … …  
    222231
    223232c aire
     233#ifdef NC_DOUBLE
     234      status=NF_GET_VARA_DOUBLE(ncidp,varidai,start,count,airefi2)
     235#else
    224236      status=NF_GET_VARA_REAL(ncidp,varidai,start,count,airefi2)
     237#endif
     238
    225239c      call correctbid(iim,jjp1*1,airefi2)
    226240c       call dump2d(iip1-1,jjp1,airefi2,'AIRENC')
    … …  
    249263c frac_impa
    250264
     265#ifdef NC_DOUBLE
     266      status=NF_GET_VARA_DOUBLE(ncidp,varidfi,start,count,frac_impa2)
     267#else
    251268      status=NF_GET_VARA_REAL(ncidp,varidfi,start,count,frac_impa2)
     269#endif
    252270c      print*,'WARNING!!! Correction bidon pour palier a un '
    253271c      print*,'probleme dans la creation des fichiers nc'
    … …  
    258276c frac_nucl
    259277
     278#ifdef NC_DOUBLE
     279      status=NF_GET_VARA_DOUBLE(ncidp,varidfn,start,count,frac_nucl2)
     280#else
    260281      status=NF_GET_VARA_REAL(ncidp,varidfn,start,count,frac_nucl2)
     282#endif
     283
    261284c      print*,'WARNING!!! Correction bidon pour palier a un '
    262285c      print*,'probleme dans la creation des fichiers nc'
    … …  
    266289
    267290c abder t
     291#ifdef NC_DOUBLE
     292      status=NF_GET_VARA_DOUBLE(ncidp,varidt,start,count,t2)
     293#else
    268294      status=NF_GET_VARA_REAL(ncidp,varidt,start,count,t2)
     295#endif
    269296      call gr_ecrit_fi(klevo,klono,imo,jmo+1,t2,t)
    270297
    271298c mfu
     299#ifdef NC_DOUBLE
     300      status=NF_GET_VARA_DOUBLE(ncidp,varidmfu,start,count,mfu2)
     301#else
    272302      status=NF_GET_VARA_REAL(ncidp,varidmfu,start,count,mfu2)
     303#endif
     304
    273305c      print*,'WARNING!!! Correction bidon pour palier a un '
    274306c      print*,'probleme dans la creation des fichiers nc'
    … …  
    278310
    279311c mfd
     312#ifdef NC_DOUBLE
     313      status=NF_GET_VARA_DOUBLE(ncidp,varidmfd,start,count,mfd2)
     314#else
    280315      status=NF_GET_VARA_REAL(ncidp,varidmfd,start,count,mfd2)
     316#endif
    281317c      print*,'WARNING!!! Correction bidon pour palier a un '
    282318c      print*,'probleme dans la creation des fichiers nc'
    … …  
    286322
    287323c en_u
     324#ifdef NC_DOUBLE
     325      status=NF_GET_VARA_DOUBLE(ncidp,varidenu,start,count,en_u2)
     326#else
    288327      status=NF_GET_VARA_REAL(ncidp,varidenu,start,count,en_u2)
     328#endif
    289329c      print*,'WARNING!!! Correction bidon pour palier a un '
    290330c      print*,'probleme dans la creation des fichiers nc'
    … …  
    294334
    295335c de_u
     336#ifdef NC_DOUBLE
     337      status=NF_GET_VARA_DOUBLE(ncidp,variddeu,start,count,de_u2)
     338#else
    296339      status=NF_GET_VARA_REAL(ncidp,variddeu,start,count,de_u2)
     340#endif
     341
    297342c      print*,'WARNING!!! Correction bidon pour palier a un '
    298343c      print*,'probleme dans la creation des fichiers nc'
    … …  
    302347
    303348c en_d
     349#ifdef NC_DOUBLE
     350      status=NF_GET_VARA_DOUBLE(ncidp,varidend,start,count,en_d2)
     351#else
    304352      status=NF_GET_VARA_REAL(ncidp,varidend,start,count,en_d2)
     353#endif
    305354c      print*,'WARNING!!! Correction bidon pour palier a un '
    306355c      print*,'probleme dans la creation des fichiers nc'
    … …  
    310359
    311360c de_d
     361#ifdef NC_DOUBLE
     362      status=NF_GET_VARA_DOUBLE(ncidp,varidded,start,count,de_d2)
     363#else
    312364      status=NF_GET_VARA_REAL(ncidp,varidded,start,count,de_d2)
     365#endif
    313366c      print*,'WARNING!!! Correction bidon pour palier a un '
    314367c      print*,'probleme dans la creation des fichiers nc'
    … …  
    318371
    319372c coefh
    320       status=NF_GET_VARA_REAL(ncidp,varidch,start,count,coefh2)
     373        print*,'LECTURE de coefh a irec =',irec
     374#ifdef NC_DOUBLE
     375       status=NF_GET_VARA_DOUBLE(ncidp,varidch,start,count,coefh2)
     376#else
     377       status=NF_GET_VARA_REAL(ncidp,varidch,start,count,coefh2)
     378#endif
    321379c      print*,'WARNING!!! Correction bidon pour palier a un '
    322380c      print*,'probleme dans la creation des fichiers nc'
    … …  
    339397
    340398c pyv1
     399#ifdef NC_DOUBLE
     400      status=NF_GET_VARA_DOUBLE(ncidp,varidyv1,start,count,pyv12)
     401#else
    341402      status=NF_GET_VARA_REAL(ncidp,varidyv1,start,count,pyv12)
     403#endif
    342404c      print*,'WARNING!!! Correction bidon pour palier a un '
    343405c      print*,'probleme dans la creation des fichiers nc'
    … …  
    347409
    348410c ftsol1
     411#ifdef NC_DOUBLE
     412      status=NF_GET_VARA_DOUBLE(ncidp,varidfts1,start,count,ftsol12)
     413#else
    349414      status=NF_GET_VARA_REAL(ncidp,varidfts1,start,count,ftsol12)
     415#endif
    350416c      print*,'WARNING!!! Correction bidon pour palier a un '
    351417c      print*,'probleme dans la creation des fichiers nc'
    … …  
    355421
    356422c ftsol2
     423#ifdef NC_DOUBLE
     424      status=NF_GET_VARA_DOUBLE(ncidp,varidfts2,start,count,ftsol22)
     425#else
    357426      status=NF_GET_VARA_REAL(ncidp,varidfts2,start,count,ftsol22)
     427#endif
    358428c      print*,'WARNING!!! Correction bidon pour palier a un '
    359429c      print*,'probleme dans la creation des fichiers nc'
    … …  
    363433
    364434c ftsol3
     435#ifdef NC_DOUBLE
     436      status=NF_GET_VARA_DOUBLE(ncidp,varidfts3,start,count,ftsol32)
     437#else
    365438      status=NF_GET_VARA_REAL(ncidp,varidfts3,start,count,ftsol32)
     439#endif
    366440c      print*,'WARNING!!! Correction bidon pour palier a un '
    367441c      print*,'probleme dans la creation des fichiers nc'
    … …  
    371445
    372446c ftsol4
     447#ifdef NC_DOUBLE
     448      status=NF_GET_VARA_DOUBLE(ncidp,varidfts4,start,count,ftsol42)
     449#else
    373450      status=NF_GET_VARA_REAL(ncidp,varidfts4,start,count,ftsol42)
     451#endif
    374452c      print*,'WARNING!!! Correction bidon pour palier a un '
    375453c      print*,'probleme dans la creation des fichiers nc'
    … …  
    379457
    380458c psrf1
    381       status=NF_GET_VARA_REAL(ncidp,varidpsr1,start,count,psrf12)
     459#ifdef NC_DOUBLE
     460      status=NF_GET_VARA_DOUBLE(ncidp,varidpsr2,start,count,psrf22)
     461#else
     462      status=NF_GET_VARA_REAL(ncidp,varidpsr2,start,count,psrf22)
     463#endif
    382464c      print*,'WARNING!!! Correction bidon pour palier a un '
    383465c      print*,'probleme dans la creation des fichiers nc'
    … …  
    387469
    388470c psrf2
     471#ifdef NC_DOUBLE
     472      status=NF_GET_VARA_DOUBLE(ncidp,varidpsr2,start,count,psrf22)
     473#else
    389474      status=NF_GET_VARA_REAL(ncidp,varidpsr2,start,count,psrf22)
     475#endif
    390476c      print*,'WARNING!!! Correction bidon pour palier a un '
    391477c      print*,'probleme dans la creation des fichiers nc'
    … …  
    395481
    396482c psrf3
     483#ifdef NC_DOUBLE
     484      status=NF_GET_VARA_DOUBLE(ncidp,varidpsr3,start,count,psrf32)
     485#else
    397486      status=NF_GET_VARA_REAL(ncidp,varidpsr3,start,count,psrf32)
     487#endif
    398488c      print*,'WARNING!!! Correction bidon pour palier a un '
    399489c      print*,'probleme dans la creation des fichiers nc'
    … …  
    403493
    404494c psrf4
     495#ifdef NC_DOUBLE
     496      status=NF_GET_VARA_DOUBLE(ncidp,varidpsr4,start,count,psrf42)
     497#else
    405498      status=NF_GET_VARA_REAL(ncidp,varidpsr4,start,count,psrf42)
     499#endif
    406500c      print*,'WARNING!!! Correction bidon pour palier a un '
    407501c      print*,'probleme dans la creation des fichiers nc'
Note: See TracChangeset for help on using the changeset viewer.