Changeset 387 for LMDZ.3.3/branches/rel-LF

Timestamp:

Jul 16, 2002, 5:14:45 PM (22 years ago)

Author:

lmdzadmin

Message:

Pllus besoin de comgeomphy
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/diagphy.F (modified) (7 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/diagphy.F

@@ -1 @@
-      SUBROUTINE diagphy(tit,iprt
+      SUBROUTINE diagphy(airephy,tit,iprt
      $    , tops, topl, sols, soll, sens
      $    , evap, rain_fall, snow_fall, ts
@@ -12 +12 @@
 C
 C Arguments: 
+C airephy-------input-R-  grid area
 C tit---------input-A15- Comment to be added in PRINT (CHARACTER*15)
 C iprt--------input-I-  PRINT level ( <=0 : no PRINT)
@@ -45 +46 @@
 #include "dimensions.h"
 #include "dimphy.h"
-#include "comgeophy.h"
 #include "YOMCST.h"
 #include "YOETHF.h"
 C
 C     Input variables
+      real airephy(klon)
       CHARACTER*15 tit
       INTEGER iprt
@@ -139 +140 @@
 
 C======================================================================
-      SUBROUTINE diagetpq(tit,iprt,idiag,idiag2,dtime
+      SUBROUTINE diagetpq(airephy,tit,iprt,idiag,idiag2,dtime
      e  ,t,q,ql,qs,u,v,paprs,pplay
      s  , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
@@ -160 +161 @@
 c======================================================================
 C Arguments: 
+C airephy-------input-R-  grid area
 C tit-----imput-A15- Comment added in PRINT (CHARACTER*15)
 C iprt----input-I-  PRINT level ( <=1 : no PRINT)
@@ -193 +195 @@
 C     other (COMMON...)
 C     RG : gravity
-C     airephy(klon) : mesh surface
 C
 C J.L. Dufresne, July 2002
@@ -202 +203 @@
 #include "dimensions.h"
 #include "dimphy.h"
-#include "comgeophy.h"
 #include "YOMCST.h"
 #include "YOETHF.h"
 C
 c     Input variables
+      real airephy(klon)
       CHARACTER*15 tit
       INTEGER iprt,idiag, idiag2