Parent Directory | Revision Log | Patch
trunk/libf/phylmd/initphysto.f90 revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC | trunk/phylmd/initphysto.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC | |
---|---|---|
# | Line 101 SUBROUTINE initphysto(infile,rlon,rlat,t | Line 101 SUBROUTINE initphysto(infile,rlon,rlat,t |
101 | nivsigs(l) = float(l) | nivsigs(l) = float(l) |
102 | END DO | END DO |
103 | ||
104 | CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',llm,nivsigs, & | CALL histvert(fileid,'sig_s','Niveaux sigma','sigma_level',nivsigs, & |
105 | zvertiid) | zvertiid) |
106 | ||
107 | ! Appels a histdef pour la definition des variables a sauvegarder | ! Appels a histdef pour la definition des variables a sauvegarder |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |