Changeset 9162
- Timestamp:
- 2017-12-22T12:12:56+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r6615 r9162 31 31 USE in_out_manager ! I/O manager 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 34 34 IMPLICIT NONE 35 35 PRIVATE … … 190 190 IF( nerror > 0 ) THEN 191 191 CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in allocating exfld') ; RETURN 192 ENDIF 192 ENDIF 193 193 ! 194 194 ! ----------------------------------------------------------------- 195 195 ! ... Define the partition 196 196 ! ----------------------------------------------------------------- 197 197 198 198 paral(1) = 2 ! box partitioning 199 199 paral(2) = jpiglo * (nldj-1+njmpp-1) + (nldi-1+nimpp-1) ! NEMO lower left corner global offset … … 254 254 END DO 255 255 ENDIF 256 END DO 256 END DO 257 257 ! 258 258 ! ... Announce received variables.
Note: See TracChangeset
for help on using the changeset viewer.