Changeset 834 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Aug 28, 2007, 5:11:39 PM (17 years ago)
Author:
lmdzadmin
Message:

Le parametre "fmagic" reglage albedo est lu dans physiq.def (conf_phys.F90)
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phytherm/albedo.F

    r814 r834  
    2121cym#include "dimphy.h"
    2222#include "YOMCST.h"
     23#include "clesphys.h"
    2324c
    24       REAL fmagic ! un facteur magique pour regler l'albedo
     25c fmagic -> clesphys.h/.inc
     26c     REAL fmagic ! un facteur magique pour regler l'albedo
    2527ccc      PARAMETER (fmagic=0.7)
    2628cccIM => a remplacer 
    2729c       PARAMETER (fmagic=1.32)
    28         PARAMETER (fmagic=1.0)
     30c       PARAMETER (fmagic=1.0)
    2931c       PARAMETER (fmagic=0.7)
    3032      INTEGER npts ! il controle la precision de l'integration
    … …  
    144146cym#include "dimensions.h"
    145147cym#include "dimphy.h"
     148#include "clesphys.h"
    146149      REAL rmu0(klon), albedo(klon)
    147150c
    148       REAL fmagic ! un facteur magique pour regler l'albedo
     151c     REAL fmagic ! un facteur magique pour regler l'albedo
    149152ccc      PARAMETER (fmagic=0.7)
    150153cccIM => a remplacer 
    151154c       PARAMETER (fmagic=1.32)
    152         PARAMETER (fmagic=1.0)
     155c       PARAMETER (fmagic=1.0)
    153156c       PARAMETER (fmagic=0.7)
    154157c
Note: See TracChangeset for help on using the changeset viewer.