OPA compilation : dynam1 common size warning

A warning message appears : sxld warning: multiply defined symbol dynam1_, in ../../../lib/libopa.a, has more than one size

New investigation under progress (YM and MAF)

Pmagic implementation

Add a parameter pmagic in albedo computation.

• Initialised in conf_phys.F90 or gcm.def
• Used in albedo.F

With type_run=CLIM in physiq.def you don't get the pourc_lic and frac_lic variables with LMDZ4_V3_1

Remedy : commit those changes.

Remedy in ini_histmth.h :

          IF(nsrf.GE.2) THEN
           call histdef(nid_mth, "pourc_"//clnsurf(nsrf), 
     $         "% "//clnsurf(nsrf), "%",  
     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
     $         "ave(X)", zstophy,zout)
c
           call histdef(nid_mth, "fract_"//clnsurf(nsrf), 
     $         "Fraction "//clnsurf(nsrf), "1",  
     $         iim,jj_nb,nhori, 1,1,1, -99, 32,
     $         "ave(X)", zstophy,zout)
          ENDIF !nsrf.GE.2

Remedy in ini_histmth.h

       IF(nsrf.GE.2) THEN
        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
        CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(nsrf),itau_w,
     &                     zx_tmp_fi2d) 
c
        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
        CALL histwrite_phy(nid_mth,"fract_"//clnsurf(nsrf),itau_w,
     $      zx_tmp_fi2d) 
       ENDIF !nsrf.GE.2