Changeset 1569 for LMDZ5/trunk/libf/dyn3d

Timestamp:

Sep 1, 2011, 2:11:11 PM (13 years ago)

Author:

jghattas

Message:

Added coherence test between variable type_trac and cpp key used when compiling.

File:

• LMDZ5/trunk/libf/dyn3d/infotrac.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d/infotrac.F90

@@ -88 +88 @@
     
 
-    ! Coherence test between parameter type_trac and config_inca
+    ! Coherence test between parameter type_trac, config_inca and preprocessing keys
     IF (type_trac=='inca') THEN
        WRITE(lunout,*) 'You have choosen to couple with INCA chemestry model : type_trac=', &
@@ -96 +96 @@
           CALL abort_gcm('infotrac_init','Incoherence between type_trac and config_inca',1)
        END IF
+#ifndef INCA
+       WRITE(lunout,*) 'To run this option you must add cpp key INCA and compile with INCA code'
+       CALL abort_gcm('infotrac_init','You must compile with cpp key INCA',1)
+#endif
     ELSE IF (type_trac=='repr') THEN
        WRITE(lunout,*) 'You have choosen to couple with REPROBUS chemestry model : type_trac=', type_trac
+#ifndef REPROBUS
+       WRITE(lunout,*) 'To run this option you must add cpp key REPROBUS and compile with REPRPBUS code'
+       CALL abort_gcm('infotrac_init','You must compile with cpp key REPROBUS',1)
+#endif
     ELSE IF (type_trac == 'lmdz') THEN
        WRITE(lunout,*) 'Tracers are treated in LMDZ only : type_trac=', type_trac