Changeset 10195
- Timestamp:
- 2018-10-15T14:56:44+02:00 (6 years ago)
- 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 35 35 IMPLICIT NONE 36 36 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 37 44 38 45 PUBLIC cpl_init … … 734 741 SUBROUTINE oasis_def_var(k1,cd1,k2,k3,k4,k5,k6,k7) 735 742 CHARACTER(*), INTENT(in ) :: cd1 736 INTEGER , INTENT(in ) :: k2,k3(2),k4,k5(2 ,2),k6743 INTEGER , INTENT(in ) :: k2,k3(2),k4,k5(2),k6 737 744 INTEGER , INTENT( out) :: k1,k7 738 745 k1 = -1 ; k7 = -1 … … 754 761 END SUBROUTINE oasis_put 755 762 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) 757 772 REAL(wp), DIMENSION(:,:), INTENT( out) :: p1 758 773 INTEGER , INTENT(in ) :: k1,k2 759 774 INTEGER , INTENT( out) :: k3 760 775 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 763 778 764 779 SUBROUTINE oasis_get_freqs(k1,k2,k3,k4)
Note: See TracChangeset
for help on using the changeset viewer.