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 13199 for branches – NEMO

Changeset 13199 for branches


Ignore:
Timestamp:
2020-07-01T22:11:43+02:00 (4 years ago)
Author:
jcastill
Message:

Further changes for OASIS vn4.0, compatible with previous versions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/r6232_HZG_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r13099 r13199  
    230230#endif 
    231231                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 
    232                   CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
     232                  CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    233233                     &                OASIS_Out          , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 
    234234                  IF ( nerror /= OASIS_Ok ) THEN 
     
    275275#endif 
    276276                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
    277                   CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
     277                  CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    278278                     &                OASIS_In           , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 
    279279                  IF ( nerror /= OASIS_Ok ) THEN 
Note: See TracChangeset for help on using the changeset viewer.