Ignore:
Timestamp:
Jan 5, 2012, 8:28:41 AM (13 years ago)
Author:
emillour
Message:

Common dynamics: updates to keep up with LMDZ5 Earth (rev 1605)
See file "DOC/chantiers/commit_importants.log" for details.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3dpar/dynredem_p.F

    r1 r492  
    11!
    2 ! $Id: dynredem_p.F 1403 2010-07-01 09:02:53Z fairhead $
     2! $Id: dynredem_p.F 1577 2011-10-20 15:06:47Z fairhead $
    33!
    44c
     
    120120       tab_cntrl(30) =  REAL(iday_end)
    121121       tab_cntrl(31) =  REAL(itau_dyn + itaufin)
     122c start_time: start_time of simulation (not necessarily 0.)
     123       tab_cntrl(32) = start_time
    122124c
    123125c    .........................................................
     
    650652#endif
    651653
    652       IF (config_inca /= 'none') THEN
     654      IF (type_trac == 'inca') THEN
    653655! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
    654656         inquire(FILE="start_trac.nc", EXIST=exist_file)
     
    667669      do iq=1,nqtot
    668670
    669          IF (config_inca == 'none') THEN
     671         IF (type_trac /= 'inca') THEN
    670672            ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
    671673            IF (ierr .NE. NF_NOERR) THEN
     
    678680            ierr = NF_PUT_VAR_REAL (nid,nvarid,q(1,1,iq))
    679681#endif
    680         ELSE ! config_inca = 'chem' ou 'aero'
     682        ELSE ! type_trac = inca
    681683! lecture de la valeur du traceur dans start_trac.nc
    682684           IF (ierr_file .ne. 2) THEN
     
    732734#endif
    733735          ENDIF ! (ierr_file .ne. 2)
    734        END IF   ! config_inca
     736       END IF   ! type_trac
    735737     
    736738      ENDDO
Note: See TracChangeset for help on using the changeset viewer.