New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11454 – NEMO

Changeset 11454


Ignore:
Timestamp:
2019-08-19T17:28:27+02:00 (5 years ago)
Author:
jcastill
Message:

Final changes to make the branch work in uncoupled mode

File:
1 edited

Legend:

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

    r11452 r11454  
    5656   INTEGER                    ::   OASIS_ToRest      = -1 
    5757   INTEGER                    ::   OASIS_ToRestOut   = -1 
    58    INTEGER                    ::   OASIS_Recvd       = -1 
    59    INTEGER                    ::   OASIS_RecvOut     = -1 
    60    INTEGER                    ::   OASIS_FromRest    = -1 
    61    INTEGER                    ::   OASIS_FromRestOut = -1 
     58   INTEGER, PUBLIC            ::   OASIS_Recvd       = -1 
     59   INTEGER, PUBLIC            ::   OASIS_RecvOut     = -1 
     60   INTEGER, PUBLIC            ::   OASIS_FromRest    = -1 
     61   INTEGER, PUBLIC            ::   OASIS_FromRestOut = -1 
     62 
     63   PUBLIC oasis_get 
     64 
     65   INTERFACE oasis_def_var 
     66      MODULE PROCEDURE oasis_def_var_1d, oasis_def_var_2d 
     67   END INTERFACE 
     68 
     69   INTERFACE oasis_get 
     70      MODULE PROCEDURE oasis_get_1d, oasis_get_2d 
     71   END INTERFACE 
    6272#endif 
    6373 
     
    542552   END SUBROUTINE oasis_def_partition 
    543553 
    544    SUBROUTINE oasis_def_var(k1,cd1,k2,k3,k4,k5,k6,k7) 
     554   SUBROUTINE oasis_def_var_1d(k1,cd1,k2,k3,k4,k5,k6,k7) 
    545555      CHARACTER(*), INTENT(in   ) ::  cd1 
    546       INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k5(2,2),k6 
     556      INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k6 
     557      INTEGER,      INTENT(in   ) ::  k5(:) 
    547558      INTEGER     , INTENT(  out) ::  k1,k7 
    548559      k1 = -1 ; k7 = -1 
    549560      WRITE(numout,*) 'oasis_def_var: Error you sould not be there...', cd1 
    550    END SUBROUTINE oasis_def_var 
     561   END SUBROUTINE oasis_def_var_1d 
     562 
     563   SUBROUTINE oasis_def_var_2d(k1,cd1,k2,k3,k4,k5,k6,k7) 
     564      CHARACTER(*), INTENT(in   ) ::  cd1 
     565      INTEGER     , INTENT(in   ) ::  k2,k3(2),k4,k6 
     566      INTEGER,      INTENT(in   ) ::  k5(:,:) 
     567      INTEGER     , INTENT(  out) ::  k1,k7 
     568      k1 = -1 ; k7 = -1 
     569      WRITE(numout,*) 'oasis_def_var: Error you sould not be there...', cd1 
     570   END SUBROUTINE oasis_def_var_2d 
    551571 
    552572   SUBROUTINE oasis_enddef(k1) 
     
    564584   END SUBROUTINE oasis_put 
    565585 
    566    SUBROUTINE oasis_get(k1,k2,p1,k3) 
     586   SUBROUTINE oasis_get_1d(k1,k2,p1,k3) 
     587      REAL(wp), DIMENSION(:)  , INTENT(  out) ::  p1 
     588      INTEGER                 , INTENT(in   ) ::  k1,k2 
     589      INTEGER                 , INTENT(  out) ::  k3 
     590      p1(1) = -1. ; k3 = -1 
     591      WRITE(numout,*) 'oasis_get: Error you sould not be there...' 
     592   END SUBROUTINE oasis_get_1d 
     593 
     594   SUBROUTINE oasis_get_2d(k1,k2,p1,k3) 
    567595      REAL(wp), DIMENSION(:,:), INTENT(  out) ::  p1 
    568596      INTEGER                 , INTENT(in   ) ::  k1,k2 
     
    570598      p1(1,1) = -1. ; k3 = -1 
    571599      WRITE(numout,*) 'oasis_get: Error you sould not be there...' 
    572    END SUBROUTINE oasis_get 
     600   END SUBROUTINE oasis_get_2d 
    573601 
    574602   SUBROUTINE oasis_get_freqs(k1,k2,k3,k4) 
Note: See TracChangeset for help on using the changeset viewer.