Changeset 2369

Timestamp:

Jun 11, 2020, 10:46:33 PM (5 years ago)

Author:

jvatant

Message:

Titan GCM: Enable to switch off microphysics compiling for old compilo such as CICLAD, in this case just use -cpp OLD_COMPILO in your makelmdz_fcm

Location:

trunk

Files:

• LMDZ.COMMON/arch/arch-CICLADifort.fcm (modified) (1 diff)
• LMDZ.COMMON/makelmdz_fcm (modified) (1 diff)
• LMDZ.TITAN/libf/phytitan/calmufi.F90 (modified) (2 diffs)
• LMDZ.TITAN/libf/phytitan/inimufi.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/arch/arch-CICLADifort.fcm

@@ -4 +4 @@
 %MAKE                make
 %FPP_FLAGS           -P -traditional
-%FPP_DEF             NC_DOUBLE LAPACK BLAS SGEMV=DGEMV SGEMM=DGEMM 
+%CPP_FLAGS           -P
+%FPP_DEF             NC_DOUBLE LAPACK BLAS SGEMV=DGEMV SGEMM=DGEMM OLD_COMPILO
+%CPP_DEF             LAPACK
 %BASE_FFLAGS         -real-size 64 -ip -mkl=parallel -fp-model precise -align common -mcmodel=large -shared-intel
 %PROD_FFLAGS         -O2
 %DEV_FFLAGS          -O2
 %DEBUG_FFLAGS        -fpe0 -g -no-ftz -check -traceback -ftrapuv -fp-stack-check -O0
+%C_COMPILER          $MPI_BIN/mpicc
+%C_OPTIM             -O2 -ip
 %MPI_FFLAGS          -I$MPI_INCLUDE
 %OMP_FFLAGS          

trunk/LMDZ.COMMON/makelmdz_fcm

@@ -458 +458 @@
 # for Titan add microphysics dependencies
 if [[ -d ${LIBFGCM}/muphy${physique} ]] ; then
-
-  # add muphy{physique} to the list of files to compile.
-  MUPHY_PATH="${LIBFGCM}/muphy${physique}"
-  # For Titan as we embbed some libraries with CPP keys, we define them:
-  #   -DPREC={32|64|80} real kind precision (32: simple, 64: double, 80: extended double)
-  #   -DHAVE_NC_FTN=1 (mandatory: for support of NetCDF in lintnd).
-  CPP_KEY="$CPP_KEY PREC=64 HAVE_NC_FTN=1"
-  if [[ "${physique}" == "titan" ]] ; then
-    echo "Yaahh you're about to use YAMMS in a GCM..."
+  if ! [ `echo $CPP_KEY | grep -c "OLD_COMPILO"` -gt 0 ] ; then
+    # add muphy{physique} to the list of files to compile.
+    MUPHY_PATH="${LIBFGCM}/muphy${physique}"
+    # For Titan as we embbed some libraries with CPP keys, we define them:
+    #   -DPREC={32|64|80} real kind precision (32: simple, 64: double, 80: extended double)
+    #   -DHAVE_NC_FTN=1 (mandatory: for support of NetCDF in lintnd).
+    CPP_KEY="$CPP_KEY PREC=64 HAVE_NC_FTN=1"
+    if [[ "${physique}" == "titan" ]] ; then
+      echo "Yaahh you're about to use YAMMS in a GCM..."
+    fi
   fi
 fi

trunk/LMDZ.TITAN/libf/phytitan/calmufi.F90

@@ -2 +2 @@
 
 SUBROUTINE calmufi(dt, plev, zlev, play, zlay, g3d, temp, pq, zdqfi, zdq)
+
+! Old compilers do not handle modern Fortran in microphysics
+#ifndef OLD_COMPILO
+
   !! Interface subroutine to YAMMS model for Titan LMDZ GCM.
   !!
@@ -188 +192 @@
   zdq(:,:,:) = zdq(:,:,:) / dt
 
+#endif
+
 END SUBROUTINE calmufi

trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90

@@ -1 +1 @@
 subroutine inimufi(ptimestep)
+
+#ifndef OLD_COMPILO
 
   use mmp_gcm
@@ -88 +90 @@
    ENDIF
 
+#endif
+
 end subroutine inimufi