Changeset 176 for trunk/LMDZ.TITAN/libf

Timestamp:

Jun 28, 2011, 2:56:17 PM (13 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:

• muphys3D.F (modified) (2 diffs)
• phytrac.F (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/muphys3D.F

@@ -235 +235 @@
 c*******************************************************
 
+         if (clouds.eq.0) then
+           if(nrad .ne. nmicro) then 
+             print*,"aLeRte : nrad != nmicro"
+             print*,'nmicro= ',nmicro 
+             print*,'nrad= ',nrad 
+             stop "je m'arrete..." 
+           endif
+         else
            if(nrad .ne. nmicro/ntype) then 
              print*,"aLeRte : nrad != nmicro/ntype"
@@ -243 +251 @@
              stop "je m'arrete..." 
            endif
+         endif
 
            do i=1,nrad

trunk/LMDZ.TITAN/libf/phytitan/phytrac.F

@@ -141 +141 @@
            endif
 c        Nombre de traceurs incompatibles avec la microphysique. 
-           if (nmicro.ne.ntype*nrad) then
+           if ((nmicro.ne.ntype*nrad).and.(clouds.eq.1)) then
              print*,"aLeRtE cRiTiQuE !!!"
              print*,"Nb trac imcompatible avec la microphysique."
              print*,nmicro,ntype*nrad
+             stop
+           endif
+           if ((nmicro.ne.nrad).and.(clouds.eq.0)) then
+             print*,"aLeRtE cRiTiQuE !!!"
+             print*,"Nb trac imcompatible avec la microphysique."
+             print*,nmicro,nrad
              stop
            endif