Changeset 1223


Ignore:
Timestamp:
Aug 7, 2009, 4:59:33 PM (15 years ago)
Author:
jghattas
Message:

Tout les especes aerosols pour un decenie moyenne sont maintenant regroupe dans un fichier aerosolsXXXX.nc. XXXX signifie le decenie en question.

Ce modif est fait pour ne pas avoir besoin de manipuler trop des fichiers quand tout les scenarios seront fait.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/readaerosol.F90

    r1202 r1223  
    203203! Local variables
    204204    CHARACTER(len=30)     :: fname
     205    CHARACTER(len=8)      :: filename='aerosols'
    205206    CHARACTER(len=30)     :: cvar
    206207    INTEGER               :: ncid, dimid, varid
    … …  
    232233! 1) Open file
    233234!****************************************************************************************
    234        fname = TRIM(varname)//'.run'//cyr//'.nc'
     235       fname = filename//cyr//'.nc'
    235236 
    236237       WRITE(lunout,*) 'reading ', TRIM(fname)
Note: See TracChangeset for help on using the changeset viewer.