Changeset 835

Timestamp:

05/03/19 13:13:29 (5 years ago)

Author:

dubos

Message:

devel : print svn info / svn status in log file

Location:

codes/icosagcm/devel

Files:

• make_icosa (modified) (1 diff)
• src/icosa_init.f90 (modified) (2 diffs)

codes/icosagcm/devel/make_icosa

@@ -221 +221 @@
 echo "%USE_IOIPSL $use_ioipsl">> config.fcm
 
+# generate signature
+function signature()
+{
+    cat <<EOF
+MODULE signature_mod
+IMPLICIT NONE
+CONTAINS
+SUBROUTINE print_signature
+EOF
+    (cd -P src ; svn info .. ; svn status -q) | (while read line ; do echo "   PRINT *, '$line' " ; done)
+    cat <<EOF
+END SUBROUTINE print_signature
+END MODULE signature_mod
+EOF
+}
+
+signature | tee src/base/signature.f90
+
 if [[ "$full_defined" == "TRUE" ]]
 then

codes/icosagcm/devel/src/icosa_init.f90

@@ -5 +5 @@
   SUBROUTINE icosa_init
   USE icosa
+  USE signature_mod
   USE timeloop_gcm_mod
   USE disvert_mod
@@ -27 +28 @@
     CALL init_profiling
     CALL init_mpipara
+    IF(is_mpi_master) CALL print_signature
     CALL trace_off
     CALL xios_init