diff --git a/couplage/MAR/call_caraib.f90 b/couplage/MAR/call_caraib.f90 index 1da598956553fccbd40c2835cb0635a8ca63beac..4790ad930bd1bc84c9a220b719d51da2afa60063 100644 --- a/couplage/MAR/call_caraib.f90 +++ b/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