source: LMDZ6/branches/Amaury_dev/libf/dyn3d/getparam.F90 @ 5118

Last change on this file since 5118 was 5116, checked in by abarral, 4 months ago

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 KB
Line 
1
2! $Id: getparam.F90 5116 2024-07-24 12:54:37Z abarral $
3
4MODULE getparam
5   USE IOIPSL
6
7   INTERFACE getpar
8     MODULE PROCEDURE getparamr,getparami,getparaml
9   END INTERFACE
10   PRIVATE getparamr,getparami,getparaml
11
12   INTEGER, PARAMETER :: out_eff=99
13
14CONTAINS
15  SUBROUTINE ini_getparam(fichier)
16
17    IMPLICIT NONE
18
19    CHARACTER*(*) :: fichier
20    open(out_eff,file=fichier,status='unknown',form='formatted')
21  END SUBROUTINE ini_getparam
22
23  SUBROUTINE fin_getparam
24
25    IMPLICIT NONE
26
27    close(out_eff)
28
29  END SUBROUTINE fin_getparam
30
31  SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)
32
33    IMPLICIT NONE
34
35    !   Get a real scalar. We first check if we find it
36    !   in the database and if not we get it from the run.def
37
38    !   getinr1d and getinr2d are written on the same pattern
39
40    CHARACTER*(*) :: TARGET
41    REAL :: def_val
42    REAL :: ret_val
43    CHARACTER*(*) :: comment
44
45    ret_val=def_val
46    CALL getin(TARGET,ret_val)
47
48    WRITE(out_eff,*) '######################################'
49    WRITE(out_eff,*) '#### ',comment,' #####'
50    WRITE(out_eff,*) TARGET,'=',ret_val
51
52  END SUBROUTINE getparamr
53
54  SUBROUTINE getparami(TARGET,def_val,ret_val,comment)
55
56    IMPLICIT NONE
57
58    !   Get a real scalar. We first check if we find it
59    !   in the database and if not we get it from the run.def
60
61    !   getinr1d and getinr2d are written on the same pattern
62
63    CHARACTER*(*) :: TARGET
64    INTEGER :: def_val
65    INTEGER :: ret_val
66    CHARACTER*(*) :: comment
67
68    ret_val=def_val
69    CALL getin(TARGET,ret_val)
70
71    WRITE(out_eff,*) '######################################'
72    WRITE(out_eff,*) '#### ',comment,' #####'
73    WRITE(out_eff,*) comment
74    WRITE(out_eff,*) TARGET,'=',ret_val
75
76  END SUBROUTINE getparami
77
78  SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)
79
80    IMPLICIT NONE
81
82    !   Get a real scalar. We first check if we find it
83    !   in the database and if not we get it from the run.def
84
85    !   getinr1d and getinr2d are written on the same pattern
86
87    CHARACTER*(*) :: TARGET
88    LOGICAL :: def_val
89    LOGICAL :: ret_val
90    CHARACTER*(*) :: comment
91
92    ret_val=def_val
93    CALL getin(TARGET,ret_val)
94
95    WRITE(out_eff,*) '######################################'
96    WRITE(out_eff,*) '#### ',comment,' #####'
97    WRITE(out_eff,*) TARGET,'=',ret_val
98
99  END SUBROUTINE getparaml
100
101
102END MODULE getparam
Note: See TracBrowser for help on using the repository browser.