- Timestamp:
- 2017-10-04T09:19:23+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/DOM/iscplhsb.F90
r8568 r8586 180 180 END DO 181 181 182 CALL lbc_sum(pvol_flx(:,:,: ),'T',1.) 183 CALL lbc_sum(pts_flx (:,:,:,jp_sal),'T',1.) 184 CALL lbc_sum(pts_flx (:,:,:,jp_tem),'T',1.) 185 182 !!gm ERROR !!!! 183 !! juste use tmask_i or in case of ISF smask_i (to be created to compute the sum without halos) 184 ! 185 ! CALL lbc_sum(pvol_flx(:,:,: ),'T',1.) 186 ! CALL lbc_sum(pts_flx (:,:,:,jp_sal),'T',1.) 187 ! CALL lbc_sum(pts_flx (:,:,:,jp_tem),'T',1.) 188 STOP ' iscpl_cons: please modify this module !' 189 !!gm end 186 190 ! if no neighbour wet cell in case of 2close a cell", need to find the nearest wet point 187 191 ! allocation and initialisation of the list of problematic point … … 279 283 pts_flx (:,:,:,jp_tem) = pts_flx (:,:,:,jp_tem) * tmask(:,:,:) 280 284 281 ! compute sum over the halo and set it to 0. 282 CALL lbc_sum(pvol_flx(:,:,: ),'T',1._wp) 283 CALL lbc_sum(pts_flx (:,:,:,jp_sal),'T',1._wp) 284 CALL lbc_sum(pts_flx (:,:,:,jp_tem),'T',1._wp) 285 !!gm ERROR !!!! 286 !! juste use tmask_i or in case of ISF smask_i (to be created to compute the sum without halos) 287 ! 288 ! ! compute sum over the halo and set it to 0. 289 ! CALL lbc_sum(pvol_flx(:,:,: ),'T',1._wp) 290 ! CALL lbc_sum(pts_flx (:,:,:,jp_sal),'T',1._wp) 291 ! CALL lbc_sum(pts_flx (:,:,:,jp_tem),'T',1._wp) 292 !!gm end 293 285 294 ! 286 295 END SUBROUTINE iscpl_cons
Note: See TracChangeset
for help on using the changeset viewer.