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

Contents of /trunk/Documentation/structure_leapfrog.f

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: 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 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