Opened 7 years ago

Closed 7 years ago

#320 closed defect (fixed)

segmentation fault when prescribing CONDVEG_SNOWA in run.def

Reported by: maignan Owned by: somebody
Priority: major Milestone: IPSLCM6.v1
Component: Physical processes Version: trunc
Keywords: Cc:

Description

There is a segmentation fault when prescribing CONDVEG_SNOWA in run.def (which sets the fixed_snow_albedo variable), because condveg does not initiliaze fraction_veg in this case.

The following code in the SUBROUTINE condveg_albedo:

    IF (ABS(fixed_snow_albedo - undef_sechiba) .GT. EPSILON(undef_sechiba)) THEN
       snowa_veg(:,:) = fixed_snow_albedo
       snowa_nobio(:,:,:) = fixed_snow_albedo
    ELSE ! calculated following Chalita and Treut (1994)

has to be modified into:

    IF (ABS(fixed_snow_albedo - undef_sechiba) .GT. EPSILON(undef_sechiba)) THEN
       snowa_veg(:,:) = fixed_snow_albedo
       snowa_nobio(:,:,:) = fixed_snow_albedo
       fraction_veg(:) = un - totfrac_nobio(:)
    ELSE ! calculated following Chalita and Treut (1994)

Reported by G. Krinner

Change History (1)

comment:1 Changed 7 years ago by jgipsl

  • Resolution set to fixed
  • Status changed from new to closed

Done in the trunk rev [4177]

Note: See TracTickets for help on using tickets.