Changes between Version 9 and Version 10 of 2011WP/2011Stream2/OpenBoundaries

Timestamp:

2011-03-29T11:23:17+02:00 (13 years ago)

Author:

davestorkey

Comment:

--

2011WP/2011Stream2/OpenBoundaries

@@ -198 +198 @@
          
          nb_dta(ib_set) = zcount
+
+         ALLOCATE( bf(jpfld), STAT=ierror )        ! set sf structure
+         IF( ierror > 0 ) THEN   
+            CALL ctl_stop( 'sbc_flx: unable to allocate sf structure' )   ;   RETURN  
+         ENDIF
+         DO ji= 1, jpfld
+            ALLOCATE( sf(ji)%fnow(jpi,jpj,1) )
+            IF( slf_i(ji)%ln_tint ) ALLOCATE( sf(ji)%fdta(jpi,jpj,1,2) )
+         END DO
+
          CALL fld_fill( bf(1:nb_dta(ib_set)), blf_i(ib_set,1:nb_dta(ib_set)), ... )