Changeset 11479


Ignore:
Timestamp:
2019-08-28T17:24:26+02:00 (13 months ago)
Author:
dancopsey
Message:

Allocate space for a_i_last_couple after number of ice categories has been loaded.

Location:
NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/ICE/ice.F90

    r11408 r11479  
    394394      INTEGER :: ice_alloc 
    395395      ! 
    396       INTEGER :: ierr(15), ii 
     396      INTEGER :: ierr(16), ii 
    397397      !!----------------------------------------------------------------- 
    398398      ierr(:) = 0 
     
    429429 
    430430      ii = ii + 1 
     431      ALLOCATE( a_i_last_couple(jpi,jpj,jpl) , STAT=ierr(ii) ) 
     432 
     433      ii = ii + 1 
    431434      ALLOCATE( u_ice(jpi,jpj) , v_ice(jpi,jpj) ,                                   & 
    432435         &      vt_i (jpi,jpj) , vt_s (jpi,jpj) , at_i(jpi,jpj) , ato_i(jpi,jpj) ,  & 
  • NEMO/branches/UKMO/NEMO_4.0_fix_cpl_oce_only/src/OCE/SBC/sbccpl.F90

    r11409 r11479  
    223223      !!             ***  FUNCTION sbc_cpl_alloc  *** 
    224224      !!---------------------------------------------------------------------- 
    225       INTEGER :: ierr(5) 
     225      INTEGER :: ierr(4) 
    226226      !!---------------------------------------------------------------------- 
    227227      ierr(:) = 0 
     
    235235      ! 
    236236      IF( .NOT. ln_apr_dyn ) ALLOCATE( ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), apr(jpi, jpj), STAT=ierr(4) )  
    237  
    238       ALLOCATE( a_i_last_couple(jpi,jpj,jpl) , STAT=ierr(5) )   
    239237 
    240238      sbc_cpl_alloc = MAXVAL( ierr ) 
     
    22492247                     & info == OASIS_SentOut  .OR. info == OASIS_ToRestOut ) THEN  
    22502248         IF ( sn_snd_thick%clcat == 'yes' ) THEN  
    2251            a_i_last_couple(:,:,:) = a_i(:,:,:)  
    2252          ENDIF  
    2253       ENDIF  
     2249           a_i_last_couple(:,:,1:jpl) = a_i(:,:,1:jpl) 
     2250         ENDIF 
     2251      ENDIF     
    22542252 
    22552253      IF( ssnd(jps_fice1)%laction ) THEN 
Note: See TracChangeset for help on using the changeset viewer.