Commit d1fbf10f authored by Romain Pennel's avatar Romain Pennel
Browse files

Compilation possible without MKL or Lapack

parent 93ca55db
Pipeline #174586 passed with stages
in 5 minutes and 43 seconds
......@@ -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
......
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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment