Index: LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90
===================================================================
--- LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90	(revision 1007)
+++ LMDZ4/trunk/libf/dyn3dpar/mod_const_para.F90	(revision 1008)
@@ -18,13 +18,13 @@
     INTEGER             :: thread_required
     INTEGER             :: thread_provided
-    CHARACTER(len = 6)  :: ocean
+    CHARACTER(len = 6)  :: type_ocean
 
 !$OMP MASTER
-    ocean = 'force '
-    CALL getin('OCEAN', ocean)
+    type_ocean = 'force '
+    CALL getin('type_ocean', type_ocean)
 !$OMP END MASTER
 !$OMP BARRIER
 
-    IF (ocean=='couple') THEN
+    IF (type_ocean=='couple') THEN
 #ifdef CPP_COUPLE
 !$OMP MASTER