/[lmdze]/trunk/Documentation/structure_leapfrog.f
ViewVC logotype

Annotation of /trunk/Documentation/structure_leapfrog.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 13 - (hide annotations)
Fri Jul 25 19:59:34 2008 UTC (15 years, 11 months ago) by guez
File size: 853 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 guez 13 itau = 0
2     ...
3     1 CONTINUE
4     ... bloc 1
5     forward = .TRUE.
6     leapf = .FALSE.
7     ... bloc 2
8     2 CONTINUE
9     ... bloc 3
10     IF (.NOT. purmats) THEN
11     IF (forward .OR. leapf) THEN
12     itau= itau + 1
13     ... bloc 4
14     end IF
15     ... bloc 5
16     IF (MOD(itau, iperiod) == 0) THEN
17     GO TO 1
18     ELSE IF (MOD(itau-1, iperiod) == 0) THEN
19     IF (forward) THEN
20     forward = .FALSE.
21     leapf = .FALSE.
22     GO TO 2
23     ELSE
24     leapf = .TRUE.
25     ... bloc 6
26     GO TO 2
27     END IF
28     ELSE
29     leapf = .TRUE.
30     ... bloc 7
31     GO TO 2
32     END IF
33     ELSE
34     IF (forward) THEN
35     itau = itau + 1
36     ... bloc 8
37     forward = .FALSE.
38     ... bloc 9
39     GO TO 2
40     ELSE
41     ... bloc 10
42     forward = .TRUE.
43     GO TO 1
44     ENDIF
45     END IF

  ViewVC Help
Powered by ViewVC 1.1.21