Changeset 15754
- Timestamp:
- 2022-03-17T13:04:45+01:00 (2 years ago)
- Location:
- branches/UKMO/r6232_CO6_CO5_zenv_pomsdwl/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_CO6_CO5_zenv_pomsdwl/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r7450 r15754 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/r6232_CO6_CO5_zenv_pomsdwl/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r7450 r15754 230 230 #endif 231 231 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 /), &233 & OASIS_Out , ishape, OASIS_REAL, nerror )232 CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part , (/ 2, 1 /), & 233 & OASIS_Out , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 234 234 IF ( nerror /= OASIS_Ok ) THEN 235 235 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname) … … 275 275 #endif 276 276 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 /), &278 & OASIS_In , ishape, OASIS_REAL, nerror )277 CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part , (/ 2, 1 /), & 278 & OASIS_In , RESHAPE(ishape, (/4/)) , OASIS_REAL, nerror ) 279 279 IF ( nerror /= OASIS_Ok ) THEN 280 280 WRITE(numout,*) 'Failed to define transient ', ji, jc, jm, " "//TRIM(zclname)
Note: See TracChangeset
for help on using the changeset viewer.