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 10404 for NEMO/trunk/src/OCE/SBC/cpl_oasis3.F90 – NEMO

Ignore:
Timestamp:
2018-12-18T10:05:53+01:00 (6 years ago)
Author:
smasson
Message:

trunk: compatibility with oasis3-mct v4

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/cpl_oasis3.F90

    r10112 r10404  
    142142      INTEGER :: id_part 
    143143      INTEGER :: paral(5)       ! OASIS3 box partition 
    144       INTEGER :: ishape(2,2)    ! shape of arrays passed to PSMILe 
     144      INTEGER :: ishape(4)    ! shape of arrays passed to PSMILe 
    145145      INTEGER :: ji,jc,jm       ! local loop indicees 
    146146      CHARACTER(LEN=64) :: zclname 
     
    181181      !     nl* is set to the global values 1 and jp*glo. 
    182182      ! 
    183       ishape(:,1) = (/ 1, nlei-nldi+1 /) 
    184       ishape(:,2) = (/ 1, nlej-nldj+1 /) 
     183      ishape(1) = 1 
     184      ishape(2) = nlei-nldi+1 
     185      ishape(3) = 1 
     186      ishape(4) = nlej-nldj+1 
    185187      ! 
    186188      ! ... Allocate memory for data exchange 
     
    242244#endif 
    243245                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 
    244                   CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
     246                  CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    245247                     &                OASIS_Out          , ishape , OASIS_REAL, nerror ) 
    246248                  IF ( nerror /= OASIS_Ok ) THEN 
     
    287289#endif 
    288290                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
    289                   CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
     291                  CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    290292                     &                OASIS_In           , ishape , OASIS_REAL, nerror ) 
    291293                  IF ( nerror /= OASIS_Ok ) THEN 
Note: See TracChangeset for help on using the changeset viewer.