[RegCNET] how to modify albedo?

Yan Libin zjuyanlibin at 163.com
Sat Oct 10 04:39:36 CEST 2009


Hi, Dear Regcmers,

I want to modify the albedo where elevation is higher than 3000.
In the albedov.F file,
I wanna add some codes to reach the goal, but I am not sure how to cite ht variable.
This programme include main file,so ht is included in.
Here is my added codes,
if(ht(np)>=3000) then
       albvs(np)  = albvs(np)/dble(NNSG)*0.95
       albvl(np)  = albvl(np)/dble(NNSG)*0.95
       aldirs(np) = aldirs(np)/dble(NNSG)*0.95
       aldirl(np) = aldirl(np)/dble(NNSG)*0.95
       aldifs(np) = aldifs(np)/dble(NNSG)*0.95
       aldifl(np) = aldifl(np)/dble(NNSG)*0.95
end if

I want to know how to cite 'ht' in the right way.
Please give me a hand.
Thank you in advance.


c        
c  ***************not part of albedo in the ccm ****************
c        
       aldirs_s(n)=(1.-veg1d(n,np))*albgs +veg1d(n,np)*albs
       aldirl_s(n)=(1.-veg1d(n,np))*albgl +veg1d(n,np)*albl
       aldifs_s(n)=(1.-veg1d(n,np))*albgsd+veg1d(n,np)*albsd
       aldifl_s(n)=(1.-veg1d(n,np))*albgld+veg1d(n,np)*albld
      enddo
       albvs(np)  = albvs_s(1)
       albvl(np)  = albvl_s(1)
       aldirs(np) = aldirs_s(1)
       aldirl(np) = aldirl_s(1)
       aldifs(np) = aldifs_s(1)
       aldifl(np) = aldifl_s(1)
      do n=2,NNSG
       albvs(np)  = albvs(np) +albvs_s(n)
       albvl(np)  = albvl(np) +albvl_s(n)
       aldirs(np) = aldirs(np)+aldirs_s(n)
       aldirl(np) = aldirl(np)+aldirl_s(n)
       aldifs(np) = aldifs(np)+aldifs_s(n)
       aldifl(np) = aldifl(np)+aldifl_s(n)
      enddo
       albvs(np)  = albvs(np)/dble(NNSG)
       albvl(np)  = albvl(np)/dble(NNSG)
       aldirs(np) = aldirs(np)/dble(NNSG)
       aldirl(np) = aldirl(np)/dble(NNSG)
                                                                                              241,0-1       96%
       aldifl(np) = aldifl_s(1)
      do n=2,NNSG
       albvs(np)  = albvs(np) +albvs_s(n)
       albvl(np)  = albvl(np) +albvl_s(n)
       aldirs(np) = aldirs(np)+aldirs_s(n)
       aldirl(np) = aldirl(np)+aldirl_s(n)
       aldifs(np) = aldifs(np)+aldifs_s(n)
       aldifl(np) = aldifl(np)+aldifl_s(n)
      enddo
       albvs(np)  = albvs(np)/dble(NNSG)
       albvl(np)  = albvl(np)/dble(NNSG)
       aldirs(np) = aldirs(np)/dble(NNSG)
       aldirl(np) = aldirl(np)/dble(NNSG)
       aldifs(np) = aldifs(np)/dble(NNSG)
       aldifl(np) = aldifl(np)/dble(NNSG)
c ******   fsw1d(np),sabveg(np),solis(np) computed in colrad
90    continue      !end np=np1,npts loop
      return
      end

Libin Yan

2009-10-10 



Yan Libin 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.ictp.it/pipermail/regcnet/attachments/20091010/a7cc373f/attachment-0001.html>


More information about the RegCNET mailing list