Ignore:
Timestamp:
Aug 17, 2006, 5:41:51 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/V3_test/libf/phylmd/nuage.F

    r703 r704  
    99     e                  bl95_b0, bl95_b1,
    1010     s                  cldtaupi, re, fl)
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
     
    3839#include "YOMCST.h"
    3940c
    40 #include "dimensions.h"
    41 #include "dimphy.h"
     41cym#include "dimensions.h"
     42cym#include "dimphy.h"
    4243      REAL paprs(klon,klev+1), pplay(klon,klev)
    4344      REAL t(klon,klev)
     
    229230      SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop,
    230231     .                   diafra,dialiq)
     232      use dimphy
    231233      IMPLICIT none
    232234c
     
    238240c ces nuages. Je dois avouer que c'est une frustration.
    239241c
    240 #include "dimensions.h"
    241 #include "dimphy.h"
     242cym#include "dimensions.h"
     243cym#include "dimphy.h"
    242244#include "YOMCST.h"
    243245c
     
    313315      END
    314316      SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq)
     317      use dimphy
    315318      IMPLICIT none
    316319c
    317 #include "dimensions.h"
    318 #include "dimphy.h"
     320cym#include "dimensions.h"
     321cym#include "dimphy.h"
    319322#include "YOMCST.h"
    320323c
Note: See TracChangeset for help on using the changeset viewer.