Parent Directory
| 
Revision Log
-- Minor change of behaviour: "etat0" does not compute "rugsrel" nor "radpas". Deleted arguments "radpas" and "rugsrel" of "phyredem". Deleted argument "rugsrel" of "phyetat0". "startphy.nc" does not contain the variable "RUGSREL". In "physiq", "rugoro" is set to 0 if not "ok_orodr". The whole program "etat0_lim" does not use "clesphys2". -- Minor modification of input/output: Created subroutine "read_clesphys2". Variables of "clesphys2" are read in "read_clesphys2" instead of "conf_gcm". "printflag" does not print variables of "clesphys2". -- Should not change any result at run time: References to module "numer_rec" instead of individual modules of "Numer_rec_Lionel". Deleted argument "clesphy0" of "calfis", "physiq", "conf_gcm", "leapfrog", "phyetat0". Deleted variable "clesphy0" in "gcm". "phyetat0" does not modify variables of "clesphys2". The program unit "gcm" does not modify "itau_phy". Added some "intent" attributes. "regr11_lint" does not call "polint".
| 1 | guez | 3 | module logic |
| 2 | |||
| 3 | implicit none | ||
| 4 | |||
| 5 | LOGICAL:: purmats= .FALSE. | ||
| 6 | ! Help = Choix du schema d'integration temporel. | ||
| 7 | ! y = pure Matsuno sinon c'est du Matsuno-leapfrog | ||
| 8 | |||
| 9 | guez | 12 | logical:: fxyhypb = .TRUE. |
| 10 | ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée | ||
| 11 | ! sinusoïdale) | ||
| 12 | guez | 3 | |
| 13 | guez | 12 | logical:: ysinus = .TRUE. |
| 14 | ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.) | ||
| 15 | guez | 3 | |
| 16 | logical:: ok_guide= .FALSE. | ||
| 17 | ! Help = Guidage | ||
| 18 | |||
| 19 | INTEGER:: iflag_phys = 1 | ||
| 20 | ! contrôle l'appel à la physique : | ||
| 21 | ! 0 : pas de physique | ||
| 22 | ! 1 : physique normale (appel à phylmd, phymars...) (default) | ||
| 23 | ! 2 : rappel Newtonien pour la température + friction au sol | ||
| 24 | |||
| 25 | guez | 12 | contains |
| 26 | |||
| 27 | subroutine read_logic | ||
| 28 | |||
| 29 | namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys | ||
| 30 | |||
| 31 | !------------------------------------ | ||
| 32 | |||
| 33 | print *, "Enter namelist 'logic_nml'." | ||
| 34 | read(unit=*, nml=logic_nml) | ||
| 35 | write(unit=*, nml=logic_nml) | ||
| 36 | |||
| 37 | end subroutine read_logic | ||
| 38 | |||
| 39 | guez | 3 | end module logic |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |