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

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

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

revision 9 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 34  c Line 34  c
34        INTEGER nlon,nlev        INTEGER nlon,nlev
35        REAL dtime        REAL dtime
36        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
37        REAL pplay(klon,klev)        REAL, intent(in):: pplay(klon,klev)
38        REAL pmea(nlon),pstd(nlon),psig(nlon),pgam(nlon),pthe(nlon)        REAL pmea(nlon),pstd(nlon),psig(nlon),pgam(nlon),pthe(nlon)
39        REAL ppic(nlon),pval(nlon)        REAL ppic(nlon),pval(nlon)
40        REAL pulow(nlon),pvlow(nlon),pustr(nlon),pvstr(nlon)        REAL pulow(nlon),pvlow(nlon),pustr(nlon),pvstr(nlon)
# Line 134  c outputs Line 134  c outputs
134        use dimens_m        use dimens_m
135        use dimphy        use dimphy
136        use YOMCST        use YOMCST
137                use yoegwd
138        implicit none        implicit none
139    
140  c  c
# Line 183  c     f.lott + m. miller    e.c.m.w.f. Line 184  c     f.lott + m. miller    e.c.m.w.f.
184  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
185  c  c
186  c  c
       include "YOEGWD.h"  
187  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
188  c  c
189  c*       0.1   arguments  c*       0.1   arguments
# Line 468  c--------------------------------------- Line 468  c---------------------------------------
468        use dimens_m        use dimens_m
469        use dimphy        use dimphy
470        use YOMCST        use YOMCST
471                use yoegwd
472        implicit none        implicit none
473  c  c
474    
       include "YOEGWD.h"  
475    
476  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
477  c  c
# Line 936  c--------------------------------------- Line 936  c---------------------------------------
936        use dimens_m        use dimens_m
937        use dimphy        use dimphy
938        use YOMCST        use YOMCST
939                use yoegwd
940        implicit none        implicit none
       include "YOEGWD.h"  
941    
942  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
943  c  c
# Line 1070  C--------------------------------------- Line 1070  C---------------------------------------
1070        use dimens_m        use dimens_m
1071        use dimphy        use dimphy
1072        use YOMCST        use YOMCST
1073                use yoegwd
1074        implicit none        implicit none
1075  C  C
1076    
1077  C  C
1078    
       include "YOEGWD.h"  
1079    
1080  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
1081  C  C
# Line 1324  c Line 1324  c
1324        INTEGER nlon,nlev        INTEGER nlon,nlev
1325        REAL dtime        REAL dtime
1326        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
1327        REAL pplay(klon,klev)        REAL, intent(in):: pplay(klon,klev)
1328        REAL, intent(in):: plat(nlon)        REAL, intent(in):: plat(nlon)
1329        real pmea(nlon)        real pmea(nlon)
1330        REAL pstd(nlon)        REAL pstd(nlon)
# Line 1442  C Line 1442  C
1442        use dimens_m        use dimens_m
1443        use dimphy        use dimphy
1444        use YOMCST        use YOMCST
1445                use yoegwd
1446        implicit none        implicit none
1447  C  C
1448  C  C
       include "YOEGWD.h"  
1449  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
1450  C  C
1451  C*       0.1   ARGUMENTS  C*       0.1   ARGUMENTS
# Line 1742  C     MODIFICATIONS. Line 1742  C     MODIFICATIONS.
1742  C     --------------  C     --------------
1743  C        ORIGINAL : 90-01-01  C        ORIGINAL : 90-01-01
1744  C     ------------------------------------------------------------------  C     ------------------------------------------------------------------
1745                use yoegwd
1746        implicit none        implicit none
1747  C  C
1748  C     -----------------------------------------------------------------  C     -----------------------------------------------------------------
       include "YOEGWD.h"  
1749  C      ----------------------------------------------------------------  C      ----------------------------------------------------------------
1750  C  C
1751        integer nlon,nlev, jk        integer nlon,nlev, jk
1752        REAL, intent(in):: paprs(nlon,nlev+1)        REAL, intent(in):: paprs(nlon,nlev+1)
1753        REAL pplay(nlon,nlev)        REAL, intent(in):: pplay(nlon,nlev)
1754        real zpr,zstra,zsigt,zpm1r        real zpr,zstra,zsigt,zpm1r
1755  C  C
1756  C*       1.    SET THE VALUES OF THE PARAMETERS  C*       1.    SET THE VALUES OF THE PARAMETERS
Legend:
Removed from v.9  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21