Changeset 900 for LMDZ4/trunk/libf/phylmd/conf_phys.F90

Timestamp:

Feb 7, 2008, 3:26:01 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Inclusion de la constante pmagic dans le calcul de l'albedo MAFO/JLD
LF

File:

• LMDZ4/trunk/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -101 +101 @@
   REAL,SAVE :: cdmmax_omp,cdhmax_omp,ksta_omp,ksta_ter_omp
   LOGICAL,SAVE :: ok_kzmin_omp
-  REAL, SAVE :: fmagic_omp
+  REAL, SAVE ::  fmagic_omp, pmagic_omp
   INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp
   CHARACTER*4, SAVE :: type_run_omp
@@ -685 +685 @@
 !
 !Config Key  = fmagic
-!Config Desc = 
+!Config Desc = additionnal multiplicator factor used for albedo
 !Config Def  = 1.
-!Config Help = Used in albedo.F
+!Config Help = additionnal multiplicator factor used in albedo.F
 !
   fmagic_omp = 1.
   call getin('fmagic',fmagic_omp)
+
+!
+!Config Key  = pmagic
+!Config Desc = additional factor used for albedo
+!Config Def  = 0.
+!Config Help = additional factor used in albedo.F
+!
+  pmagic_omp = 0.
+  call getin('pmagic',pmagic_omp)
+
 
 !Config Key = ok_lic_melt
@@ -941 +951 @@
     ok_kzmin = ok_kzmin_omp
     fmagic = fmagic_omp
+    pmagic = pmagic_omp
     iflag_pbl = iflag_pbl_omp
     lev_histhf = lev_histhf_omp
@@ -1043 +1054 @@
   write(numout,*)' ok_kzmin = ',ok_kzmin 
   write(numout,*)' fmagic = ',fmagic
+  write(numout,*)' pmagic = ',pmagic
   write(numout,*)' ok_ade = ',ok_ade
   write(numout,*)' ok_aie = ',ok_aie