Changeset 5793


Ignore:
Timestamp:
2015-10-14T07:11:12+02:00 (5 years ago)
Author:
deazer
Message:

Bug Fix allocation in sbcflx

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/2015_V36_STABLE_CO6_CO5_zenv_pomsdwl/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r5655 r5793  
    129129            ENDIF 
    130130            ! 
    131             ALLOCATE( sf(jpfld_local), STAT=ierror )        ! set sf structure 
    132131         IF( ierror > 0 ) THEN    
    133132            CALL ctl_stop( 'sbc_flx: unable to allocate sf structure' )   ;   RETURN   
    134133         ENDIF 
    135          DO ji= 1, jpfld 
     134         DO ji= 1, jpfld_local 
    136135            ALLOCATE( sf(ji)%fnow(jpi,jpj,1) ) 
    137136            IF( slf_i(ji)%ln_tint ) ALLOCATE( sf(ji)%fdta(jpi,jpj,1,2) ) 
Note: See TracChangeset for help on using the changeset viewer.