Changeset 14865
- Timestamp:
- 2021-05-14T13:39:06+02:00 (4 years ago)
- 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 276 276 #endif 277 277 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 /), & 279 279 & OASIS_Out , RESHAPE(ishape,(/4/)) , OASIS_REAL, nerror ) 280 280 IF ( nerror /= OASIS_Ok ) THEN … … 321 321 #endif 322 322 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 /), & 324 324 & OASIS_In , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 325 325 IF ( nerror /= OASIS_Ok ) THEN
Note: See TracChangeset
for help on using the changeset viewer.