Update call_caraib.f90

couplage/MAR/call_caraib.f90

@@ -22,6 +22,7 @@
         use marcar
         use mar_ge
         use mar_vb
+        use marctr
 
         IMPLICIT NONE
   
@@ -48,8 +49,6 @@
         CASE (1)
             write(6,*) "write eco"
             call make_eco
-            write(6,*)"nprint", nprint
-            write(6,*)"nboucl", nboucl
         
         ! Check is this is the last dt of the day
         CASE (2)
@@ -70,8 +69,6 @@
                 ! +++++++++++++++++++++++
                 ! Coupling MAR - CARAIB +
                 ! +++++++++++++++++++++++
-                write(6,*)"jhurGE",jhurGE
-                write(6,*)"jsecGE",jsecGE
                 !create the file containing the required  climatic values
                 call make_clim('tem','TT',3,2)
                 call make_clim('prc','MBrr',3,4)
@@ -138,7 +135,7 @@
             write(6, *) "  Maybe you do not intend to coupled MAR and CARAIB"
             write(6, *) "Please check your ""coupling"" indicator in MARcar mod"
             write(6, *) "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
-            exit
+            
         END SELECT