/[lmdze]/trunk/Sources/phylmd/time_phylmdz.f
ViewVC logotype

Contents of /trunk/Sources/phylmd/time_phylmdz.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 212 - (show annotations)
Thu Jan 12 12:31:31 2017 UTC (7 years, 3 months ago) by guez
File size: 421 byte(s)
Moved variables from module com_io_dyn to module inithist_m, where
they are defined.

Split grid_atob.f into grille_m.f and dist_sphe.f. Extracted ASCCI art
to documentation. In grille_m, use automatic arrays instead of maximum
size. In grille_m, instead of printing data for every problematic
point, print a single diagnostic message.

Removed variables top_height, overlap, lev_histhf, lev_histday,
lev_histmth, type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins,
latmin_ins, latmax_ins of module clesphys, not used.

Removed variable itap of module histwrite_phy_m, not used. There is a
variable itap in module time_phylmdz.

Added output of tro3.

In physiq, no need to compute wo at every time-step, since we only use
it in radlwsw.

1 module time_phylmdz
2
3 implicit none
4
5 INTEGER:: itap = 0 ! number of calls to "physiq"
6 integer itau_w ! pas de temps d'\'ecriture
7
8 contains
9
10 subroutine increment_itap
11
12 ! Incrémenter le compteur de la physique
13
14 use phyetat0_m, only: itau_phy
15
16 !--------------------------------------------------
17
18 itap = itap + 1
19 itau_w = itau_phy + itap
20
21 end subroutine increment_itap
22
23 end module time_phylmdz

  ViewVC Help
Powered by ViewVC 1.1.21