Changeset 2648


Ignore:
Timestamp:
Oct 5, 2016, 6:44:37 AM (8 years ago)
Author:
fhourdin
Message:

Correction d'un petit bug pour les dusts

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r2647 r2648  
    26212621         call iophys_ecrit('fav'//str2,1,'SOURCE','',source_tr(:,it))
    26222622      enddo
    2623 #endif
    2624 
    26252623      do it=1,nbtr
    26262624         write(str2,'(i2.2)') it
    26272625         call iophys_ecrit('TRB'//str2,klev,'SOURCE','',tr_seri(:,:,it))
    26282626      enddo
     2627#endif
    26292628
    26302629
    … …  
    26502649
    26512650#ifdef IOPHYS_DUST
    2652 
    26532651      do it=1,nbtr
    26542652         write(str2,'(i2.2)') it
    … …  
    26762674!
    26772675#ifdef IOPHYS_DUST
    2678 !
    26792676      print *,'INPUT TO PRECUREMISSION'
    26802677         call iophys_ecrit('ftsol',4,'ftsol','',ftsol)
Note: See TracChangeset for help on using the changeset viewer.