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

Diff of /trunk/libf/phylmd/ini_histhf.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 30 by guez, Thu Apr 1 09:07:28 2010 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    
13      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
14      use temps, only: day_ref, annee_ref, itau_phy      use temps, only: day_ref, annee_ref, itau_phy
15      use dimphy, only: klon      use dimphy, only: klon
16      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend      USE calendar, only: ymds2ju
17        use histcom, only: histbeg_totreg, histvert, histend
18      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
19        use comvert, only: presnivs
20    
21      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
22      integer, intent(out):: nid_hf, nid_hf3d      integer, intent(out):: nid_hf, nid_hf3d
23    
24      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 44  contains
44      CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", &      CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", &
45           llm, presnivs/100., nvert)           llm, presnivs/100., nvert)
46    
47      call ini_histhf3d(dtime, presnivs, nid_hf3d)      call ini_histhf3d(dtime, nid_hf3d)
48      CALL histend(nid_hf)      CALL histend(nid_hf)
49    
50    end subroutine ini_histhf    end subroutine ini_histhf
51    
52    !******************************************************************    !******************************************************************
53    
54    subroutine ini_histhf3d(dtime, presnivs, nid_hf3d)    subroutine ini_histhf3d(dtime, nid_hf3d)
55    
56      ! 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
57    
# Line 61  contains Line 62  contains
62      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
63      use clesphys, only: ecrit_hf      use clesphys, only: ecrit_hf
64      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
65      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE calendar, only: ymds2ju
66        use histcom, only: histbeg_totreg, histvert, histend, histdef
67        use comvert, only: presnivs
68    
69      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
70      integer, intent(out):: nid_hf3d      integer, intent(out):: nid_hf3d
71    
72      real zstohf, zout      real zstohf, zout
# Line 123  contains Line 125  contains
125    
126    !******************************************************************    !******************************************************************
127    
128    subroutine ini_histday(dtime, presnivs, ok_journe, nid_day, nq)    subroutine ini_histday(dtime, ok_journe, nid_day, nq)
129    
130      ! 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
131    
132      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
133      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
134      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE calendar, only: ymds2ju
135        use histcom, only: histbeg_totreg, histvert, histend, histdef
136      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
137      use clesphys, only: ecrit_day      use clesphys, only: ecrit_day
138      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
139        use comvert, only: presnivs
140    
141      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
142      logical, intent(in):: ok_journe      logical, intent(in):: ok_journe
143      integer, intent(out):: nid_day      integer, intent(out):: nid_day
144      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 171  contains
171    
172    !****************************************************    !****************************************************
173    
174    subroutine ini_histins(dtime, presnivs, ok_instan, nid_ins)    subroutine ini_histins(dtime, ok_instan, nid_ins)
175    
176      ! 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
177    
# Line 177  contains Line 180  contains
180      use temps, only: itau_phy, day_ref, annee_ref      use temps, only: itau_phy, day_ref, annee_ref
181      use clesphys, only: ecrit_ins      use clesphys, only: ecrit_ins
182      use indicesol, only: nbsrf, clnsurf      use indicesol, only: nbsrf, clnsurf
183      USE ioipsl, only: ymds2ju, histbeg_totreg, histvert, histend, histdef      USE calendar, only: ymds2ju
184        use histcom, only: histbeg_totreg, histvert, histend, histdef
185      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
186        use comvert, only: presnivs
187    
188      REAL, intent(in):: dtime ! pas temporel de la physique (s)      REAL, intent(in):: dtime ! pas temporel de la physique (s)
     real, intent(in):: presnivs(:)  
189      logical, intent(in):: ok_instan      logical, intent(in):: ok_instan
190      integer, intent(out):: nid_ins      integer, intent(out):: nid_ins
191    
# Line 463  contains Line 467  contains
467    
468    !*************************************************    !*************************************************
469    
470    subroutine ini_histrac(nid_tra, pdtphys, presnivs, nq_phys, lessivage)    subroutine ini_histrac(nid_tra, pdtphys, nq_phys, lessivage)
471    
472      ! 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
473    
474      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
475      use ioipsl, only: ymds2ju, histbeg_totreg, histvert, histdef, histend      USE calendar, only: ymds2ju
476        use histcom, only: histbeg_totreg, histvert, histend, histdef
477      use temps, only: annee_ref, day_ref, itau_phy      use temps, only: annee_ref, day_ref, itau_phy
478      use iniadvtrac_m, only: niadv, tnom, ttext      use iniadvtrac_m, only: niadv, tnom, ttext
479      use dimphy, only: klon      use dimphy, only: klon
480      use clesphys, only: ecrit_tra      use clesphys, only: ecrit_tra
481      use grid_change, only: gr_phy_write_2d      use grid_change, only: gr_phy_write_2d
482      use phyetat0_m, only: rlon, rlat      use phyetat0_m, only: rlon, rlat
483        use comvert, only: presnivs
484    
485      INTEGER, intent(out):: nid_tra      INTEGER, intent(out):: nid_tra
486      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(:)  
487    
488      integer, intent(in):: nq_phys      integer, intent(in):: nq_phys
489      ! (nombre de traceurs auxquels on applique la physique)      ! (nombre de traceurs auxquels on applique la physique)
# Line 547  contains Line 552  contains
552      CALL histdef(nid_tra, "pplay", "", "-", &      CALL histdef(nid_tra, "pplay", "", "-", &
553           iim, jjm+1, nhori, llm, 1, llm, nvert, &           iim, jjm+1, nhori, llm, 1, llm, nvert, &
554           "inst(X)", zout, zout)           "inst(X)", zout, zout)
555      CALL histdef(nid_tra, "t", "", "-", &      CALL histdef(nid_tra, "T", "temperature", "K", iim, jjm+1, nhori, llm, &
556           iim, jjm+1, nhori, llm, 1, llm, nvert, &           1, llm, nvert, "inst(X)", zout, zout)
          "inst(X)", zout, zout)  
557    
558      CALL histend(nid_tra)      CALL histend(nid_tra)
559    
Legend:
Removed from v.18  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.21