Changeset 176 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Jun 28, 2011, 2:56:17 PM (14 years ago)
Author:
slebonnois
Message:

SLebonnois: petite correction pour pouvoir tourner avec clouds=0
sans etre embetes par ntype

Location:
trunk/LMDZ.TITAN/libf/phytitan
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.TITAN/libf/phytitan/muphys3D.F

    r175 r176  
    235235c*******************************************************
    236236
     237         if (clouds.eq.0) then
     238           if(nrad .ne. nmicro) then
     239             print*,"aLeRte : nrad != nmicro"
     240             print*,'nmicro= ',nmicro
     241             print*,'nrad= ',nrad
     242             stop "je m'arrete..."
     243           endif
     244         else
    237245           if(nrad .ne. nmicro/ntype) then
    238246             print*,"aLeRte : nrad != nmicro/ntype"
     
    243251             stop "je m'arrete..."
    244252           endif
     253         endif
    245254
    246255           do i=1,nrad
  • trunk/LMDZ.TITAN/libf/phytitan/phytrac.F

    r175 r176  
    141141           endif
    142142c        Nombre de traceurs incompatibles avec la microphysique.
    143            if (nmicro.ne.ntype*nrad) then
     143           if ((nmicro.ne.ntype*nrad).and.(clouds.eq.1)) then
    144144             print*,"aLeRtE cRiTiQuE !!!"
    145145             print*,"Nb trac imcompatible avec la microphysique."
    146146             print*,nmicro,ntype*nrad
     147             stop
     148           endif
     149           if ((nmicro.ne.nrad).and.(clouds.eq.0)) then
     150             print*,"aLeRtE cRiTiQuE !!!"
     151             print*,"Nb trac imcompatible avec la microphysique."
     152             print*,nmicro,nrad
    147153             stop
    148154           endif
Note: See TracChangeset for help on using the changeset viewer.