New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4971 – NEMO

Changeset 4971


Ignore:
Timestamp:
2014-12-04T10:02:01+01:00 (9 years ago)
Author:
smasson
Message:

dev_MERGE_2014: correct minor error in previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_MERGE_2014/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r4969 r4971  
    496496 
    497497   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 
    501502      WRITE(numout,*) 'oasis_get_freqs: Error you sould not be there...' 
    502503   END SUBROUTINE oasis_get_freqs 
Note: See TracChangeset for help on using the changeset viewer.