Changes between Version 9 and Version 10 of 2011WP/2011Stream2/Open Boundaries


Ignore:
Timestamp:
2011-03-29T11:23:17+02:00 (10 years ago)
Author:
davestorkey
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • 2011WP/2011Stream2/Open Boundaries

    v9 v10  
    198198          
    199199         nb_dta(ib_set) = zcount 
     200 
     201         ALLOCATE( bf(jpfld), STAT=ierror )        ! set sf structure 
     202         IF( ierror > 0 ) THEN    
     203            CALL ctl_stop( 'sbc_flx: unable to allocate sf structure' )   ;   RETURN   
     204         ENDIF 
     205         DO ji= 1, jpfld 
     206            ALLOCATE( sf(ji)%fnow(jpi,jpj,1) ) 
     207            IF( slf_i(ji)%ln_tint ) ALLOCATE( sf(ji)%fdta(jpi,jpj,1,2) ) 
     208         END DO 
     209 
    200210         CALL fld_fill( bf(1:nb_dta(ib_set)), blf_i(ib_set,1:nb_dta(ib_set)), ... ) 
    201211