Ignore:
Timestamp:
Jul 26, 2005, 3:18:59 PM (19 years ago)
Author:
lmdzadmin
Message:

Suppression du logical "thermiques" remplace par iflag_thermals
MAF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/phytrac.F

    r658 r662  
    110110#include "comgeomphy.h"
    111111#include "advtrac.h"
     112#include "thermcell.h"
    112113c======================================================================
    113114
     
    324325c-------------
    325326      logical first,couchelimite,convection,lessivage,sorties,
    326      s        rnpb,inirnpb,thermiques
    327       save first,couchelimite,convection,lessivage,thermiques,
     327     s        rnpb,inirnpb
     328      save first,couchelimite,convection,lessivage,
    328329     s        sorties,inirnpb
    329330c      data first,couchelimite,convection,lessivage,sorties
     
    331332c Olivia
    332333       data first,couchelimite,convection,lessivage,
    333      s      thermiques,sorties
    334      s     /.true.,.true.,.true.,.true.,.true.,.true./
     334     s      sorties
     335     s     /.true.,.true.,.true.,.true.,.true./
    335336
    336337
     
    627628      enddo
    628629
    629       if (thermiques) then
     630      if (iflag_thermals.gt.O) then
    630631c        print*,'calcul de leffet des thermiques'
    631632        nsplit=10
     
    639640c  Abderr 25 11 02
    640641C Thermiques
    641 c       print*,'Avant dans phytrac',avant
     642c       print*,'Avant dans phytrac'
    642643            call dqthermcell(klon,klev,pdtphys/nsplit
    643644     .       ,fm_therm,entr_therm,zmasse
Note: See TracChangeset for help on using the changeset viewer.