Changeset 970 for trunk/LMDZ.GENERIC/libf

Timestamp:

May 24, 2013, 11:59:55 AM (12 years ago)

Author:

aslmd

Message:

LMZ.GENERIC rcm1d added a warning about tracer number inconsistency to avoid problems.

File:

• trunk/LMDZ.GENERIC/libf/phystd/rcm1d.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/rcm1d.F

@@ -275 +275 @@
 
       else
-      ! we still need to set (dummy) tracer names for physdem1
-        nq=nqmx
+       nq=nqmx
+       ! Check that tracer boolean is compliant with number of tracers
+       ! -- otherwise there is an error (and more generally we have to be consistent)
+       if (.not.tracer .and. nq .ge. 1) then
+          write(*,*) "------------------------------"
+          write(*,*) "rcm1d: You set tracer=.false."
+          write(*,*) " But compiled with 1 tracer or more"
+          write(*,*) " > If you want tracers, set tracer=.true."
+          write(*,*) " > If you do not want tracers, compile with -t 0"
+          write(*,*) "------------------------------"
+          stop
+       endif
+       ! we still need to set (dummy) tracer names for physdem1
         do iq=1,nq
           write(str7,'(a1,i2.2)')'q',iq