Changeset 10297 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rhg_evp.F90
- Timestamp:
- 2018-11-12T16:20:57+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rhg_evp.F90
r10170 r10297 653 653 END DO 654 654 zresm = MAXVAL( zresr( 1:jpi, 2:jpjm1 ) ) 655 IF( lk_mpp ) CALL mpp_max( zresm ) ! max over the global domain655 IF( lk_mpp ) CALL mpp_max( 'icedyn_rhg_evp', zresm ) ! max over the global domain 656 656 ENDIF 657 657 !
Note: See TracChangeset
for help on using the changeset viewer.