- Timestamp:
- 2021-05-11T13:35:59+02:00 (3 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_PS44_XIOS25/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_PS44_XIOS25/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8058 r14839 1326 1326 IF ( xios_is_valid_gridgroup(cdid) ) CALL xios_set_gridgroup_attr( cdid, mask=mask ) 1327 1327 #else 1328 IF ( xios_is_valid_grid (cdid) ) CALL xios_set_grid_attr ( cdid, mask 3=mask )1329 IF ( xios_is_valid_gridgroup(cdid) ) CALL xios_set_gridgroup_attr( cdid, mask 3=mask )1328 IF ( xios_is_valid_grid (cdid) ) CALL xios_set_grid_attr ( cdid, mask_3D=mask ) 1329 IF ( xios_is_valid_gridgroup(cdid) ) CALL xios_set_gridgroup_attr( cdid, mask_3D=mask ) 1330 1330 #endif 1331 1331 CALL xios_solve_inheritance() -
branches/UKMO/AMM15_v3_6_STABLE_PS44_XIOS25/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r11277 r14839 277 277 IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_Out 278 278 CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part , (/ 2, 0 /), & 279 & OASIS_Out , ishape, OASIS_REAL, nerror )279 & OASIS_Out , RESHAPE(ishape,(/4/)) , OASIS_REAL, nerror ) 280 280 IF ( nerror /= OASIS_Ok ) THEN 281 281 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname) … … 322 322 IF( ln_ctl ) WRITE(numout,*) "Define", ji, jc, jm, " "//TRIM(zclname), " for ", OASIS_In 323 323 CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part , (/ 2, 0 /), & 324 & OASIS_In , ishape, OASIS_REAL, nerror )324 & OASIS_In , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 325 325 IF ( nerror /= OASIS_Ok ) THEN 326 326 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname)
Note: See TracChangeset
for help on using the changeset viewer.