Changeset 10195


Ignore:
Timestamp:
2018-10-15T14:56:44+02:00 (20 months ago)
Author:
dancopsey
Message:

Make code compatible with ocean only runs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r10176 r10195  
    3535   IMPLICIT NONE 
    3636   PRIVATE 
     37    
     38#if ! defined key_oasis3 
     39   ! Dummy interface to oasis_get if not using oasis 
     40   INTERFACE oasis_get 
     41      MODULE PROCEDURE oasis_get_1d, oasis_get_2d 
     42   END INTERFACE 
     43#endif 
    3744 
    3845   PUBLIC   cpl_init 
     
    734741   SUBROUTINE oasis_def_var(k1,cd1,k2,k3,k4,k5,k6,k7) 
    735742      CHARACTER(*), INTENT(in   ) ::  cd1 
    736       INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k5(2,2),k6 
     743      INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k5(2),k6 
    737744      INTEGER     , INTENT(  out) ::  k1,k7 
    738745      k1 = -1 ; k7 = -1 
     
    754761   END SUBROUTINE oasis_put 
    755762 
    756    SUBROUTINE oasis_get(k1,k2,p1,k3) 
     763   SUBROUTINE oasis_get_1d(k1,k2,p1,k3) 
     764      REAL(wp), DIMENSION(:)  , INTENT(  out) ::  p1 
     765      INTEGER                 , INTENT(in   ) ::  k1,k2 
     766      INTEGER                 , INTENT(  out) ::  k3 
     767      p1(1) = -1. ; k3 = -1 
     768      WRITE(numout,*) 'oasis_get_1d: Error you sould not be there...' 
     769   END SUBROUTINE oasis_get_1d 
     770 
     771   SUBROUTINE oasis_get_2d(k1,k2,p1,k3) 
    757772      REAL(wp), DIMENSION(:,:), INTENT(  out) ::  p1 
    758773      INTEGER                 , INTENT(in   ) ::  k1,k2 
    759774      INTEGER                 , INTENT(  out) ::  k3 
    760775      p1(1,1) = -1. ; k3 = -1 
    761       WRITE(numout,*) 'oasis_get: Error you sould not be there...' 
    762    END SUBROUTINE oasis_get 
     776      WRITE(numout,*) 'oasis_get_2d: Error you sould not be there...' 
     777   END SUBROUTINE oasis_get_2d 
    763778 
    764779   SUBROUTINE oasis_get_freqs(k1,k2,k3,k4) 
Note: See TracChangeset for help on using the changeset viewer.