Ignore:
Timestamp:
2019-03-15T13:13:07+01:00 (23 months ago)
Author:
jcastill
Message:

Minimal set of changes for coupling order

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r8395_coupling_sequence/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r10763 r10764  
    210210      ALLOCATE( a_i(jpi,jpj,1) , STAT=ierr(2) )  ! used in sbcice_if.F90 (done here as there is no sbc_ice_if_init) 
    211211#endif 
    212       ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 
     212      !ALLOCATE( xcplmask(jpi,jpj,nn_cplmodel) , STAT=ierr(3) )    
     213      ! Hardwire three models as nn_cplmodel has not been read in from the namelist yet.    
     214      ALLOCATE( xcplmask(jpi,jpj,0:3) , STAT=ierr(3) ) 
    213215      ! 
    214216      IF( .NOT. ln_apr_dyn ) ALLOCATE( ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), apr(jpi, jpj), STAT=ierr(4) )  
     
    318320 
    319321      !                                   ! allocate sbccpl arrays 
    320       IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
     322      !IF( sbc_cpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'sbc_cpl_alloc : unable to allocate arrays' ) 
    321323      
    322324      ! ================================ ! 
Note: See TracChangeset for help on using the changeset viewer.