Changeset 683 for trunk/NEMO/OPA_SRC/TRD

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/OPA_SRC/TRD/trdmld_rst.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRD/trdmld_rst.F90

@@ -26 +26 @@
    !!---------------------------------------------------------------------------------
    !! OPA 9.0 , LOCEAN-IPSL (2006) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/TRD/trdmld_rst.F90,v 1.7 2007/06/05 10:40:59 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!---------------------------------------------------------------------------------
@@ -135 +135 @@
     IF( ln_trdmld_instant ) THEN 
        !-- Temperature
-       CALL iom_get( inum, jpdom_local, 'tmlbb'           , tmlbb          )
-       CALL iom_get( inum, jpdom_local, 'tmlbn'           , tmlbn          )
-       CALL iom_get( inum, jpdom_local, 'tmlatfb'         , tmlatfb        )
+       CALL iom_get( inum, jpdom_autoglo, 'tmlbb'           , tmlbb          )
+       CALL iom_get( inum, jpdom_autoglo, 'tmlbn'           , tmlbn          )
+       CALL iom_get( inum, jpdom_autoglo, 'tmlatfb'         , tmlatfb        )
 
        !-- Salinity
-       CALL iom_get( inum, jpdom_local, 'smlbb'           , smlbb          )
-       CALL iom_get( inum, jpdom_local, 'smlbn'           , smlbn          )
-       CALL iom_get( inum, jpdom_local, 'smlatfb'         , smlatfb        )
+       CALL iom_get( inum, jpdom_autoglo, 'smlbb'           , smlbb          )
+       CALL iom_get( inum, jpdom_autoglo, 'smlbn'           , smlbn          )
+       CALL iom_get( inum, jpdom_autoglo, 'smlatfb'         , smlatfb        )
     ELSE
-       CALL iom_get( inum, jpdom_local, 'rmldbn'          , rmldbn         ) ! needed for rmld_sum
+       CALL iom_get( inum, jpdom_autoglo, 'rmldbn'          , rmldbn         ) ! needed for rmld_sum
 
        !-- Temperature
-       CALL iom_get( inum, jpdom_local, 'tmlbn'           , tmlbn          ) ! needed for tml_sum
-       CALL iom_get( inum, jpdom_local, 'tml_sumb'        , tml_sumb       )
+       CALL iom_get( inum, jpdom_autoglo, 'tmlbn'           , tmlbn          ) ! needed for tml_sum
+       CALL iom_get( inum, jpdom_autoglo, 'tml_sumb'        , tml_sumb       )
        DO jk = 1, jpltrd
           IF( jk < 10 )   THEN
@@ -155 +155 @@
              WRITE(charout,FMT="('tmltrd_csum_ub_', I2)") jk
           ENDIF
-          CALL iom_get( inum, jpdom_local, charout, tmltrd_csum_ub(:,:,jk) )
+          CALL iom_get( inum, jpdom_autoglo, charout, tmltrd_csum_ub(:,:,jk) )
        ENDDO
-       CALL iom_get( inum, jpdom_local, 'tmltrd_atf_sumb' , tmltrd_atf_sumb)
+       CALL iom_get( inum, jpdom_autoglo, 'tmltrd_atf_sumb' , tmltrd_atf_sumb)
 
        !-- Salinity
-       CALL iom_get( inum, jpdom_local, 'smlbn'           , smlbn          ) ! needed for sml_sum
-       CALL iom_get( inum, jpdom_local, 'sml_sumb'        , sml_sumb       )
+       CALL iom_get( inum, jpdom_autoglo, 'smlbn'           , smlbn          ) ! needed for sml_sum
+       CALL iom_get( inum, jpdom_autoglo, 'sml_sumb'        , sml_sumb       )
        DO jk = 1, jpltrd
           IF( jk < 10 )   THEN
@@ -168 +168 @@
              WRITE(charout,FMT="('smltrd_csum_ub_', I2)") jk
           ENDIF
-          CALL iom_get( inum, jpdom_local, charout, smltrd_csum_ub(:,:,jk) )
+          CALL iom_get( inum, jpdom_autoglo, charout, smltrd_csum_ub(:,:,jk) )
        ENDDO
-       CALL iom_get( inum, jpdom_local, 'smltrd_atf_sumb' , smltrd_atf_sumb)
+       CALL iom_get( inum, jpdom_autoglo, 'smltrd_atf_sumb' , smltrd_atf_sumb)
 
        CALL iom_close( inum )