Changeset 4971 for branches/2014/dev_MERGE_2014/NEMOGCM/NEMO
- Timestamp:
- 2014-12-04T10:02:01+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r4969 r4971 496 496 497 497 SUBROUTINE oasis_get_freqs(k1,k2,k3,k4) 498 INTEGER , INTENT(in ) :: k1,k2 499 INTEGER , INTENT( out) :: k3,k4 500 k3 = k1 ; k4 = k2 498 INTEGER , INTENT(in ) :: k1,k2 499 INTEGER, DIMENSION(1), INTENT( out) :: k3 500 INTEGER , INTENT( out) :: k4 501 k3(1) = k1 ; k4 = k2 501 502 WRITE(numout,*) 'oasis_get_freqs: Error you sould not be there...' 502 503 END SUBROUTINE oasis_get_freqs
Note: See TracChangeset
for help on using the changeset viewer.