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
Note: See
TracTickets for help on using
tickets.
Done in the trunk rev [4177]