- Timestamp:
- 2020-02-26T10:27:04+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/SBC/sbccpl.F90
r11715 r12465 219 219 ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) ) ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init) 220 220 #endif 221 ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 221 !ALLOCATE( xcplmask(jpi,jpj,nn_cplmodel) , STAT=ierr(3) ) 222 ! Hardwire three models as nn_cplmodel has not been read in from the namelist yet. 223 ALLOCATE( xcplmask(jpi,jpj,0:3) , STAT=ierr(3) ) 222 224 ! 223 225 IF( .NOT. ln_apr_dyn ) ALLOCATE( ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), apr(jpi, jpj), STAT=ierr(4) ) … … 333 335 334 336 ! ! allocate sbccpl arrays 335 IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' )337 ! IF( sbc_cpl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 336 338 337 339 ! ================================ !
Note: See TracChangeset
for help on using the changeset viewer.