init_persis.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 init_persis 
00008 !
00009   SUBROUTINE init_persis (id_nb_persis,      &
00010                           sda_smioc_persis, &
00011                           id_error )     
00012 !     
00013     USE PSMILe_smioc
00014     IMPLICIT NONE
00015 !
00016 ! !REVISED HISTORY
00017 !   Date        Programmer     Description
00018 ! ----------    ----------     -----------
00019 ! 20/10/2003    S. Valcke      Creation
00020 ! 30/12/2003    D. Declat      Implemented as a module
00021 !
00022 !EOP
00023 !----------------------------------------------------------------------
00024 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00025 ! $Author: valcke $
00026 !----------------------------------------------------------------------
00027 !
00028 ! !INPUT PARAMETERS:
00029 !   number of persistent variables
00030     INTEGER,INTENT(In):: id_nb_persis
00031 !
00032 ! !RETURN VALUE:
00033 !   persistents structure
00034     TYPE(persistent),DIMENSION(id_nb_persis),INTENT(Out):: 
00035        sda_smioc_persis
00036 !
00037 ! returned error code
00038    INTEGER,INTENT(Out):: id_error 
00039 !
00040 ! !LOCAL VARIABLES
00041 !   Loop indices
00042     INTEGER :: ib_pr
00043 !  
00044 ! !DESCRIPTION
00045 ! This routine initializes the persistent information 
00046 !
00047 ! !REVISION HISTORY:
00048 !   Date        Programmer     Description
00049 ! ----------    ----------     -----------
00050 ! 13/10/2003      Valcke        Creation
00051 !
00052 !EOP
00053 !-----------------------------------------------------------------------
00054 ! $Id $
00055 ! $Author $
00056 !
00057     CHARACTER(len=len_cvs_string), SAVE :: mycvs = 
00058        '$Id $'
00059 !
00060 !----------------------------------------------------------------------
00061 
00062     DO ib_pr = 1, id_nb_persis
00063 !
00064 ! Persistent general
00065 !
00066       sda_smioc_persis(ib_pr)%cg_local_name = '    '
00067       sda_smioc_persis(ib_pr)%cg_stand_name = '    ' 
00068       sda_smioc_persis(ib_pr)%cg_long_name = '    ' 
00069       sda_smioc_persis(ib_pr)%cg_comp_name = '    '
00070       sda_smioc_persis(ib_pr)%ig_comp_id = PSMILe_undef
00071       sda_smioc_persis(ib_pr)%ig_persis_id = PSMILe_undef
00072       sda_smioc_persis(ib_pr)%ig_persis_type = PSMILe_undef
00073       sda_smioc_persis(ib_pr)%cg_units = '    '
00074       sda_smioc_persis(ib_pr)%rg_persis_min = PSMILe_rundef
00075       sda_smioc_persis(ib_pr)%rg_persis_max = PSMILe_rundef
00076       sda_smioc_persis(ib_pr)%ig_datatype = PSMILe_undef
00077       sda_smioc_persis(ib_pr)%rg_persis = PSMILe_rundef     
00078 
00079     ENDDO
00080 
00081     id_error = 0
00082  
00083   END SUBROUTINE init_persis
00084 !
00085 !------------------------------------------------------------------------