/[lmdze]/trunk/phylmd/CV3_routines/cv3_feed.f
ViewVC logotype

Diff of /trunk/phylmd/CV3_routines/cv3_feed.f

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

trunk/libf/phylmd/CV3_routines/cv3_feed.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC trunk/phylmd/CV3_routines/cv3_feed.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 1  Line 1 
1    
2        SUBROUTINE cv3_feed(len,nd,t,q,qs,p,ph,hm,gz &        SUBROUTINE cv3_feed(len,nd,t,q,qs,p,ph,hm,gz &
3                          ,nk,icb,icbmax,iflag,tnk,qnk,gznk,plcl)                          ,nk,icb,icbmax,iflag,tnk,qnk,gznk,plcl)
4              use cvparam3              use cv3_param_m
5        implicit none        implicit none
6    
7  !================================================================  !================================================================
# Line 21  Line 21 
21    
22  ! inputs:  ! inputs:
23          integer len, nd          integer len, nd
24        real t(len,nd), q(len,nd), qs(len,nd), p(len,nd)        real, intent(in):: t(len,nd)
25          real q(len,nd), qs(len,nd), p(len,nd)
26        real hm(len,nd), gz(len,nd)        real hm(len,nd), gz(len,nd)
27        real ph(len,nd+1)        real ph(len,nd+1)
28    
Legend:
Removed from v.47  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21