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/dyn3d/dynredem.F

    r6 r492  
    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    .........................................................
     
    640642#endif
    641643
    642       IF (config_inca /= 'none') THEN
     644      IF (type_trac == 'inca') THEN
    643645! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
    644646         ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
     
    653655      do iq=1,nqtot
    654656
    655          IF (config_inca == 'none') THEN
     657         IF (type_trac /= 'inca') THEN
    656658            ierr = NF_INQ_VARID(nid, tname(iq), nvarid)
    657659            IF (ierr .NE. NF_NOERR) THEN
     
    665667            ierr = NF_PUT_VAR_REAL (nid,nvarid,q(1,1,iq))
    666668#endif
    667         ELSE ! config_inca = 'chem' ou 'aero'
     669        ELSE ! type_trac = inca
    668670! lecture de la valeur du traceur dans start_trac.nc
    669671           IF (ierr_file .ne. 2) THEN
     
    729731#endif
    730732          ENDIF ! (ierr_file .ne. 2)
    731        END IF   ! config_inca
     733       END IF   !type_trac
    732734     
    733735      ENDDO
Note: See TracChangeset for help on using the changeset viewer.