Changeset 5826 for branches/UKMO/dev_r5518_ukv_mslp/NEMOGCM/NEMO
- Timestamp:
- 2015-10-23T12:43:55+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_ukv_mslp/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5817 r5826 183 183 !! *** FUNCTION sbc_cpl_alloc *** 184 184 !!---------------------------------------------------------------------- 185 INTEGER :: ierr( 3)185 INTEGER :: ierr(4) 186 186 !!---------------------------------------------------------------------- 187 187 ierr(:) = 0 188 188 ! 189 ALLOCATE( albedo_oce_mix(jpi,jpj), ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), & 190 apr(jpi, jpj), nrcvinfo(jprcv), STAT=ierr(1) ) 189 ALLOCATE( albedo_oce_mix(jpi,jpj), nrcvinfo(jprcv), STAT=ierr(1) ) 191 190 192 191 #if ! defined key_lim3 && ! defined key_lim2 && ! defined key_cice … … 195 194 ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 196 195 ! 196 IF( .NOT. ln_apr_dyn ) ALLOCATE( ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), apr(jpi, jpj), STAT=ierr(4) ) 197 197 198 sbc_cpl_alloc = MAXVAL( ierr ) 198 199 IF( lk_mpp ) CALL mpp_sum ( sbc_cpl_alloc )
Note: See TracChangeset
for help on using the changeset viewer.