- Timestamp:
- 2018-06-20T15:41:08+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/CRS/crslbclnk.F90
r9598 r9814 55 55 IF( .NOT.ll_grid_crs ) CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 56 56 ! 57 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk( 58 ELSE ; CALL lbc_lnk( 57 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk("crslbclnk",pt3d1, cd_type1, psgn, cd_mpp, pval=zval ) 58 ELSE ; CALL lbc_lnk("crslbclnk",pt3d1, cd_type1, psgn , pval=zval ) 59 59 ENDIF 60 60 ! … … 92 92 IF( .NOT.ll_grid_crs ) CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 93 93 ! 94 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk( 95 ELSE ; CALL lbc_lnk( 94 IF( PRESENT( cd_mpp ) ) THEN ; CALL lbc_lnk("crslbclnk",pt2d, cd_type, psgn, cd_mpp, pval=zval ) 95 ELSE ; CALL lbc_lnk("crslbclnk",pt2d, cd_type, psgn , pval=zval ) 96 96 ENDIF 97 97 !
Note: See TracChangeset
for help on using the changeset viewer.