/[lmdze]/trunk/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/phylmd/initphysto.f

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

trunk/libf/phylmd/initphysto.f90 revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC trunk/phylmd/initphysto.f revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 25  SUBROUTINE initphysto(infile,rlon,rlat,t Line 25  SUBROUTINE initphysto(infile,rlon,rlat,t
25    
26    !   L. Fairhead, 03/99    !   L. Fairhead, 03/99
27    
   USE calendar  
28    USE histbeg_totreg_m, ONLY : histbeg_totreg    USE histbeg_totreg_m, ONLY : histbeg_totreg
29    USE histdef_m, ONLY : histdef    USE histdef_m, ONLY : histdef
30    USE histend_m, ONLY : histend    USE histend_m, ONLY : histend
# Line 40  SUBROUTINE initphysto(infile,rlon,rlat,t Line 39  SUBROUTINE initphysto(infile,rlon,rlat,t
39    USE comgeom    USE comgeom
40    USE serre    USE serre
41    USE temps    USE temps
   USE ener  
42    USE nr_util, ONLY : pi    USE nr_util, ONLY : pi
43      USE ymds2ju_m
44    
45    IMPLICIT NONE    IMPLICIT NONE
46    
# Line 101  SUBROUTINE initphysto(infile,rlon,rlat,t Line 100  SUBROUTINE initphysto(infile,rlon,rlat,t
100       nivsigs(l) = float(l)       nivsigs(l) = float(l)
101    END DO    END DO
102    
103    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, &    CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, &
104         zvertiid)         zvertiid)
105    
106    !  Appels a histdef pour la definition des variables a sauvegarder    !  Appels a histdef pour la definition des variables a sauvegarder
Legend:
Removed from v.61  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21