- Timestamp:
- 2017-03-30T16:03:21+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r7848 r7851 514 514 END SUBROUTINE oasis_get_localcomm 515 515 516 SUBROUTINE oasis_def_partition(k1,k2,k3 )516 SUBROUTINE oasis_def_partition(k1,k2,k3,k4) 517 517 INTEGER , INTENT( out) :: k1,k3 518 518 INTEGER , INTENT(in ) :: k2(5) 519 k1 = k2(1) ; k3 = k2(5) 519 INTEGER , INTENT(in ) :: k4 520 k1 = k2(1) ; k3 = k2(5)+k4 520 521 WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...' 521 522 END SUBROUTINE oasis_def_partition
Note: See TracChangeset
for help on using the changeset viewer.