Changeset 171 for trunk/LMDZ.MARS/libf/dyn3d

Timestamp:

Jun 22, 2011, 7:51:16 AM (14 years ago)

Author:

emillour

Message:

Mars GCM:

• added modifications (from JYC & FGG) to tracer.h & initracer.F for ions
• minor improvement to newstart.F (q=x option, check that tracer index provided by user is valid).

EM

File:

• trunk/LMDZ.MARS/libf/dyn3d/newstart.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dyn3d/newstart.F

@@ -734 +734 @@
              write(*,*) '(choose between 1 and ',nqmx,')'
              read(*,*) iq 
+             if ((iq.lt.1).or.(iq.gt.nqmx)) then
+               ! wrong value for iq, go back to menu
+               write(*,*) "wrong input value:",iq
+               cycle
+             endif
              write(*,*)'mixing ratio of tracer ',trim(tnom(iq)),
      &                 ' ? (kg/kg)'
@@ -1416 +1421 @@
      *rage est differente de la valeur parametree llm =',i4//)
 
+      write(*,*) "newstart: All is well that ends well."
+
       end