Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcrst_c14b.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcrst_c14b.F90 (modified) (3 diffs, 1 prop)

trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcrst_c14b.F90

@@ -43 +43 @@
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
       
-      DO jn = jp_c14b0, jp_c14b1
-         CALL iom_get( knum, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_c14(:,:,jn) ) 
-      END DO
+      CALL iom_get( knum, jpdom_autoglo, 'qint_c14', qint_c14 ) 
 
    END SUBROUTINE trc_rst_read_c14b
@@ -59 +57 @@
       INTEGER, INTENT(in)  :: kitrst  ! time step of restart write
       INTEGER, INTENT(in)  :: knum    ! unit of the restart file
-      INTEGER              :: jn      ! dummy loop indices
       !!----------------------------------------------------------------------
 
@@ -66 +63 @@
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
 
-      DO jn = jp_c14b0, jp_c14b1
-         CALL iom_rstput( kt, kitrst, kum, 'qint_'//ctrcnm(jn), qint_c14(:,:,jn) )
-      END DO
+      CALL iom_rstput( kt, kitrst, knum, 'qint_c14', qint_c14 )
 
    END SUBROUTINE trc_rst_wri_c14b