write_grids_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_grids_detail
00008 !
00009 ! !INTERFACE
00010   SUBROUTINE write_grids_details (id_nb_grids,     &
00011                                   sda_grids,       &
00012                                   id_chanel,       &
00013                                   id_error )     
00014     USE PSMILe_smioc
00015     IMPLICIT NONE
00016 !     
00017 ! !REVISED HISTORY
00018 !   Date        Programmer     Description
00019 ! ----------    ----------     -----------
00020 ! 20/10/2003    S. Valcke      Creation
00021 ! 30/12/2003    D. Declat      Implemented as a module
00022 !
00023 !EOP
00024 !----------------------------------------------------------------------
00025 ! $Id: psmile_smioc.F90 1793 2008-11-25 14:58:31Z valcke $
00026 ! $Author: valcke $
00027 !----------------------------------------------------------------------
00028 !
00029 ! !INPUT PARAMETERS:
00030 !   number of grids 
00031     INTEGER,INTENT(In):: id_nb_grids 
00032 !   grids structure 
00033     TYPE (smioc_grid),DIMENSION(id_nb_grids),INTENT (In):: sda_grids  
00034 !   channel used for testing smioc infos
00035     INTEGER,INTENT(In):: id_chanel
00036 !
00037 !   returned error code
00038     INTEGER,INTENT(Out):: id_error 
00039 
00040 ! !LOCAL VARIABLES
00041 !   Loop indices
00042     INTEGER :: ib_ng
00043 
00044 ! !DESCRIPTION
00045 ! This routine writes the whole grid structure
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     WRITE(id_chanel,*) '* Write the grid structure'
00063 
00064     DO ib_ng = 1, id_nb_grids
00065 
00066       WRITE(id_chanel,*) ' '
00067       WRITE(id_chanel,*) '**'
00068       WRITE(id_chanel,*) '**For grid ',ib_ng  
00069       WRITE(id_chanel,*) '**'
00070       WRITE(id_chanel,*) ' Local name ', sda_grids(ib_ng)%cg_grid_name
00071       WRITE(id_chanel,*) ' Grid id ', sda_grids(ib_ng)%ig_grid_id
00072       WRITE(id_chanel,*) ' Component id ', sda_grids(ib_ng)%ig_comp_id
00073       WRITE(id_chanel,*) ' iga_periodic ', sda_grids(ib_ng)%iga_periodic
00074    
00075     END DO
00076 
00077     id_error = 0 
00078 
00079   END SUBROUTINE write_grids_details
00080 
00081 !
00082 !------------------------------------------------------------------------