Changeset 1226 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2008-11-27T18:41:45+01:00 (15 years ago)

Author:

smasson

Message:

bugfix of the coupling interface (commited during changeset:1218), see ticket:155

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -172 +172 @@
       !!
       !!----------------------------------------------------------------------
-#if defined key_coupled
-      INTEGER ::   itro, istp0        ! ???
-#endif
 #if defined key_oasis3 || defined key_oasis4
       INTEGER :: localComm
@@ -289 +286 @@
 #endif
 
-#if defined key_coupled && ! defined key_oasis3 && ! defined key_oasis4
-      itro  = nitend - nit000 + 1           ! Coupled
-      istp0 = NINT( rdt )
-      CALL cpl_init( itro, nexco, istp0 )   ! Signal processing and process id exchange
-#endif
-
-#if defined key_oasis3 || defined key_oasis4
-      CALL cpl_prism_define
-#endif
-
       CALL dia_ptr_init                     ! Poleward TRansports initialization