Changeset 740 for trunk/LMDZ.MARS/libf/phymars/initracer.F

Timestamp:

Jul 25, 2012, 1:03:19 PM (12 years ago)

Author:

tnavarro

Message:

module for ice and radius radius computation

File:

• trunk/LMDZ.MARS/libf/phymars/initracer.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/initracer.F

@@ -162 +162 @@
         enddo
       endif ! of if (doubleq)
-      if (scavenging) then
+      if (microphys) then
         do iq=1,nqmx
           if (noms(iq).eq."ccn_mass") then
@@ -173 +173 @@
           endif
         enddo
-      endif ! of if (scavenging)
+      endif ! of if (microphys)
       if (submicron) then
         do iq=1,nqmx