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	module time_phylmdz
2
3	implicit none
4
5	INTEGER, protected:: itap = 0 ! number of calls to "physiq"
6	integer, protected:: 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