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

Contents of /trunk/libf/dyn3d/iniprint.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 13 - (show annotations)
Fri Jul 25 19:59:34 2008 UTC (15 years, 9 months ago) by guez
File size: 463 byte(s)
-- 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 module iniprint
2
3 ! gestion des impressions de sorties et de débogage
4
5 implicit none
6
7 integer:: prt_level = 0 ! niveau d'impression souhaité (0 = minimum)
8
9 contains
10
11 subroutine read_iniprint
12
13 namelist /iniprint_nml/prt_level
14
15 !-------------------------------------------------
16
17 print *, "Enter namelist 'iniprint_nml'."
18 read(unit=*, nml=iniprint_nml)
19 write(unit=*, nml=iniprint_nml)
20
21 end subroutine read_iniprint
22
23 end module iniprint

  ViewVC Help
Powered by ViewVC 1.1.21