Changeset 10050 for branches/UKMO/dev_r5518_GO6_oasis3mct_vn4
- Timestamp:
- 2018-08-14T10:50:59+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_oasis3mct_vn4/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r10018 r10050 151 151 INTEGER :: id_part 152 152 INTEGER :: paral(5) ! OASIS3 box partition 153 INTEGER :: ishape(4) ! shape of arrays passed to PSMILe 153 INTEGER :: ishape(4) ! Shape of arrays passed to PSMILe. 154 ! Redundant from OASIS3-MCT vn4.0 onwards but required 155 ! to satisfy interface and for backward compatibility. 154 156 INTEGER :: var_nodims(2) ! Number of coupling field dimensions. 155 ! var_nodims(1) is redundant with OASIS3-MCT vn4.0 but retained 156 ! for backwards compatibility. var_nodims(2) is the number of 157 ! fields in a bundle or 1 for unbundled fields. 157 ! var_nodims(1) is redundant from OASIS3-MCT vn4.0 onwards 158 ! but retained for backward compatibility. 159 ! var_nodims(2) is the number of fields in a bundle 160 ! or 1 for unbundled fields (bundles are not yet catered for 161 ! in NEMO hence we default to 1). 158 162 INTEGER :: ji,jc,jm ! local loop indicees 159 163 CHARACTER(LEN=64) :: zclname … … 255 259 ! ... Set the field dimension and bundle count 256 260 var_nodims(1) = 2 257 var_nodims(2) = 1 ! M ake this variable to cater for bundled fields.261 var_nodims(2) = 1 ! Modify this value to cater for bundled fields. 258 262 259 263 CALL oasis_def_var (ssnd(ji)%nid(jc,jm), zclname, id_part , var_nodims, & … … 305 309 ! ... Set the field dimension and bundle count 306 310 var_nodims(1) = 2 307 var_nodims(2) = 1 ! M ake this variable to cater for bundled fields.311 var_nodims(2) = 1 ! Modify this value to cater for bundled fields. 308 312 309 313 CALL oasis_def_var (srcv(ji)%nid(jc,jm), zclname, id_part , var_nodims, &
Note: See TracChangeset
for help on using the changeset viewer.