testing the dual .exe

couplage/CARAIB/ver01_Iv_couplage/caraib_main_01_Iv_couplage.F

-      subroutine caraib
+      Program caraib
 c// Fichier caraib_netcdf_02.F du jeudi 18 d�cembre 2014, 11:51:02 (UTC+0100)
 c//  - completed enhanced NetCDF
 c// Fichier caraib_netcdf_01.F du mercredi 17 d�cembre 2014, 08:19:43 (UTC+0100)
@@ -916,4 +916,4 @@ cc	      idayct = idayct + nd
     !   call system('cp ./CARAIB_couplage/results/Belgium/* 
     !  . /climato_tmp1/tdethinne/res_car/')
       
-      end subroutine caraib
\ No newline at end of file
+      end Program caraib
\ No newline at end of file

couplage/MAR/COMPILE

@@ -506,7 +506,7 @@ case $model in
 
       if [ $MC = "T" ]; then
       #Compile CARAIB
-      for file in $mar_adds $modules_car; do
+      for file in $mar_adds ; do
             $foc $openmp $opt -c $file.f90
             if [ $? -ne 0 ]; then
                 Ferror "$file"
@@ -516,16 +516,7 @@ case $model in
                 Fgoon "$foc $openmp $opt  -c $file"
             fi
         done
-        for file in $carbon_car $hydro_car $mod_car; do
-            $foc $openmp $opt -c -fpp $file.f 
-            if [ $? -ne 0 ]; then
-                Ferror "$file"
-                DAMNED "compilation error"
-                exit
-            else
-                Fgoon "$foc $openmp $opt  -c $file"
-            fi
-        done
+
       fi
 
         file=phyrad_cep.f90
@@ -555,6 +546,44 @@ case $model in
             $foc $openmp $opt *.o -o MAR_$runnam.exe radCEP.a $lnk
         fi
         tmp=$?
+
+
+        if [ $MC = "T" ]; then
+
+        rm -rf *.o
+
+        #Compile CARAIB
+        for file in $modules1 $modules2 $modules3 $modules4 $modules_car; do
+                $foc $openmp $opt -c $file.f90
+                if [ $? -ne 0 ]; then
+                    Ferror "$file"
+                    DAMNED "compilation error"
+                    exit
+                else
+                    Fgoon "$foc $openmp $opt  -c $file"
+                fi
+            done
+            for file in $carbon_car $hydro_car $mod_car; do
+                $foc $openmp $opt -c -fpp $file.f 
+                if [ $? -ne 0 ]; then
+                    Ferror "$file"
+                    DAMNED "compilation error"
+                    exit
+                else
+                    Fgoon "$foc $openmp $opt  -c $file"
+                fi
+            done
+        fi
+
+        if [ $AO = "T" ]; then
+            Fgoon "$foc $openmp $opt *.o -o CAR.exe $LIBPSMILE -lmpi $lnk"
+            $foc $openmp $opt *.o -o CAR.exe $LIBPSMILE -lmpi $lnk
+        else
+            Fgoon "$foc $openmp  $opt  *.o  -o CAR.exe $lnk"
+            $foc $openmp $opt *.o -o CAR.exe $lnk
+        fi
+        tmp=$?
+
         [ $backup == "n" ] && exit
         # exit # to uncomment if MAR is recompiled
         #

couplage/MAR/call_caraib.f90

@@ -88,7 +88,7 @@
     
                 write(6,*) "Starting caraib"
                 
-                call caraib
+                call system('./CAR.exe')
 
                 !Rename all the files of the first output of CARAIB if its the spin up
                 if (first_iter .eq. 1)  CALL rename_spinup