Changeset 14865 for branches


Ignore:
Timestamp:
2021-05-14T13:39:06+02:00 (4 months ago)
Author:
jcastill
Message:

Further fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_PS44_XIOS25/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r14839 r14865  
    276276#endif 
    277277                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 
    278                   CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
     278                  CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    279279                     &                OASIS_Out          , RESHAPE(ishape,(/4/)) , OASIS_REAL, nerror ) 
    280280                  IF ( nerror /= OASIS_Ok ) THEN 
     
    321321#endif 
    322322                  IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 
    323                   CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 0 /),   & 
     323                  CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part   , (/ 2, 1 /),   & 
    324324                     &                OASIS_In           , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 
    325325                  IF ( nerror /= OASIS_Ok ) THEN 
Note: See TracChangeset for help on using the changeset viewer.