source: trunk/LMDZ.COMMON/libf/dyn3d/getparam.F90 @ 3553

Last change on this file since 3553 was 1391, checked in by emillour, 10 years ago

Common dynamical core:
Updates in the dynamics to keeup up with updates in LMDZ5
(up to LMDZ5 trunk rev 2200):

  • compilation:
  • create_make_gcm : added processing of .f & .f90 files (not just .F and .F90)
  • makelmdz: add "mix" option for -io (ouptut with both IOIPSL and XIOS)
  • makelmdz_fcm: add "mix" option for -io
  • filtrez:
  • acc.F and eigen.F : add "implicit none" and variable declarations
  • bibio:
  • handle_err_m.F90: replace "stop" with call to abort_gcm()
  • i1mach.F, j4save.F: add "implicit none" and variable declarations
  • xercnt.F, xermsg.F, xerprn.F, xersve.F, xgetua.F: add "implicit none" and variable declarations
  • dyn3d_common:
  • disvert.F90 : added comments on meaning of "pa" variable
  • grid_atob.F : better control on level of default ouputs
  • infotrac.F90: update Earth-specific stuff (nqo water tracers)
  • interpre.F: correction on the size of input array w
  • juldate.F, massbar.F, ppm3d.F, ran1.F: add "implicit none" and variable declarations
  • sortvarc.F: code cleanup
  • iniacademic.F90: cleanup and extra sanity check.
  • dyn3d:
  • abort_gcm.F: additions for XIOS
  • conf_gcm.F90: transformed to free form from conf_gcm.F
  • gcm.F: added test to check that iphysiq is a multiple of iperiod
  • getparam.F90, guidz_mod.F: update from LMDZ5
  • integrd.F: replace stop with call_abort()
  • dyn3dpar:
  • abort_gcm.F: minor cleanup
  • gcm.F: added test to check that iphysiq is a multiple of iperiod
  • getparam.F90, guide_p_mod.F90: update from LMDZ5
  • integrd_p.F: abort with call_abort when there is negative surface pressure
  • leapfrog_p.F: add INCA specific stuff to keep up with current LMDZ5
  • conf_gcm.F90: transformed to free form from conf_gcm.F

EM
File size: 2.5 KB
RevLine 
[1]1!
2! $Id: getparam.F90 1279 2009-12-10 09:02:56Z fairhead $
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
[1391]13     MODULE PROCEDURE getparamr,getparami,getparaml
[1]14   END INTERFACE
[1391]15   private getparamr,getparami,getparaml
[1]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.