Changeset 390


Ignore:
Timestamp:
Jul 17, 2002, 11:06:53 AM (22 years ago)
Author:
lmdzadmin
Message:

Bug sur le common nuage
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/nuage.F

    r79 r390  
    2020#include "dimensions.h"
    2121#include "dimphy.h"
     22#include "nuage.h"
    2223      REAL paprs(klon,klev+1), pplay(klon,klev)
    2324      REAL t(klon,klev)
    … …  
    3738      REAL zflwp, zradef, zfice, zmsac
    3839c
    39       REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2
    40       PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)
     40      REAL radius, rad_chaud
     41ccc      PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)
    4142ccc      PARAMETER (rad_chaud=15.0, rad_froid=35.0)
    4243c sintex initial      PARAMETER (rad_chaud=10.0, rad_froid=30.0)

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/nuage.h

    r378 r390  
    11      REAL rad_froid, rad_chau1, rad_chau2
    22
    3       common /nuage/ rad_froid,rad_chau1, rad_chau2
     3      common /nuagecom/ rad_froid,rad_chau1, rad_chau2
Note: See TracChangeset for help on using the changeset viewer.