Changeset 8203 for branches/UKMO/dev_r5518_GO6M_dev
- Timestamp:
- 2017-06-21T17:07:37+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8200 r8203 2050 2050 SUBROUTINE mppstop 2051 2051 2052 #if defined key_oasis3 2052 2053 USE mod_oasis ! coupling routines 2054 #endif 2053 2055 2054 2056 !!---------------------------------------------------------------------- -
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r8200 r8203 475 475 #if defined key_oa3mct_v3 476 476 CALL oasis_get_freqs(id, mop, 1, itmp, info) 477 #elseif key_oasis3 478 itmp(1) = namflddti( id ) 477 479 #else 478 !CALL oasis_get_freqs(id, 1, itmp, info)479 cpl_freq = namflddti( id ) 480 #endif 480 CALL oasis_get_freqs(id, 1, itmp, info) 481 #endif 482 cpl_freq = itmp(1) 481 483 ENDIF 482 484 ! … … 527 529 END SUBROUTINE oasis_get_localcomm 528 530 529 SUBROUTINE oasis_def_partition(k1,k2,k3 )531 SUBROUTINE oasis_def_partition(k1,k2,k3,K4) 530 532 INTEGER , INTENT( out) :: k1,k3 531 533 INTEGER , INTENT(in ) :: k2(5) 534 INTEGER , OPTIONAL, INTENT(in ) :: k4 532 535 k1 = k2(1) ; k3 = k2(5) 533 536 WRITE(numout,*) 'oasis_def_partition: Error you sould not be there...'
Note: See TracChangeset
for help on using the changeset viewer.