Ignore:
Timestamp:
Dec 1, 2021, 8:23:48 AM (3 years ago)
Author:
crisi
Message:

correction d'un probleme d'initialisation phylmdiso + suite du nettoyage dans phylmdiso

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/calltherm.F90

    r4004 r4036  
    405405            xt_seri(:,:,:) = xt_seri(:,:,:) + d_xt_the(:,:,:)
    406406#ifdef ISOVERIF
    407       write(*,*) 'calltherm 350 tmp: ajout d_xt_the'
     407!      write(*,*) 'calltherm 350 tmp: ajout d_xt_the'
    408408      if (iso_HDO.gt.0) then
    409409!      i=479
Note: See TracChangeset for help on using the changeset viewer.