write_persis_details.F90

Go to the documentation of this file.
00001 !------------------------------------------------------------------------
00002 ! Copyright 2006-2010, CERFACS, Toulouse, France.
00003 ! All rights reserved. Use is subject to license terms.
00004 !------------------------------------------------------------------------
00005 !BOP
00006 !
00007 ! !IROUTINE write_persis_details
00008 !
00009 ! !INTERFACE
00010   SUBROUTINE write_persis_details (id_nb_persis,    &
00011                                    sda_persis,      &
00012                                    id_chanel,       &
00013                                    id_error)     
00014 !     
00015     USE PSMILe_smioc
00016     IMPLICIT NONE
00017 !
00018 ! !REVISED HISTORY
00019 !   Date        Programmer     Description
00020 ! ----------    ----------     -----------
00021 ! 20/10/2003    S. Valcke      Creation
00022 ! 30/12/2003    D. Declat      Implemented as a module
00023 !
00024 !EOP
00025 !----------------------------------------------------------------------
00026 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00027 ! $Author: valcke $
00028 !----------------------------------------------------------------------
00029 !
00030 ! !INPUT PARAMETERS:
00031 !   number of persistent variables
00032     INTEGER,INTENT(In):: id_nb_persis      
00033 
00034 !   persistents structure
00035     TYPE(persistent),DIMENSION(id_nb_persis),INTENT(In):: sda_persis  
00036 
00037 !   channel used for testing smioc infos
00038     INTEGER,INTENT(In):: id_chanel
00039 !
00040 !  returned error code
00041     INTEGER,INTENT(Out):: id_error 
00042 !
00043 ! !LOCAL VARIABLES
00044 !   Loop indices
00045     INTEGER :: ib_pr 
00046 !
00047 ! !DESCRIPTION
00048 ! This routine writes the whole persistents structure
00049 !
00050 ! !REVISION HISTORY:
00051 !   Date        Programmer     Description
00052 ! ----------    ----------     -----------
00053 ! 13/10/2003      Valcke        Creation
00054 !
00055 !EOP
00056 !-----------------------------------------------------------------------
00057 ! $Id $
00058 ! $Author $
00059 !
00060     CHARACTER(len=len_cvs_string), SAVE :: mycvs = 
00061        '$Id $'
00062 !
00063 !----------------------------------------------------------------------
00064 !
00065     WRITE(id_chanel,*) '* Write the persistent structure'
00066 
00067     DO ib_pr = 1, id_nb_persis
00068        
00069       WRITE(id_chanel,*) ' '                       
00070       WRITE(id_chanel,*) '   **** '
00071       WRITE(id_chanel,*) '   **** For persistent ', ib_pr  
00072       WRITE(id_chanel,*) '   **** '
00073       WRITE(id_chanel,*) '        Local name ',      sda_persis(ib_pr)%cg_local_name
00074       WRITE(id_chanel,*) '        Standard name ',   sda_persis(ib_pr)%cg_stand_name
00075       WRITE(id_chanel,*) '        Long name ',       sda_persis(ib_pr)%cg_long_name
00076       WRITE(id_chanel,*) '        Component name ',  sda_persis(ib_pr)%cg_comp_name 
00077       WRITE(id_chanel,*) '        Component id ',    sda_persis(ib_pr)%ig_comp_id
00078       WRITE(id_chanel,*) '        Persistent id',    sda_persis(ib_pr)%ig_persis_id 
00079       WRITE(id_chanel,*) '        Persistent type ', sda_persis(ib_pr)%ig_persis_type
00080       WRITE(id_chanel,*) '        Units ',           sda_persis(ib_pr)%cg_units  
00081       WRITE(id_chanel,*) '        Min' ,             sda_persis(ib_pr)%rg_persis_min
00082       WRITE(id_chanel,*) '        Max',              sda_persis(ib_pr)%rg_persis_max 
00083       WRITE(id_chanel,*) '        Datatype',         sda_persis(ib_pr)%ig_datatype
00084       WRITE(id_chanel,*) '        Persistent value', sda_persis(ib_pr)%rg_persis
00085     END DO
00086 
00087     id_error = 0
00088 
00089   END SUBROUTINE write_persis_details
00090 !
00091 !----------------------------------------------------------------------
00092 !