Changeset 10297 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/geo2ocean.F90
- Timestamp:
- 2018-11-12T16:20:57+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/geo2ocean.F90
r10170 r10297 156 156 & gsinv(jpi,jpj), gcosv(jpi,jpj), & 157 157 & gsinf(jpi,jpj), gcosf(jpi,jpj), STAT=ierr ) 158 IF(lk_mpp) CALL mpp_sum( ierr )158 IF(lk_mpp) CALL mpp_sum( 'geo2ocean', ierr ) 159 159 IF( ierr /= 0 ) CALL ctl_stop( 'angle: unable to allocate arrays' ) 160 160 ! … … 308 308 ALLOCATE( gsinlon(jpi,jpj,4) , gcoslon(jpi,jpj,4) , & 309 309 & gsinlat(jpi,jpj,4) , gcoslat(jpi,jpj,4) , STAT=ierr ) 310 IF( lk_mpp ) CALL mpp_sum( ierr )310 IF( lk_mpp ) CALL mpp_sum( 'geo2ocean', ierr ) 311 311 IF( ierr /= 0 ) CALL ctl_stop('geo2oce: unable to allocate arrays' ) 312 312 ENDIF … … 385 385 ALLOCATE( gsinlon(jpi,jpj,4) , gcoslon(jpi,jpj,4) , & 386 386 & gsinlat(jpi,jpj,4) , gcoslat(jpi,jpj,4) , STAT=ierr ) 387 IF( lk_mpp ) CALL mpp_sum( ierr )387 IF( lk_mpp ) CALL mpp_sum( 'geo2ocean', ierr ) 388 388 IF( ierr /= 0 ) CALL ctl_stop('oce2geo: unable to allocate arrays' ) 389 389 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.