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

Last change on this file since 5100 was 5099, checked in by abarral, 4 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line
  • 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.4 KB
Line 
1
2! $Id: getparam.F90 5099 2024-07-22 19:29:09Z abarral $
3
4MODULE getparam
5#ifdef CPP_IOIPSL
6   USE IOIPSL
7#else
8! if not using IOIPSL, we still need to use (a local version of) getin
9   USE ioipsl_getincom
10#endif
11
12   INTERFACE getpar
13     MODULE PROCEDURE getparamr,getparami,getparaml
14   END INTERFACE
15   private getparamr,getparami,getparaml
16
17   INTEGER, PARAMETER :: out_eff=99
18
19CONTAINS
20  SUBROUTINE ini_getparam(fichier)
21
22    IMPLICIT NONE
23
24    CHARACTER*(*) :: fichier
25    open(out_eff,file=fichier,status='unknown',form='formatted')
26  END SUBROUTINE ini_getparam
27
28  SUBROUTINE fin_getparam
29
30    IMPLICIT NONE
31
32    close(out_eff)
33
34  END SUBROUTINE fin_getparam
35
36  SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)
37
38    IMPLICIT NONE
39
40    !   Get a real scalar. We first check if we find it
41    !   in the database and if not we get it from the run.def
42
43    !   getinr1d and getinr2d are written on the same pattern
44
45    CHARACTER*(*) :: TARGET
46    REAL :: def_val
47    REAL :: ret_val
48    CHARACTER*(*) :: comment
49
50    ret_val=def_val
51    call getin(TARGET,ret_val)
52
53    write(out_eff,*) '######################################'
54    write(out_eff,*) '#### ',comment,' #####'
55    write(out_eff,*) TARGET,'=',ret_val
56
57  END SUBROUTINE getparamr
58
59  SUBROUTINE getparami(TARGET,def_val,ret_val,comment)
60
61    IMPLICIT NONE
62
63    !   Get a real scalar. We first check if we find it
64    !   in the database and if not we get it from the run.def
65
66    !   getinr1d and getinr2d are written on the same pattern
67
68    CHARACTER*(*) :: TARGET
69    INTEGER :: def_val
70    INTEGER :: ret_val
71    CHARACTER*(*) :: comment
72
73    ret_val=def_val
74    call getin(TARGET,ret_val)
75
76    write(out_eff,*) '######################################'
77    write(out_eff,*) '#### ',comment,' #####'
78    write(out_eff,*) comment
79    write(out_eff,*) TARGET,'=',ret_val
80
81  END SUBROUTINE getparami
82
83  SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)
84
85    IMPLICIT NONE
86
87    !   Get a real scalar. We first check if we find it
88    !   in the database and if not we get it from the run.def
89
90    !   getinr1d and getinr2d are written on the same pattern
91
92    CHARACTER*(*) :: TARGET
93    LOGICAL :: def_val
94    LOGICAL :: ret_val
95    CHARACTER*(*) :: comment
96
97    ret_val=def_val
98    call getin(TARGET,ret_val)
99
100    write(out_eff,*) '######################################'
101    write(out_eff,*) '#### ',comment,' #####'
102    write(out_eff,*) TARGET,'=',ret_val
103
104  END SUBROUTINE getparaml
105
106
107END MODULE getparam
Note: See TracBrowser for help on using the repository browser.