Chao Sun's comment is correct, because the allocate statements are in the do loop of "do nc = 1,nclumps".
The lines 1370 and 1374 should be fixed as follow:

     if(AERTYP.ne.'AER00D0') then  !Aerosol scheme on
       nout = 22
       allocate(c2r_all(nt*nout))
       if (.NOT. allocated(c2r_allout(numg*nout))) allocate(c2r_allout(numg*nout))
     else
       nout = 20
       allocate(c2r_all(nt*nout))
       if (.NOT. allocated(c2r_allout(numg*nout))) allocate(c2r_allout(numg*nout))
     end if

I am facing with another problem: After running the model, I checked the results and found that data in SRF and STS files are missing values or zero while outputs from ATM files are OK. Can anyone explain/help me?



--- On Mon, 5/7/12, Guangshan Chen <gchen9@gmail.com> wrote:

From: Guangshan Chen <gchen9@gmail.com>
Subject: Re: [RegCNET] (no subject)
To: "chao sun" <1988sunchao@gmail.com>
Cc: regcnet@lists.ictp.it
Date: Monday, May 7, 2012, 3:48 PM

Hi chao,

I don't think you can deallocate c2r_allout.

The array is used later in ./Main/clmlib/mod_mtrxclm.F90

When you look at the code, you will see this array is deallocated after using.

Guangshan Chen

On May 5, 2012, at 2:36 AM, chao sun wrote:

Hi all,
I found a bug in the code, it may cause a segment fault :
In ./Main/clmlib/clm_atmlnd.F90 line 1433
Fix:
Add the c2r_allout into the deallocate.

I am not very sure about it, and I would like to hear your suggestion.

Best regards.
Sincerely,
Sun Chao

_______________________________________________
RegCNET mailing list
RegCNET@lists.ictp.it
https://lists.ictp.it/mailman/listinfo.cgi/regcnet


-----Inline Attachment Follows-----

_______________________________________________
RegCNET mailing list
RegCNET@lists.ictp.it
https://lists.ictp.it/mailman/listinfo.cgi/regcnet