/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 6 by guez, Tue Mar 4 14:00:42 2008 UTC
# Line 58  contains Line 58  contains
58      ! sorties hf 3d      ! sorties hf 3d
59    
60      use dimens_m, only: iim, jjm, llm      use dimens_m, only: iim, jjm, llm
61      use dimphy, only: klon      use dimphy, only: klon, nbtr
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
# Line 113  contains Line 113  contains
113           iim, (jjm + 1), nhori, llm, 1, llm, nvert, 32, &           iim, (jjm + 1), nhori, llm, 1, llm, nvert, 32, &
114           "ave(X)", zstohf, zout)           "ave(X)", zstohf, zout)
115    
116      CALL histdef(nid_hf3d, "O3", "Ozone mass fraction", "?", iim, &      if (nbtr >= 3) then
117           (jjm + 1), nhori, llm, 1, llm, nvert, 32, "ave(X)", zstohf, &         CALL histdef(nid_hf3d, "O3", "Ozone mass fraction", "?", iim, &
118           zout)              (jjm + 1), nhori, llm, 1, llm, nvert, 32, "ave(X)", zstohf, &
119                zout)
120        end if
121    
122      CALL histend(nid_hf3d)      CALL histend(nid_hf3d)
123    
Legend:
Removed from v.3  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.21