Changeset 15 for trunk/NEMO/OPA_SRC/cla.F90
- Timestamp:
- 2004-02-17T08:25:44+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/cla.F90
r3 r15 164 164 END DO 165 165 END DO 166 167 ! mpp 168 # if defined key_mpp 169 CALL mpp_sum( zempred ) 170 # endif 166 IF( lk_mpp ) CALL mpp_sum( zempred ) ! sum with other processors value 171 167 172 168 ! convert in m3 … … 370 366 END DO 371 367 END DO 372 373 ! mpp 374 # if defined key_mpp 375 CALL mpp_sum( zempmed ) 376 # endif 368 IF( lk_mpp ) CALL mpp_sum( zempmed ) ! sum with other processors value 369 377 370 378 371 ! minus 2 points in Red Sea and 3 in Atlantic ocean
Note: See TracChangeset
for help on using the changeset viewer.