- Timestamp:
- 2018-11-12T16:20:57+01:00 (5 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC
- Files:
-
- 10 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 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbc_ice.F90
r10068 r10297 150 150 151 151 sbc_ice_alloc = MAXVAL( ierr ) 152 IF( lk_mpp ) CALL mpp_sum ( sbc_ice_alloc )152 IF( lk_mpp ) CALL mpp_sum ( 'sbc_ice', sbc_ice_alloc ) 153 153 IF( sbc_ice_alloc > 0 ) CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 154 154 END FUNCTION sbc_ice_alloc … … 197 197 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), snwice_fmass(jpi,jpj) , STAT=ierr(1) ) 198 198 sbc_ice_alloc = MAXVAL( ierr ) 199 IF( lk_mpp ) CALL mpp_sum ( sbc_ice_alloc )199 IF( lk_mpp ) CALL mpp_sum ( 'sbc_ice', sbc_ice_alloc ) 200 200 IF( sbc_ice_alloc > 0 ) CALL ctl_warn('sbc_ice_alloc: allocation of arrays failed') 201 201 END FUNCTION sbc_ice_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbc_oce.F90
r10170 r10297 186 186 ! 187 187 sbc_oce_alloc = MAXVAL( ierr ) 188 IF( lk_mpp ) CALL mpp_sum ( sbc_oce_alloc )188 IF( lk_mpp ) CALL mpp_sum ( 'sbc_oce', sbc_oce_alloc ) 189 189 IF( sbc_oce_alloc > 0 ) CALL ctl_warn('sbc_oce_alloc: allocation of arrays failed') 190 190 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcblk.F90
r10170 r10297 147 147 & cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 148 148 ! 149 IF( lk_mpp ) CALL mpp_sum ( sbc_blk_alloc )149 IF( lk_mpp ) CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) 150 150 IF( sbc_blk_alloc /= 0 ) CALL ctl_warn('sbc_blk_alloc: failed to allocate arrays') 151 151 END FUNCTION sbc_blk_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbccpl.F90
r10170 r10297 224 224 225 225 sbc_cpl_alloc = MAXVAL( ierr ) 226 IF( lk_mpp ) CALL mpp_sum ( sbc_cpl_alloc )226 IF( lk_mpp ) CALL mpp_sum ( 'sbccpl', sbc_cpl_alloc ) 227 227 IF( sbc_cpl_alloc > 0 ) CALL ctl_warn('sbc_cpl_alloc: allocation of arrays failed') 228 228 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcdcy.F90
r10068 r10297 44 44 & rtmd(jpi,jpj) , rdawn(jpi,jpj) , rdusk(jpi,jpj) , rscal(jpi,jpj) , STAT=sbc_dcy_alloc ) 45 45 ! 46 IF( lk_mpp ) CALL mpp_sum ( sbc_dcy_alloc )46 IF( lk_mpp ) CALL mpp_sum ( 'sbcdcy', sbc_dcy_alloc ) 47 47 IF( sbc_dcy_alloc /= 0 ) CALL ctl_warn('sbc_dcy_alloc: failed to allocate arrays') 48 48 END FUNCTION sbc_dcy_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcice_cice.F90
r10170 r10297 100 100 !!---------------------------------------------------------------------- 101 101 ALLOCATE( png(jpi,jpj,jpnij), STAT=sbc_ice_cice_alloc ) 102 IF( lk_mpp ) CALL mpp_sum ( sbc_ice_cice_alloc )102 IF( lk_mpp ) CALL mpp_sum ( 'sbcice_cice', sbc_ice_cice_alloc ) 103 103 IF( sbc_ice_cice_alloc > 0 ) CALL ctl_warn('sbc_ice_cice_alloc: allocation of arrays failed.') 104 104 END FUNCTION sbc_ice_cice_alloc -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcisf.F90
r10170 r10297 244 244 & STAT= sbc_isf_alloc ) 245 245 ! 246 IF( lk_mpp ) CALL mpp_sum ( sbc_isf_alloc )246 IF( lk_mpp ) CALL mpp_sum ( 'sbcisf', sbc_isf_alloc ) 247 247 IF( sbc_isf_alloc /= 0 ) CALL ctl_warn('sbc_isf_alloc: failed to allocate arrays.') 248 248 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcmod.F90
r10170 r10297 115 115 IF(lwm) WRITE( numond, namsbc ) 116 116 ! 117 #if defined key_mpp_mpi 118 ncom_fsbc = nn_fsbc ! make nn_fsbc available for lib_mpp 119 #endif 117 120 ! !* overwrite namelist parameter using CPP key information 118 121 #if defined key_agrif -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/SBC/sbcrnf.F90
r10068 r10297 83 83 & rnf_tsc_b(jpi,jpj,jpts) , rnf_tsc (jpi,jpj,jpts) , STAT=sbc_rnf_alloc ) 84 84 ! 85 IF( lk_mpp ) CALL mpp_sum ( sbc_rnf_alloc )85 IF( lk_mpp ) CALL mpp_sum ( 'sbcrnf', sbc_rnf_alloc ) 86 86 IF( sbc_rnf_alloc > 0 ) CALL ctl_warn('sbc_rnf_alloc: allocation of arrays failed') 87 87 END FUNCTION sbc_rnf_alloc
Note: See TracChangeset
for help on using the changeset viewer.