Changeset 154 for LMDZ.3.3/trunk


Ignore:
Timestamp:
Nov 9, 2000, 4:43:46 PM (24 years ago)
Author:
lmdz
Message:

Rajout des ifdef NC_DOUBLE/NC_REAL pour les lectures
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/create_limit.F

    r71 r154  
    137137        STOP
    138138      ENDIF
    139 c     ierr = NF_GET_VAR_REAL(ncid,dimid,dlon_msk)
     139#ifdef NC_DOUBLE
    140140      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon_msk)
    141 c$$$      zbidon=0.0
    142 c$$$      ierr = NF_GET_VAR_REAL(ncid,dimid,zbidon(1:imdep))
    143 c$$$      dlon_msk(1 : imdep) = dble(zbidon(1:imdep))
     141#else
     142      ierr = NF_GET_VAR_REAL(ncid,dimid,dlon_msk)
     143#endif
     144
    144145c
    145146      if (ierr.ne.0) then
    … …  
    158159        STOP
    159160      ENDIF
    160 c      ierr = NF_GET_VAR_REAL(ncid,dimid,dlat_msk)
     161#ifdef NC_DOUBLE
    161162      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat_msk)
    162 c$$$      zbidon=0.
    163 c$$$      ierr = NF_GET_VAR_REAL(ncid,dimid,zbidon(1:jmdep))
    164 c$$$      dlat_msk=dble(zbidon(1:jmdep))
    165 c
    166       if (ierr.ne.0) then
    167         print *, NF_STRERROR(ierr)
    168         STOP
    169       ENDIF
    170 c      ierr = NF_GET_VAR_REAL(ncid,varid,champ_msk)
     163#else
     164      ierr = NF_GET_VAR_REAL(ncid,dimid,dlat_msk)
     165#endif
     166c
     167      if (ierr.ne.0) then
     168        print *, NF_STRERROR(ierr)
     169        STOP
     170      ENDIF
     171#ifdef NC_DOUBLE
    171172      ierr = NF_GET_VAR_DOUBLE(ncid,varid,champ_msk)
    172 c$$$      zbidon=0.
    173 c$$$      ierr = NF_GET_VAR_REAL(ncid,varid,zbidon(1:imdep*jmdep))
    174 c$$$      champ_msk(1: imdep*jmdep) = zbidon(1:imdep*jmdep)
     173#else
     174      ierr = NF_GET_VAR_REAL(ncid,varid,champ_msk)
     175#endif
    175176c
    176177      if (ierr.ne.0) then
    … …  
    226227        STOP
    227228      ENDIF
     229#ifdef NC_DOUBLE
    228230      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon)
     231#else
     232      ierr = NF_GET_VAR_REAL(ncid,dimid,dlon)
     233#endif
    229234      if (ierr.ne.0) then
    230235        print *, NF_STRERROR(ierr)
    … …  
    242247        STOP
    243248      ENDIF
     249#ifdef NC_DOUBLE
    244250      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat)
     251#else
     252      ierr = NF_GET_VAR_REAL(ncid,dimid,dlat)
     253#endif
    245254      if (ierr.ne.0) then
    246255        print *, NF_STRERROR(ierr)
    … …  
    258267        STOP
    259268      ENDIF
     269#ifdef NC_DOUBLE
    260270      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord)
     271#else
     272      ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord)
     273#endif
    261274      if (ierr.ne.0) then
    262275        print *, NF_STRERROR(ierr)
    … …  
    275288         PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l)
    276289         print*,dimfirst,dimlast
     290#ifdef NC_DOUBLE
    277291         ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ)
     292#else
     293         ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ)
     294#endif
    278295         if (ierr.ne.0) then
    279296           print *, NF_STRERROR(ierr)
    … …  
    358375        STOP
    359376      ENDIF
     377#ifdef NC_DOUBLE
    360378      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon)
     379#else
     380      ierr = NF_GET_VAR_REAL(ncid,dimid,dlon)
     381#endif
    361382      if (ierr.ne.0) then
    362383        print *, NF_STRERROR(ierr)
    … …  
    374395        STOP
    375396      ENDIF
     397#ifdef NC_DOUBLE
    376398      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat)
     399#else
     400      ierr = NF_GET_VAR_REAL(ncid,dimid,dlat)
     401#endif
    377402      if (ierr.ne.0) then
    378403        print *, NF_STRERROR(ierr)
    … …  
    390415        STOP
    391416      ENDIF
     417#ifdef NC_DOUBLE
    392418      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord)
     419#else
     420      ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord)
     421#endif
    393422      if (ierr.ne.0) then
    394423        print *, NF_STRERROR(ierr)
    … …  
    406435c
    407436         PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l)
     437#ifdef NC_DOUBLE
    408438         ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ)
     439#else
     440         ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ)
     441#endif
    409442         if (ierr.ne.0) then
    410443           print *, NF_STRERROR(ierr)
    … …  
    495528        STOP
    496529      ENDIF
     530#ifdef NC_DOUBLE
    497531      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon)
     532#else
     533      ierr = NF_GET_VAR_REAL(ncid,dimid,dlon)
     534#endif
     535
    498536      if (ierr.ne.0) then
    499537        print *, NF_STRERROR(ierr)
    … …  
    511549        STOP
    512550      ENDIF
     551#ifdef NC_DOUBLE
    513552      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat)
     553#else
     554      ierr = NF_GET_VAR_REAL(ncid,dimid,dlat)
     555#endif
    514556      if (ierr.ne.0) then
    515557        print *, NF_STRERROR(ierr)
    … …  
    527569        STOP
    528570      ENDIF
     571#ifdef NC_DOUBLE
    529572      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord)
     573#else
     574      ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord)
     575#endif
    530576      if (ierr.ne.0) then
    531577        print *, NF_STRERROR(ierr)
    … …  
    543589c
    544590         PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l)
     591#ifdef NC_DOUBLE
    545592         ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ)
     593#else
     594         ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ)
     595#endif
    546596         if (ierr.ne.0) then
    547597           print *, NF_STRERROR(ierr)
    … …  
    621671        STOP
    622672      ENDIF
     673#ifdef NC_DOUBLE
    623674      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlon)
     675#else
     676      ierr = NF_GET_VAR_REAL(ncid,dimid,dlon)
     677#endif
    624678      if (ierr.ne.0) then
    625679        print *, NF_STRERROR(ierr)
    … …  
    637691        STOP
    638692      ENDIF
     693#ifdef NC_DOUBLE
    639694      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,dlat)
     695#else
     696      ierr = NF_GET_VAR_REAL(ncid,dimid,dlat)
     697#endif
    640698      if (ierr.ne.0) then
    641699        print *, NF_STRERROR(ierr)
    … …  
    653711        STOP
    654712      ENDIF
     713#ifdef NC_DOUBLE
    655714      ierr = NF_GET_VAR_DOUBLE(ncid,dimid,timecoord)
     715#else
     716      ierr = NF_GET_VAR_REAL(ncid,dimid,timecoord)
     717#endif
    656718      if (ierr.ne.0) then
    657719        print *, NF_STRERROR(ierr)
    … …  
    669731c
    670732         PRINT*,'Lecture temporelle et int. horizontale ',l,timecoord(l)
     733#ifdef NC_DOUBLE
    671734         ierr = NF_GET_VARA_DOUBLE(ncid,varid,dimfirst,dimlast,champ)
     735#else
     736         ierr = NF_GET_VARA_REAL(ncid,varid,dimfirst,dimlast,champ)
     737#endif
    672738         if (ierr.ne.0) then
    673739           print *, NF_STRERROR(ierr)
Note: See TracChangeset for help on using the changeset viewer.