Changeset 11454
- Timestamp:
- 2019-08-19T17:28:27+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r11452 r11454 56 56 INTEGER :: OASIS_ToRest = -1 57 57 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 62 72 #endif 63 73 … … 542 552 END SUBROUTINE oasis_def_partition 543 553 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) 545 555 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(:) 547 558 INTEGER , INTENT( out) :: k1,k7 548 559 k1 = -1 ; k7 = -1 549 560 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 551 571 552 572 SUBROUTINE oasis_enddef(k1) … … 564 584 END SUBROUTINE oasis_put 565 585 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) 567 595 REAL(wp), DIMENSION(:,:), INTENT( out) :: p1 568 596 INTEGER , INTENT(in ) :: k1,k2 … … 570 598 p1(1,1) = -1. ; k3 = -1 571 599 WRITE(numout,*) 'oasis_get: Error you sould not be there...' 572 END SUBROUTINE oasis_get 600 END SUBROUTINE oasis_get_2d 573 601 574 602 SUBROUTINE oasis_get_freqs(k1,k2,k3,k4)
Note: See TracChangeset
for help on using the changeset viewer.