/[lmdze]/trunk/libf/phylmd/ini_hist.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/ini_hist.f90

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

revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 6  module ini_hist Line 6  module ini_hist
6    
7  contains  contains
8    
9    subroutine ini_histhf(dtime, presnivs, nid_hf, nid_hf3d)    subroutine ini_histhf(dtime, nid_hf, nid_hf3d)
10    
11      ! From phylmd/ini_histhf.h, version 1.3 2005/05/25 13:10:09      ! From phylmd/ini_histhf.h, version 1.3 2005/05/25 13:10:09
12    
# Line 15  contains Line 15  contains
15      use dimphy, only: klon      use dimphy, only: klon
16      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend
17      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
18        use comvert, only: presnivs
19    
20      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
21      integer, intent(out):: nid_hf, nid_hf3d      integer, intent(out):: nid_hf, nid_hf3d
22    
23      REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1)      REAL zx_lon(iim, jjm + 1), zx_lat(iim, jjm + 1)
# Line 43  contains Line 43  contains
43      CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", &      CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", &
44           llm, presnivs/100., nvert)           llm, presnivs/100., nvert)
45    
46      call ini_histhf3d(dtime, presnivs, nid_hf3d)      call ini_histhf3d(dtime, nid_hf3d)
47      CALL histend(nid_hf)      CALL histend(nid_hf)
48    
49    end subroutine ini_histhf    end subroutine ini_histhf
50    
51    !******************************************************************    !******************************************************************
52    
53    subroutine ini_histhf3d(dtime, presnivs, nid_hf3d)    subroutine ini_histhf3d(dtime, nid_hf3d)
54    
55      ! From phylmd/ini_histhf3d.h, v 1.2 2005/05/25 13:10:09      ! From phylmd/ini_histhf3d.h, v 1.2 2005/05/25 13:10:09
56    
# Line 62  contains Line 62  contains
62      use clesphys, only: ecrit_hf      use clesphys, only: ecrit_hf
63      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
64      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef
65        use comvert, only: presnivs
66    
67      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
68      integer, intent(out):: nid_hf3d      integer, intent(out):: nid_hf3d
69    
70      real zstohf, zout      real zstohf, zout
# Line 123  contains Line 123  contains
123    
124    !******************************************************************    !******************************************************************
125    
126    subroutine ini_histday(dtime, presnivs, ok_journe, nid_day, nq)    subroutine ini_histday(dtime, ok_journe, nid_day, nq)
127    
128      ! From phylmd/ini_histday.h, v 1.3 2005/05/25 13:10:09      ! From phylmd/ini_histday.h, v 1.3 2005/05/25 13:10:09
129    
# Line 133  contains Line 133  contains
133      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
134      use clesphys, only: ecrit_day      use clesphys, only: ecrit_day
135      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
136        use comvert, only: presnivs
137    
138      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
139      logical, intent(in):: ok_journe      logical, intent(in):: ok_journe
140      integer, intent(out):: nid_day      integer, intent(out):: nid_day
141      INTEGER, intent(in):: nq ! nombre de traceurs (y compris vapeur d'eau)      INTEGER, intent(in):: nq ! nombre de traceurs (y compris vapeur d'eau)
# Line 168  contains Line 168  contains
168    
169    !****************************************************    !****************************************************
170    
171    subroutine ini_histins(dtime, presnivs, ok_instan, nid_ins)    subroutine ini_histins(dtime, ok_instan, nid_ins)
172    
173      ! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09      ! From phylmd/ini_histins.h, v 1.2 2005/05/25 13:10:09
174    
# Line 179  contains Line 179  contains
179      use indicesol, only: nbsrf, clnsurf      use indicesol, only: nbsrf, clnsurf
180      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef
181      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
182        use comvert, only: presnivs
183    
184      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
185      logical, intent(in):: ok_instan      logical, intent(in):: ok_instan
186      integer, intent(out):: nid_ins      integer, intent(out):: nid_ins
187    
# Line 463  contains Line 463  contains
463    
464    !*************************************************    !*************************************************
465    
466    subroutine ini_histrac(nid_tra, pdtphys, presnivs, nq_phys, lessivage)    subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage)
467    
468      ! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30      ! From phylmd/ini_histrac.h, version 1.10 2006/02/21 08:08:30
469    
# Line 475  contains Line 475  contains
475      use clesphys, only: ecrit_tra      use clesphys, only: ecrit_tra
476      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
477      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
478        use comvert, only: presnivs
479    
480      INTEGER, intent(out):: nid_tra      INTEGER, intent(out):: nid_tra
481      real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)      real, intent(in):: pdtphys  ! pas d'integration pour la physique (s)
     REAL, intent(in):: presnivs(:)  
482    
483      integer, intent(in):: nq_phys      integer, intent(in):: nq_phys
484      ! (nombre de traceurs auxquels on applique la physique)      ! (nombre de traceurs auxquels on applique la physique)
Legend:
Removed from v.18  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21