/[lmdze]/trunk/dyn3d/test_fxhyp.f
ViewVC logotype

Contents of /trunk/dyn3d/test_fxhyp.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 313 - (show annotations)
Mon Dec 10 15:54:30 2018 UTC (5 years, 5 months ago) by guez
File size: 913 byte(s) 
Remove module temps. Move variable itau_dyn from module temps to
module dynetat0_m, where it is defined.

Split module dynetat0_m into dynetat0_m and dynetat0_chosen_m. The
motivation is to create smaller modules. Procedures principal_cshift
and invert_zoomx had to stay in dynetat0_m because of circular
dependency. Now we will be able to move them away. Module variables
which are chosen by the user, not computed, in program ce0l go to
dynetat0_chosen_m: day_ref, annee_ref, clon, clat, grossismx,
grossismy, dzoomx, dzoomy, taux, tauy.

Move variable "pa" from module disvert_m to module
dynetat0_chosen_m. Define "pa" in dynetat0_chosen rather than etat0.

Define day_ref and annee_ref in procedure read_serre rather than
etat0.
1 program test_fxhyp
2
3 use dynetat0_m, only: fxhyp, xprimm025, rlonv, xprimv, rlonu, xprimu, &
4 xprimp025
5 use dynetat0_chosen_m, only: read_serre
6 use unit_nml_m, only: unit_nml, set_unit_nml
7
8 implicit none
9
10 !--------------------------------------------------------
11
12 call set_unit_nml
13 open(unit_nml, file="used_namelists.txt", status="replace", action="write")
14 call read_serre
15 call fxhyp
16 close(unit_nml)
17
18 ! We can use the same unit number although we are not writing a namelist:
19 open(unit_nml, file="test_fxhyp_out.txt", status="replace", action="write")
20 write(unit_nml, fmt = *) "xprimm025 = ", xprimm025
21 write(unit_nml, fmt = *) "rlonv = ", rlonv
22 write(unit_nml, fmt = *) "xprimv = ", xprimv
23 write(unit_nml, fmt = *) "rlonu = ", rlonu
24 write(unit_nml, fmt = *) "xprimu = ", xprimu
25 write(unit_nml, fmt = *) "xprimp025 = ", xprimp025
26 close(unit_nml)
27
28 end program test_fxhyp
  ViewVC Help
Powered by ViewVC 1.1.21