source: branches/DEV_r1879_FCM/NEMOGCM/NEMO/TOP_SRC/C14b/trcrst_c14b.F90 @ 2007

MODULE trcrst_c14b
   !!======================================================================
   !!                       ***  MODULE trcrst_c14b  ***
   !! TOP :   create, write, read the restart files of c14b tracer
   !!======================================================================
   !! History :   1.0  !  2010-01 (C. Ethe) Original
   !!----------------------------------------------------------------------
#if defined key_c14b
   !!----------------------------------------------------------------------
   !!   'key_c14b'                                               c14b tracers
   !!----------------------------------------------------------------------
   !!   trc_rst_read_c14b   : read  restart file
   !!   trc_rst_wri_c14b    : write restart file
   !!----------------------------------------------------------------------
   USE oce_trc         ! Ocean variables
   USE par_trc         ! TOP parameters
   USE trc             ! TOP variables
   USE trcsms_c14b          ! c14b sms trends
   USE in_out_manager  ! I/O manager
   USE iom

   IMPLICIT NONE
   PRIVATE

   PUBLIC  trc_rst_read_c14b   ! called by trcini.F90 module
   PUBLIC  trc_rst_wri_c14b   ! called by trcini.F90 module

CONTAINS
   
   SUBROUTINE trc_rst_read_c14b( knum ) 
      !!----------------------------------------------------------------------
      !!                     ***  trc_rst_read_c14b  ***  
      !!
      !! ** Purpose : Read in restart file specific variables from c14b model
      !!
      !!----------------------------------------------------------------------
      INTEGER, INTENT(in)  :: knum  ! unit of the restart file
      INTEGER              :: jn    ! dummy loop indices
      !!----------------------------------------------------------------------

      IF(lwp) WRITE(numout,*)
      IF(lwp) WRITE(numout,*) ' trc_rst_read_c14b : Read specific variables from c14b model '
      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
      
      DO jn = jp_c14b0, jp_c14b1
         CALL iom_get( knum, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_c14(:,:,jn) ) 
      END DO

   END SUBROUTINE trc_rst_read_c14b

   SUBROUTINE trc_rst_wri_c14b( kt, kitrst, knum )
      !!----------------------------------------------------------------------
      !!                     ***  trc_rst_read_c14b  ***
      !!
      !! ** Purpose : Read in restart file specific variables from c14b model
      !!
      !!----------------------------------------------------------------------
      INTEGER, INTENT(in)  :: kt      ! time step
      INTEGER, INTENT(in)  :: kitrst  ! time step of restart write
      INTEGER, INTENT(in)  :: knum    ! unit of the restart file
      INTEGER              :: jn      ! dummy loop indices
      !!----------------------------------------------------------------------

      IF(lwp) WRITE(numout,*)
      IF(lwp) WRITE(numout,*) ' trc_rst_wri_c14b : Write specific variables from c14b model '
      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'

      DO jn = jp_c14b0, jp_c14b1
         CALL iom_rstput( kt, kitrst, kum, 'qint_'//ctrcnm(jn), qint_c14(:,:,jn) )
      END DO

   END SUBROUTINE trc_rst_wri_c14b

#else
   !!----------------------------------------------------------------------
   !!  Dummy module :                                     No passive tracer
   !!----------------------------------------------------------------------
CONTAINS
   SUBROUTINE trc_rst_read_c14b( knum )
     INTEGER, INTENT(in)  :: knum
     WRITE(*,*) 'trc_rst_wri_c14b: You should not have seen this print! error?', knum
   END SUBROUTINE trc_rst_read_c14b

   SUBROUTINE trc_rst_wri_c14b( kt, kitrst, knum )
     INTEGER, INTENT(in)  :: kt, kitrst, knum
     WRITE(*,*) 'trc_rst_wri_c14b: You should not have seen this print! error?', kt, kitrst, knum
   END SUBROUTINE trc_rst_wri_c14b
#endif

   !!======================================================================
END MODULE trcrst_c14b