Changeset 726 for LMDZ4/branches/V3_test/libf/dyn3d/iniadvtrac.F

Timestamp:

Nov 6, 2006, 4:51:16 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Modifications pour rendre INCA plus independant de LMDZ ACo
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3d/iniadvtrac.F (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/dyn3d/iniadvtrac.F

@@ -6 +6 @@
       subroutine iniadvtrac(nq)
       USE ioipsl
-#ifdef INCA
-      USE transport_controls, only : hadv_flg, vadv_flg
-      USE species_names
-      USE chemshut
-#endif
       IMPLICIT NONE
 c=======================================================================
@@ -59 +54 @@
       descrq(20)='SLP'
       descrq(30)='PRA'
+
+#ifdef INCA
+
+      CALL init_transport( 
+     $     hadv_flg,
+     $     vadv_flg,
+     $     conv_flg,
+     $     pbl_flg,
+     $     tracnam)
+#endif
 
 c-----------------------------------------------------------------------