Opened 5 years ago

Closed 5 years ago

#189 closed defect (fixed)

thermosoil_readjust must be called only if ok_freeze_thermix is active

Reported by: ajornet Owned by: somebody
Priority: major Milestone:
Component: Physical processes Version: trunc
Keywords: Cc:

Description

thermosoil_readjust must be called only when ok_freeze_thermix is active. This is due to pcappa_supp that is used within the subroutine. Otherwise there is an exception.

Regarding thermosoil, pcappa_supp is only initialized when:

IF (ok_freeze_thermix) THEN
   ALLOCATE (pcappa_supp(kjpindex,ngrnd,nvm),stat=ier)
   IF (ier /= 0) CALL ipslerr_p(3,'thermosoil_initialize', 'Error in allocation of pcapa_supp','','')
END IF

Proposed solution: [2782] (changeset)

Change History (2)

comment:1 Changed 5 years ago by jgipsl

OK_ECORR can not be activated without having ok_freeze_thermix=y. Add a stop in the model if ok_ecorr is activated without ok_freeze_thermix. Done in the trunk rev [2896].

comment:2 Changed 5 years ago by jgipsl

  • Resolution set to fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.