Changeset 2567 for LMDZ5/trunk/libf

Timestamp:

Jun 13, 2016, 10:23:40 AM (8 years ago)

Author:

acozic

Message:

correct a bug / hadv_inca and vadv_inca need to be defined even when we don't use inca model

File:

• LMDZ5/trunk/libf/dyn3d_common/infotrac.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d_common/infotrac.F90

@@ -87 +87 @@
     INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv  ! index of vertical trasport schema
 
-#ifdef INCA
     INTEGER, ALLOCATABLE, DIMENSION(:) :: hadv_inca  ! index of horizontal trasport schema
     INTEGER, ALLOCATABLE, DIMENSION(:) :: vadv_inca  ! index of vertical trasport schema
-#endif
 
     CHARACTER(len=15), ALLOCATABLE, DIMENSION(:) :: tnom_0  ! tracer short name
@@ -210 +208 @@
 #endif       
        nqtrue=nbtr+nqo
+
+       ALLOCATE(hadv_inca(nbtr), vadv_inca(nbtr)) 
+
     END IF   ! type_trac
 !>jyg
@@ -232 +233 @@
     ALLOCATE(tnom_0(nqtrue), hadv(nqtrue), vadv(nqtrue),tnom_transp(nqtrue))
 
-#ifdef INCA
-    ALLOCATE(hadv_inca(nbtr), vadv_inca(nbtr)) 
-#endif
 !
 !jyg<