Changeset 8433 for branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
- Timestamp:
- 2017-08-10T17:33:56+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_new_runoff_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r8212 r8433 139 139 INTEGER, INTENT(in) :: kcplmodel ! Maximum number of models to/from which NEMO is potentialy sending/receiving data 140 140 ! 141 INTEGER :: id_part 141 INTEGER :: id_part ! Partition for all 2D model fields to be coupled 142 INTEGER :: id_part_r ! Partition for river runoff 142 143 INTEGER :: paral(5) ! OASIS3 box partition 143 144 INTEGER :: ishape(2,2) ! shape of arrays passed to PSMILe … … 200 201 201 202 CALL oasis_def_partition ( id_part, paral, nerror ) 203 204 ! Another partition is needed for river runoff 205 206 paral(1) = 0 ! serial partitioning 207 paral(2) = 0 208 paral(3) = 10 ! size of array to couple 209 paral(4) = 0 210 paral(5) = 0 211 212 CALL oasis_def_partition ( id_part_r, paral, nerror ) 213 202 214 ! 203 215 ! ... Announce send variables. … … 293 305 294 306 ! Define river runoff 295 CALL oasis_def_var (runoff_id, 'runoffo', id_part , (/ 1, 0 /), &307 CALL oasis_def_var (runoff_id, 'runoffo', id_part_r , (/ 1, 0 /), & 296 308 & OASIS_In , (/ 1, 10 /) , OASIS_REAL, nerror ) 297 309 IF ( nerror /= OASIS_Ok ) THEN
Note: See TracChangeset
for help on using the changeset viewer.