/[lmdze]/trunk/libf/dyn3d/getparam.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/getparam.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 43 by guez, Thu Apr 1 09:07:28 2010 UTC revision 44 by guez, Wed Apr 13 12:29:18 2011 UTC
# Line 1  Line 1 
1  MODULE getparam  MODULE getparam
2    
3    ! From dyn3d/getparam.F90,v 1.1.1.1 2004/05/19 12:53:07    ! From dyn3d/getparam.F90, version 1.1.1.1 2004/05/19 12:53:07
4    
5     USE getincom     USE getincom
6    
7     INTERFACE getpar     INTERFACE getpar
8       MODULE PROCEDURE ini_getparam,fin_getparam,getparamr,getparami,getparaml       MODULE PROCEDURE getparamr, getparami, getparaml
9     END INTERFACE     END INTERFACE
10    
11       private getparamr, getparami, getparaml
12     INTEGER, PARAMETER :: out_eff=99     INTEGER, PARAMETER :: out_eff=99
13    
14  CONTAINS  CONTAINS
15    
16    SUBROUTINE ini_getparam(fichier)    SUBROUTINE ini_getparam(fichier)
17      !      !
18      IMPLICIT NONE      IMPLICIT NONE
19      !      !
20      CHARACTER*(*) :: fichier      CHARACTER*(*) :: fichier
21      open(out_eff,file=fichier,status='unknown',form='formatted')      open(out_eff, file=fichier, status='unknown', form='formatted')
22    END SUBROUTINE ini_getparam    END SUBROUTINE ini_getparam
23    
24      !**********************************************************
25    
26    SUBROUTINE fin_getparam    SUBROUTINE fin_getparam
27      !      !
28      IMPLICIT NONE      IMPLICIT NONE
# Line 26  CONTAINS Line 31  CONTAINS
31    
32    END SUBROUTINE fin_getparam    END SUBROUTINE fin_getparam
33    
34    SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)    !**********************************************************
35    
36      SUBROUTINE getparamr(TARGET, def_val, ret_val, comment)
37      !      !
38      IMPLICIT NONE      IMPLICIT NONE
39      !      !
# Line 41  CONTAINS Line 48  CONTAINS
48      CHARACTER*(*) :: comment      CHARACTER*(*) :: comment
49    
50      ret_val=def_val      ret_val=def_val
51      call getin(TARGET,ret_val)      call getin(TARGET, ret_val)
52    
53      write(out_eff,*) '******'      write(out_eff, *) '******'
54      write(out_eff,*) comment      write(out_eff, *) comment
55      write(out_eff,*) TARGET,'=',ret_val      write(out_eff, *) TARGET, '=', ret_val
56    
57    END SUBROUTINE getparamr    END SUBROUTINE getparamr
58    
59    SUBROUTINE getparami(TARGET,def_val,ret_val,comment)    !**********************************************************
60    
61      SUBROUTINE getparami(TARGET, def_val, ret_val, comment)
62      !      !
63      IMPLICIT NONE      IMPLICIT NONE
64      !      !
# Line 64  CONTAINS Line 73  CONTAINS
73      CHARACTER*(*) :: comment      CHARACTER*(*) :: comment
74    
75      ret_val=def_val      ret_val=def_val
76      call getin(TARGET,ret_val)      call getin(TARGET, ret_val)
77    
78      write(out_eff,*) '***'      write(out_eff, *) '***'
79      write(out_eff,*) '*** ',comment,' ***'      write(out_eff, *) '*** ', comment, ' ***'
80      write(out_eff,*) comment      write(out_eff, *) comment
81      write(out_eff,*) TARGET,'=',ret_val      write(out_eff, *) TARGET, '=', ret_val
82    
83    END SUBROUTINE getparami    END SUBROUTINE getparami
84    
85    SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)    !**********************************************************
86    
87      SUBROUTINE getparaml(TARGET, def_val, ret_val, comment)
88      !      !
89      IMPLICIT NONE      IMPLICIT NONE
90      !      !
# Line 88  CONTAINS Line 99  CONTAINS
99      CHARACTER*(*) :: comment      CHARACTER*(*) :: comment
100    
101      ret_val=def_val      ret_val=def_val
102      call getin(TARGET,ret_val)      call getin(TARGET, ret_val)
103    
104      write(out_eff,*) '***'      write(out_eff, *) '***'
105      write(out_eff,*) '*** ',comment,' ***'      write(out_eff, *) '*** ', comment, ' ***'
106      write(out_eff,*) TARGET,'=',ret_val      write(out_eff, *) TARGET, '=', ret_val
107    
108    END SUBROUTINE getparaml    END SUBROUTINE getparaml
109    
   
110  END MODULE getparam  END MODULE getparam
Legend:
Removed from v.43  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.21