Ignore:
Timestamp:
Jul 16, 2002, 5:14:45 PM (22 years ago)
Author:
lmdzadmin
Message:

Pllus besoin de comgeomphy
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/diagphy.F

    r378 r387  
    1       SUBROUTINE diagphy(tit,iprt
     1      SUBROUTINE diagphy(airephy,tit,iprt
    22     $    , tops, topl, sols, soll, sens
    33     $    , evap, rain_fall, snow_fall, ts
     
    1212C
    1313C Arguments:
     14C airephy-------input-R-  grid area
    1415C tit---------input-A15- Comment to be added in PRINT (CHARACTER*15)
    1516C iprt--------input-I-  PRINT level ( <=0 : no PRINT)
     
    4546#include "dimensions.h"
    4647#include "dimphy.h"
    47 #include "comgeophy.h"
    4848#include "YOMCST.h"
    4949#include "YOETHF.h"
    5050C
    5151C     Input variables
     52      real airephy(klon)
    5253      CHARACTER*15 tit
    5354      INTEGER iprt
     
    139140
    140141C======================================================================
    141       SUBROUTINE diagetpq(tit,iprt,idiag,idiag2,dtime
     142      SUBROUTINE diagetpq(airephy,tit,iprt,idiag,idiag2,dtime
    142143     e  ,t,q,ql,qs,u,v,paprs,pplay
    143144     s  , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
     
    160161c======================================================================
    161162C Arguments:
     163C airephy-------input-R-  grid area
    162164C tit-----imput-A15- Comment added in PRINT (CHARACTER*15)
    163165C iprt----input-I-  PRINT level ( <=1 : no PRINT)
     
    193195C     other (COMMON...)
    194196C     RG : gravity
    195 C     airephy(klon) : mesh surface
    196197C
    197198C J.L. Dufresne, July 2002
     
    202203#include "dimensions.h"
    203204#include "dimphy.h"
    204 #include "comgeophy.h"
    205205#include "YOMCST.h"
    206206#include "YOETHF.h"
    207207C
    208208c     Input variables
     209      real airephy(klon)
    209210      CHARACTER*15 tit
    210211      INTEGER iprt,idiag, idiag2
Note: See TracChangeset for help on using the changeset viewer.