Changeset 991 for branches/dev_003_CPL/NEMO/LIM_SRC_2/limrst_2.F90

Timestamp:

2008-05-23T17:55:55+02:00 (16 years ago)

Author:

smasson

Message:

dev_003_CPL: preliminary draft (not working), see ticket #155

File:

• branches/dev_003_CPL/NEMO/LIM_SRC_2/limrst_2.F90 (modified) (2 diffs)

branches/dev_003_CPL/NEMO/LIM_SRC_2/limrst_2.F90

@@ -112 +112 @@
       CALL iom_rstput( iter, nitrst, numriw, 'frld'  , frld  (:,:)   )
       CALL iom_rstput( iter, nitrst, numriw, 'sist'  , sist  (:,:)   )
-# if defined key_coupled
-      CALL iom_rstput( iter, nitrst, numriw, 'albege', albege(:,:) )
-# endif
       CALL iom_rstput( iter, nitrst, numriw, 'tbif1' , tbif  (:,:,1) )
       CALL iom_rstput( iter, nitrst, numriw, 'tbif2' , tbif  (:,:,2) )
@@ -198 +195 @@
       CALL iom_get( numrir, jpdom_autoglo, 'frld'  , frld   )    
       CALL iom_get( numrir, jpdom_autoglo, 'sist'  , sist   )    
-# if defined key_coupled 
-      CALL iom_get( numrir, jpdom_autoglo, 'albege', albege )    
-# endif
       CALL iom_get( numrir, jpdom_autoglo, 'tbif1' , tbif(:,:,1) )    
       CALL iom_get( numrir, jpdom_autoglo, 'tbif2' , tbif(:,:,2) )