/[lmdze]/trunk/libf/phylmd/iniphysiq.f
ViewVC logotype

Diff of /trunk/libf/phylmd/iniphysiq.f

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

revision 14 by guez, Wed Feb 27 13:16:39 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 3  Line 3 
3  !  !
4  c  c
5  c  c
6        SUBROUTINE iniphysiq(ngrid,nlayer,        SUBROUTINE iniphysiq(ngrid,nlayer, plat,plon,parea,pcu,pcv,
      $           punjours,  
      $           pdayref,ptimestep,  
      $           plat,plon,parea,pcu,pcv,  
7       $           prad,pg,pr,pcpp)       $           prad,pg,pr,pcpp)
8        use dimens_m        use dimens_m
9        use dimphy        use dimphy
# Line 48  c   declarations: Line 45  c   declarations:
45  c   -------------  c   -------------
46    
47    
48        REAL prad,pg,pr,pcpp,punjours        REAL prad,pg,pr,pcpp
49    
50        INTEGER ngrid,nlayer        INTEGER ngrid,nlayer
51        REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon)        REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon)
       INTEGER pdayref  
   
       REAL ptimestep  
52    
53        IF (nlayer.NE.klev) THEN        IF (nlayer.NE.klev) THEN
54           PRINT*,'STOP in inifis'           PRINT*,'STOP in inifis'
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21