52 |
nhmsb = nhms0 |
nhmsb = nhms0 |
53 |
|
|
54 |
call fizhi_alarms(nymdb,nhmsb,deltaTClock) |
call fizhi_alarms(nymdb,nhmsb,deltaTClock) |
55 |
call fizhi_init_veg ( mythid, vegdata,idim2,jdim2,Nsx,Nsy,maxtyp, |
call fizhi_init_veg ( mythid, vegdata,idim2,jdim2,Nsx,Nsy, |
56 |
. surftype,tilefrac,igrd,ityp,chfr ) |
. nSx*nPx,nSy*nPy,maxtyp,nchp,surftype,tilefrac,igrd,ityp,chfr ) |
57 |
|
|
58 |
C Compute pressure profile to get methane and n2o values (bottom-up) |
C Compute pressure profile to get methane and n2o values (bottom-up) |
59 |
|
|