Changeset 683 for trunk/NEMO/LIM_SRC

Timestamp:

2007-06-29T18:37:27+02:00 (17 years ago)

Author:

rblod

Message:

nemo_v2_update_021 : SM : use jpdom_autoglo in restarts

File:

• trunk/NEMO/LIM_SRC/limrst.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/limrst.F90

@@ -36 +36 @@
    !!----------------------------------------------------------------------
    !!   LIM 2.0,  UCL-LOCEAN-IPSL (2006) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/limrst.F90,v 1.15 2007/06/29 14:54:06 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -193 +193 @@
          &                   '   control of time parameter  nrstdt' )
 
-      CALL iom_get( numrir, jpdom_local, 'hicif' , hicif  )    
-      CALL iom_get( numrir, jpdom_local, 'hsnif' , hsnif  )    
-      CALL iom_get( numrir, jpdom_local, 'frld'  , frld   )    
-      CALL iom_get( numrir, jpdom_local, 'sist'  , sist   )    
+      CALL iom_get( numrir, jpdom_autoglo, 'hicif' , hicif  )    
+      CALL iom_get( numrir, jpdom_autoglo, 'hsnif' , hsnif  )    
+      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_local, 'albege', albege )    
+      CALL iom_get( numrir, jpdom_autoglo, 'albege', albege )    
 # endif
-      CALL iom_get( numrir, jpdom_local, 'tbif1' , tbif(:,:,1) )    
-      CALL iom_get( numrir, jpdom_local, 'tbif2' , tbif(:,:,2) )    
-      CALL iom_get( numrir, jpdom_local, 'tbif3' , tbif(:,:,3) )    
-      CALL iom_get( numrir, jpdom_local, 'u_ice' , u_ice  )    
-      CALL iom_get( numrir, jpdom_local, 'v_ice' , v_ice  )    
-      CALL iom_get( numrir, jpdom_local, 'gtaux' , gtaux  )    
-      CALL iom_get( numrir, jpdom_local, 'gtauy' , gtauy  )    
-      CALL iom_get( numrir, jpdom_local, 'qstoif', qstoif )    
-      CALL iom_get( numrir, jpdom_local, 'fsbbq' , fsbbq  )    
-      CALL iom_get( numrir, jpdom_local, 'sxice' , sxice  )
-      CALL iom_get( numrir, jpdom_local, 'syice' , syice  )
-      CALL iom_get( numrir, jpdom_local, 'sxxice', sxxice )
-      CALL iom_get( numrir, jpdom_local, 'syyice', syyice )
-      CALL iom_get( numrir, jpdom_local, 'sxyice', sxyice )
-      CALL iom_get( numrir, jpdom_local, 'sxsn'  , sxsn   )
-      CALL iom_get( numrir, jpdom_local, 'sysn'  , sysn   )
-      CALL iom_get( numrir, jpdom_local, 'sxxsn' , sxxsn  )
-      CALL iom_get( numrir, jpdom_local, 'syysn' , syysn  )
-      CALL iom_get( numrir, jpdom_local, 'sxysn' , sxysn  )
-      CALL iom_get( numrir, jpdom_local, 'sxa'   , sxa    )
-      CALL iom_get( numrir, jpdom_local, 'sya'   , sya    )
-      CALL iom_get( numrir, jpdom_local, 'sxxa'  , sxxa   )
-      CALL iom_get( numrir, jpdom_local, 'syya'  , syya   )
-      CALL iom_get( numrir, jpdom_local, 'sxya'  , sxya   )
-      CALL iom_get( numrir, jpdom_local, 'sxc0'  , sxc0   )
-      CALL iom_get( numrir, jpdom_local, 'syc0'  , syc0   )
-      CALL iom_get( numrir, jpdom_local, 'sxxc0' , sxxc0  )
-      CALL iom_get( numrir, jpdom_local, 'syyc0' , syyc0  )
-      CALL iom_get( numrir, jpdom_local, 'sxyc0' , sxyc0  )
-      CALL iom_get( numrir, jpdom_local, 'sxc1'  , sxc1   )
-      CALL iom_get( numrir, jpdom_local, 'syc1'  , syc1   )
-      CALL iom_get( numrir, jpdom_local, 'sxxc1' , sxxc1  )
-      CALL iom_get( numrir, jpdom_local, 'syyc1' , syyc1  )
-      CALL iom_get( numrir, jpdom_local, 'sxyc1' , sxyc1  )
-      CALL iom_get( numrir, jpdom_local, 'sxc2'  , sxc2   )
-      CALL iom_get( numrir, jpdom_local, 'syc2'  , syc2   )
-      CALL iom_get( numrir, jpdom_local, 'sxxc2' , sxxc2  )
-      CALL iom_get( numrir, jpdom_local, 'syyc2' , syyc2  )
-      CALL iom_get( numrir, jpdom_local, 'sxyc2' , sxyc2  )
-      CALL iom_get( numrir, jpdom_local, 'sxst'  , sxst   )
-      CALL iom_get( numrir, jpdom_local, 'syst'  , syst   )
-      CALL iom_get( numrir, jpdom_local, 'sxxst' , sxxst  )
-      CALL iom_get( numrir, jpdom_local, 'syyst' , syyst  )
-      CALL iom_get( numrir, jpdom_local, 'sxyst' , sxyst  )
+      CALL iom_get( numrir, jpdom_autoglo, 'tbif1' , tbif(:,:,1) )    
+      CALL iom_get( numrir, jpdom_autoglo, 'tbif2' , tbif(:,:,2) )    
+      CALL iom_get( numrir, jpdom_autoglo, 'tbif3' , tbif(:,:,3) )    
+      CALL iom_get( numrir, jpdom_autoglo, 'u_ice' , u_ice  )    
+      CALL iom_get( numrir, jpdom_autoglo, 'v_ice' , v_ice  )    
+      CALL iom_get( numrir, jpdom_autoglo, 'gtaux' , gtaux  )    
+      CALL iom_get( numrir, jpdom_autoglo, 'gtauy' , gtauy  )    
+      CALL iom_get( numrir, jpdom_autoglo, 'qstoif', qstoif )    
+      CALL iom_get( numrir, jpdom_autoglo, 'fsbbq' , fsbbq  )    
+      CALL iom_get( numrir, jpdom_autoglo, 'sxice' , sxice  )
+      CALL iom_get( numrir, jpdom_autoglo, 'syice' , syice  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxice', sxxice )
+      CALL iom_get( numrir, jpdom_autoglo, 'syyice', syyice )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxyice', sxyice )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxsn'  , sxsn   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sysn'  , sysn   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxsn' , sxxsn  )
+      CALL iom_get( numrir, jpdom_autoglo, 'syysn' , syysn  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxysn' , sxysn  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxa'   , sxa    )
+      CALL iom_get( numrir, jpdom_autoglo, 'sya'   , sya    )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxa'  , sxxa   )
+      CALL iom_get( numrir, jpdom_autoglo, 'syya'  , syya   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxya'  , sxya   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxc0'  , sxc0   )
+      CALL iom_get( numrir, jpdom_autoglo, 'syc0'  , syc0   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxc0' , sxxc0  )
+      CALL iom_get( numrir, jpdom_autoglo, 'syyc0' , syyc0  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxyc0' , sxyc0  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxc1'  , sxc1   )
+      CALL iom_get( numrir, jpdom_autoglo, 'syc1'  , syc1   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxc1' , sxxc1  )
+      CALL iom_get( numrir, jpdom_autoglo, 'syyc1' , syyc1  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxyc1' , sxyc1  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxc2'  , sxc2   )
+      CALL iom_get( numrir, jpdom_autoglo, 'syc2'  , syc2   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxc2' , sxxc2  )
+      CALL iom_get( numrir, jpdom_autoglo, 'syyc2' , syyc2  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxyc2' , sxyc2  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxst'  , sxst   )
+      CALL iom_get( numrir, jpdom_autoglo, 'syst'  , syst   )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxxst' , sxxst  )
+      CALL iom_get( numrir, jpdom_autoglo, 'syyst' , syyst  )
+      CALL iom_get( numrir, jpdom_autoglo, 'sxyst' , sxyst  )
       
       CALL iom_close( numrir )
@@ -257 +257 @@
    !!======================================================================
 END MODULE limrst
-