Changeset 7846 for branches/2015
- Timestamp:
- 2017-03-30T15:25:01+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r5407 r7846 1 1 2 MODULE cpl_oasis3 2 3 !!====================================================================== … … 196 197 ENDIF 197 198 198 CALL oasis_def_partition ( id_part, paral, nerror )199 CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo ) 199 200 ! 200 201 ! ... Announce send variables. … … 514 515 END SUBROUTINE oasis_get_localcomm 515 516 516 SUBROUTINE oasis_def_partition(k1,k2,k3 )517 SUBROUTINE oasis_def_partition(k1,k2,k3,k4) 517 518 INTEGER , INTENT( out) :: k1,k3 518 519 INTEGER , INTENT(in ) :: k2(5) 519 k1 = k2(1) ; k3 = k2(5) 520 INTEGER , INTENT(in ) :: k4 521 k1 = k2(1) ; k3 = k2(5)+k4 520 522 WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...' 521 523 END SUBROUTINE oasis_def_partition
Note: See TracChangeset
for help on using the changeset viewer.