Changeset 430 for LMDZ.3.3/branches


Ignore:
Timestamp:
Nov 22, 2002, 3:42:08 PM (22 years ago)
Author:
lmdzadmin
Message:

Changement du nom des fichiers de donnees brutes sst/ice (plus de
distinction climato/annuel)
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/limit_netcdf.F

    r405 r430  
    450450c
    451451
    452 cccIM#define cond_climato
    453 
    454 #ifdef cond_climato
    455 
    456452cIM22/02/2002
    457453cIM   ierr = NF_OPEN('AMIP.nc', NF_NOWRITE, ncid)
    458454cIM   ierr = NF_OPEN('amip79to95.nc', NF_NOWRITE, ncid)
    459       ierr = NF_OPEN('amipbc_sic_1x1_clim.nc', NF_NOWRITE, ncid)
    460 #else
     455cIM   ierr = NF_OPEN('amipbc_sic_1x1_clim.nc', NF_NOWRITE, ncid)
     456
    461457      ierr = NF_OPEN('amipbc_sic_1x1.nc', NF_NOWRITE, ncid)
    462 #endif
    463458
    464459cIM22/02/2002
    … …  
    784779c
    785780      PRINT*, 'Traitement de la sst'
    786 #ifdef cond_climato
    787781cIM22/02/2002
    788782cIM   ierr = NF_OPEN('AMIP.nc', NF_NOWRITE, ncid)
    789783cIM   ierr = NF_OPEN('amip79to95.nc', NF_NOWRITE, ncid)
    790       ierr = NF_OPEN('amipbc_sst_1x1_clim.nc', NF_NOWRITE, ncid)
    791 #else
     784cIM   ierr = NF_OPEN('amipbc_sst_1x1_clim.nc', NF_NOWRITE, ncid)
     785
    792786      ierr = NF_OPEN('amipbc_sst_1x1.nc', NF_NOWRITE, ncid)
    793 #endif
    794787cIM22/02/2002
    795788      if (ierr.ne.0) then
Note: See TracChangeset for help on using the changeset viewer.