Changeset 673 for trunk/NEMO

Timestamp:

2007-06-01T19:37:07+02:00 (17 years ago)

Author:

ctlod

Message:

nemo_v2_bugfix_044 : SM : bugfix when reading tbif

File:

• trunk/NEMO/LIM_SRC/limistate.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limistate.F90

@@ -218 +218 @@
       !!-------------------------------------------------------------------
       INTEGER :: inum_ice
+      INTEGER :: ji,jj
 
       NAMELIST/namiceini/ ln_limini, ln_limdmp, ttest, hninn, hginn, alinn, &
@@ -262 +263 @@
             CALL iom_get( inum_ice, jpdom_data, 'frld' , frld   (:,:) )     
             CALL iom_get( inum_ice, jpdom_data, 'ts'   , sist   (:,:) )
-            CALL iom_get( inum_ice, jpdom_unknown, 'tbif', tbif(:,:,:),   &
+            CALL iom_get( inum_ice, jpdom_unknown, 'tbif', tbif(1:nlci,1:nlcj,:),   &
                  &        kstart = (/ mig(1),mjg(1),1 /), kcount = (/ nlci,nlcj,jplayersp1 /) )
+            ! put some values in the extra-halo...
+            DO jj = nlcj+1, jpj   ;   tbif(1:nlci,jj,:) = tbif(1:nlci,nlej,:)   ;   END DO
+            DO ji = nlci+1, jpi   ;   tbif(ji    ,: ,:) = tbif(nlei  ,:   ,:)   ;   END DO
 
             CALL iom_close( inum_ice)