pb cimean calculation in diffuco_trans_co2

[jgipsl]

The variable cimean is out of rang. The error seams to be systematic when entering following calculation in diffuco_trans_co2:

            cimean(iainia,jv) = (gsmean(iainia,jv)-g0(jv)) &
                 / (fvpd(iainia)*(assimtot(iainia)+Rdtot(iainia))) &
                 + gamma_star(iainia)

Sometimes following warning is written but not always when the problemes are seen:

                     WRITE(*,*) 'We have a problem in diffuco_trans_co2'
                     WRITE(*,*) 'We have a problem in diffuco_trans_co2'

The problem has been seen in orchidee trunk rev 2247.

[jgipsl]

This problem makes XIOS stop. While waiting for a solution, the writing of cimean using xios has been deactivated, see rev [2391].

[maignan]

Commit was done in rev [4591], with a newer version of the photosynthesis code:
+ IF ( ABS(gsmean(iainia,jv)-g0var(iainia)*laisum(iainia)) .GT. min_sechiba) THEN
+ cimean(iainia,jv) = (fvpd(iainia)*(assimtot(iainia)+Rdtot(iainia))) /&

(gsmean(iainia,jv)-g0var(iainia)*laisum(iainia)) + gamma_star(iainia)

+ ELSE
+ cimean(iainia,jv) = gamma_star(iainia)
+ ENDIF