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

Timestamp:

2006-10-20T08:36:42+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_76 : CT : add OASIS[3-4] interfaces to build coupled configurations

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -28 +28 @@
    !!        !  00-07  (J-M Molines, M. Imbard)  Open Boundary Conditions  (CLIPPER)
    !!   9.0  !  02-08  (G. Madec)  F90: Free form and modules
+   !!    "   !  04-06  (R. Redler, NEC CCRLE, Germany) add OASIS[3/4] coupled interfaces
    !!    "   !  04-08  (C. Talandier) New trends organization
    !!    "   !  05-06  (C. Ethe) Add the 1D configuration possibility
@@ -68 +69 @@
 
    USE step            ! OPA time-stepping                  (stp     routine)
+#if defined key_oasis3
+   USE cpl_oasis3      ! OASIS3 coupling (to ECHAM5)
+#else if defined key_oasis4
+   USE cpl_oasis4      ! OASIS4 coupling (to ECHAM5)
+#endif
+   USE dynspg_oce      ! Control choice of surface pressure gradient schemes
    USE prtctl          ! Print control                 (prt_ctl_init routine)
    USE ini1d           ! re-initialization of u-v mask for the 1D configuration
@@ -149 +156 @@
 
       CALL opa_closefile
+#if defined key_oasis3 || defined key_oasis4
+      call cpl_prism_finalize
+#else
       IF( lk_mpp )   CALL mppstop                          ! Close all files (mpp)
+#endif
 
    END SUBROUTINE opa_model
@@ -163 +174 @@
 #if defined key_coupled
       INTEGER ::   itro, istp0        ! ???
+#endif
+#if defined key_oasis3 || defined key_oasis4
+      INTEGER :: localComm
 #endif
       CHARACTER (len=20) ::   namelistname
@@ -197 +211 @@
       READ  ( numnam, namctl )
 
+#ifdef key_oasis3 || defined key_oasis4
+      call cpl_prism_init(localComm)
+      ! Nodes selection
+      narea = mynode(localComm)
+#else
       ! Nodes selection
       narea = mynode()
+#endif
       narea = narea + 1    ! mynode return the rank of proc (0 --> jpnij -1 )
       lwp   = narea == 1
@@ -286 +306 @@
 #endif
 
-#if defined key_coupled
+#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
 
@@ -398 +422 @@
          SELECT CASE ( cp_cfg )
          CASE ( 'gyre' )
-            CALL ctl_warn( ' The Benchmark is activated ' )
+            CALL ctl_warn( '          The Benchmark is activated ' )
          CASE DEFAULT
-            CALL ctl_stop( ' The Benchmark is based on the GYRE configuration: key_gyre must be used or set nbench = 0' )
+            CALL ctl_stop( '          The Benchmark is based on the GYRE configuration: key_gyre must &
+               &                      be used or set nbench = 0' )
          END SELECT
       ENDIF
 
-      SELECT CASE ( nbit_cmp )
-      CASE ( 1 )
-         CALL ctl_warn( ' Bit comparison enabled Single and multiple processor results should bit compare', &
-              &         ' WARNING: RESULTS ARE NOT PHYSICAL.' )
-      CASE DEFAULT
-         CALL ctl_warn( ' Bit comparison not enabled. Single and multiple processor results will differ.' )
-      END SELECT
+      IF( nbit_cmp == 1 )   THEN
+         CALL ctl_warn( '          Bit comparison enabled. Single and multiple processor results must bit compare', &
+              &         '          WARNING: RESULTS ARE NOT PHYSICAL.' )
+      ENDIF