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

Diff of /trunk/Sources/phylmd/phytrac.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 76  contains Line 76  contains
76      real, intent(in):: pplay(klon, llm)      real, intent(in):: pplay(klon, llm)
77      ! (pression pour le mileu de chaque couche, en Pa)      ! (pression pour le mileu de chaque couche, en Pa)
78    
79      real pphis(klon)      real, intent(in):: pphis(klon)
80      logical, intent(in):: firstcal ! first call to "calfis"      logical, intent(in):: firstcal ! first call to "calfis"
81      logical, intent(in):: lafin ! fin de la physique      logical, intent(in):: lafin ! fin de la physique
82    
# Line 455  contains Line 455  contains
455        ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30        ! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30
456    
457        use dimens_m, only: iim, jjm, llm        use dimens_m, only: iim, jjm, llm
458        use histcom, only: histsync        use histsync_m, only: histsync
459        use histwrite_m, only: histwrite        use histwrite_m, only: histwrite
460        use temps, only: itau_phy        use temps, only: itau_phy
461        use iniadvtrac_m, only: tnom        use iniadvtrac_m, only: tnom
Legend:
Removed from v.47  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21