Changeset 845 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/albedo.F

Timestamp:

Sep 14, 2007, 4:01:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Création de la branche LMDZ4_V3_patches: à partir de la version de référence LMDZ4_V3,

on corrige différents bugs qui sont sur la branche de développement HEAD pour établir
une version de référence LMDZ4_V3 pour les utilisateurs non-développeurs

Cette branche ne servira que pour les corrections de bugs et les version y seront tagguées

LF

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/albedo.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/albedo.F

@@ -21 +21 @@
 cym#include "dimphy.h"
 #include "YOMCST.h"
+#include "clesphys.h"
 c
-      REAL fmagic ! un facteur magique pour regler l'albedo
+c fmagic -> clesphys.h/.inc
+c     REAL fmagic ! un facteur magique pour regler l'albedo
 ccc      PARAMETER (fmagic=0.7)
 cccIM => a remplacer  
 c       PARAMETER (fmagic=1.32)
-        PARAMETER (fmagic=1.0)
+c       PARAMETER (fmagic=1.0)
 c       PARAMETER (fmagic=0.7)
       INTEGER npts ! il controle la precision de l'integration
@@ -144 +146 @@
 cym#include "dimensions.h"
 cym#include "dimphy.h"
+#include "clesphys.h"
       REAL rmu0(klon), albedo(klon)
 c
-      REAL fmagic ! un facteur magique pour regler l'albedo
+c     REAL fmagic ! un facteur magique pour regler l'albedo
 ccc      PARAMETER (fmagic=0.7)
 cccIM => a remplacer  
 c       PARAMETER (fmagic=1.32)
-        PARAMETER (fmagic=1.0)
+c       PARAMETER (fmagic=1.0)
 c       PARAMETER (fmagic=0.7) 
 c