- Timestamp:
- 2020-05-05T08:18:05+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/IOM/iom.F90
r12815 r12866 1226 1226 IF( PRESENT(psgn ) ) zsgn = psgn 1227 1227 !--- overlap areas and extra hallows (mpp) 1228 IF( PRESENT(pv_r2d) .AND. idom /= jpdom_unknown ) THEN1228 IF( PRESENT(pv_r2d) .AND. idom /= jpdom_unknown .AND. cl_type /= 'Z' ) THEN 1229 1229 CALL lbc_lnk( 'iom', pv_r2d, cl_type, zsgn, kfillmode = kfill ) 1230 ELSEIF( PRESENT(pv_r3d) .AND. idom /= jpdom_unknown ) THEN1230 ELSEIF( PRESENT(pv_r3d) .AND. idom /= jpdom_unknown .AND. cl_type /= 'Z' ) THEN 1231 1231 CALL lbc_lnk( 'iom', pv_r3d, cl_type, zsgn, kfillmode = kfill ) 1232 1232 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.