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

Annotation of /trunk/phylmd/time_phylmdz.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 212 - (hide annotations)
Thu Jan 12 12:31:31 2017 UTC (7 years, 4 months ago) by guez
Original Path: trunk/Sources/phylmd/time_phylmdz.f
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 guez 191 module time_phylmdz
2    
3     implicit none
4    
5 guez 212 INTEGER:: itap = 0 ! number of calls to "physiq"
6 guez 191 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