Changeset 10195 for branches

Timestamp:

2018-10-15T14:56:44+02:00 (6 years ago)

Author:

dancopsey

Message:

Make code compatible with ocean only runs.

File:

• branches/UKMO/dev_r5518_GO6_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -35 +35 @@
    IMPLICIT NONE
    PRIVATE
+   
+#if ! defined key_oasis3
+   ! Dummy interface to oasis_get if not using oasis
+   INTERFACE oasis_get
+      MODULE PROCEDURE oasis_get_1d, oasis_get_2d
+   END INTERFACE
+#endif
 
    PUBLIC   cpl_init
@@ -734 +741 @@
    SUBROUTINE oasis_def_var(k1,cd1,k2,k3,k4,k5,k6,k7)
       CHARACTER(*), INTENT(in   ) ::  cd1
-      INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k5(2,2),k6
+      INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k5(2),k6
       INTEGER     , INTENT(  out) ::  k1,k7
       k1 = -1 ; k7 = -1
@@ -754 +761 @@
    END SUBROUTINE oasis_put
 
-   SUBROUTINE oasis_get(k1,k2,p1,k3)
+   SUBROUTINE oasis_get_1d(k1,k2,p1,k3)
+      REAL(wp), DIMENSION(:)  , INTENT(  out) ::  p1
+      INTEGER                 , INTENT(in   ) ::  k1,k2
+      INTEGER                 , INTENT(  out) ::  k3
+      p1(1) = -1. ; k3 = -1
+      WRITE(numout,*) 'oasis_get_1d: Error you sould not be there...'
+   END SUBROUTINE oasis_get_1d
+
+   SUBROUTINE oasis_get_2d(k1,k2,p1,k3)
       REAL(wp), DIMENSION(:,:), INTENT(  out) ::  p1
       INTEGER                 , INTENT(in   ) ::  k1,k2
       INTEGER                 , INTENT(  out) ::  k3
       p1(1,1) = -1. ; k3 = -1
-      WRITE(numout,*) 'oasis_get: Error you sould not be there...'
-   END SUBROUTINE oasis_get
+      WRITE(numout,*) 'oasis_get_2d: Error you sould not be there...'
+   END SUBROUTINE oasis_get_2d
 
    SUBROUTINE oasis_get_freqs(k1,k2,k3,k4)