Compilation possible without MKL or Lapack

make_icosa

@@ -14,6 +14,7 @@ job=1
 full_defined="FALSE"
 with_xios_defined="FALSE"
 with_oasis_defined="FALSE"
+with_lapack_defined="FALSE"
 arch_defined="FALSE"
 parallel_defined="FALSE"
 arch_default_path="arch"
@@ -72,6 +73,9 @@ fin
       "-with_oasis")
       with_oasis_defined="TRUE" ; shift ;;
   
+      "-with_lapack")
+      with_lapack_defined="TRUE" ; shift ;;
+
         "-no_io")
 	  no_io_defined="TRUE" ; shift ;;
   
@@ -192,6 +196,10 @@ then
   ICOSA_LIB="$ICOSA_LIB $OASIS_LIBDIR $OASIS_LIB"
 fi
 
+if [[ "$with_lapack_defined" == "TRUE" ]]
+then
+  CPP_KEY="$CPP_KEY CPP_USING_LAPACK"
+fi
 
 if [[ "$external_ioipsl" == "TRUE" ]]
 then

src/dcmip/dcmip2016_supercell.f90 → src/dcmip/dcmip2016_supercell.F90

 MODULE dcmip2016_supercell_mod
 
+
 !=======================================================================
 !
 !  Date:  April 22, 2016
@@ -105,6 +106,7 @@ MODULE dcmip2016_supercell_mod
 
 CONTAINS
 
+#ifdef CPP_USING_LAPACK 
 !=======================================================================
 !    Generate the supercell initial conditions
 !=======================================================================
@@ -782,4 +784,33 @@ CONTAINS
 
   END SUBROUTINE
 
+#else  
+
+  SUBROUTINE supercell_init()
+      IMPLICIT NONE
+      PRINT*,  "try to compile with lapack or MKL with -use_lapack make_icosa option"
+      STOP
+  END SUBROUTINE
+  
+  SUBROUTINE supercell_test(lon,lat,p,z,zcoords,u,v,t,thetav,ps,rho,q,pert)
+      IMPLICIT NONE
+  
+      REAL(KIND=8), INTENT(IN)  :: lon, lat
+      REAL(KIND=8), INTENT(INOUT) :: p, z
+      INTEGER, INTENT(IN) :: zcoords
+      REAL(KIND=8), INTENT(OUT) :: u, v, t, thetav, ps, rho, q
+      INTEGER, INTENT(IN) :: pert  
+  
+  END SUBROUTINE
+
+  SUBROUTINE supercell_z(lon, lat, z, p, thetav, rho, q, pert)
+
+    REAL(8), INTENT(IN)  :: lon, lat, z
+    INTEGER, INTENT(IN) :: pert  
+    REAL(8), INTENT(OUT) :: p, thetav, rho, q
+  END SUBROUTINE
+
+#endif
+
+
 END MODULE dcmip2016_supercell_mod