Changeset 10425 for NEMO/trunk/src/OCE/DOM/iscplhsb.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/iscplhsb.F90
r10069 r10425 206 206 207 207 ! build array of total problematic point on each cpu (share to each cpu) 208 CALL mpp_max( inpts,jpnij)208 CALL mpp_max('iscplhsb', inpts,jpnij) 209 209 210 210 ! size of the new variable … … 243 243 ! build array of total problematic point on each cpu (share to each cpu) 244 244 ! point coordinates 245 CALL mpp_max( zlat ,npts)246 CALL mpp_max( zlon ,npts)247 CALL mpp_max( izpts,npts)245 CALL mpp_max('iscplhsb', zlat ,npts) 246 CALL mpp_max('iscplhsb', zlon ,npts) 247 CALL mpp_max('iscplhsb', izpts,npts) 248 248 249 249 ! correction values 250 CALL mpp_max( zcorr_vol,npts)251 CALL mpp_max( zcorr_sal,npts)252 CALL mpp_max( zcorr_tem,npts)250 CALL mpp_max('iscplhsb', zcorr_vol,npts) 251 CALL mpp_max('iscplhsb', zcorr_sal,npts) 252 CALL mpp_max('iscplhsb', zcorr_tem,npts) 253 253 254 254 ! put correction term in the closest cell
Note: See TracChangeset
for help on using the changeset viewer.