Parent Directory | Revision Log | Patch
trunk/libf/phylmd/initphysto.f90 revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC | trunk/phylmd/initphysto.f revision 92 by guez, Wed Mar 26 18:16:05 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 42 SUBROUTINE initphysto(infile,rlon,rlat,t | Line 41 SUBROUTINE initphysto(infile,rlon,rlat,t |
41 | USE temps | USE temps |
42 | USE ener | USE ener |
43 | USE nr_util, ONLY : pi | USE nr_util, ONLY : pi |
44 | USE ymds2ju_m | |
45 | ||
46 | IMPLICIT NONE | IMPLICIT NONE |
47 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |