trunk/phylmd/time_phylmdz.f

module time_phylmdz

  implicit none

  INTEGER, protected:: itap = 0 ! number of calls to "physiq"
  integer, protected:: itau_w ! pas de temps d'\'ecriture

contains

  subroutine increment_itap

    ! Incrémenter le compteur de la physique

    use phyetat0_m, only: itau_phy

    !--------------------------------------------------

    itap = itap + 1
    itau_w = itau_phy + itap

  end subroutine increment_itap

end module time_phylmdz
1	guez	191	module time_phylmdz
2
3			implicit none
4
5	guez	312	INTEGER, protected:: itap = 0 ! number of calls to "physiq"
6			integer, protected:: itau_w ! pas de temps d'\'ecriture
7	guez	191
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