fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F

7ae8fb32b5 Andr*0001 #include "FIZHI_OPTIONS.h"
                0002 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0003 CBOP
                0004 C     !ROUTINE: FIZHI_INIT_VEGSURFTILES
                0005 C     !INTERFACE:
ff726dc601 Jean*0006       subroutine fizhi_init_vegsurftiles(globalArr,xsize,ysize,
                0007      &                                   nymd,nhms,prec,myThid)
                0008
7ae8fb32b5 Andr*0009
                0010 C     !DESCRIPTION:
ff726dc601 Jean*0011 C      Read in grid space values of the land state
7ae8fb32b5 Andr*0012 C      and then convert to vegetation tile space
                0013
                0014 C     !USES:
                0015 C      Calls routine grd2msc to do grid to tile space for each bi bj
                0016       implicit none
                0017 #include "SIZE.h"
                0018 #include "fizhi_SIZE.h"
                0019 #include "fizhi_land_SIZE.h"
                0020 #include "fizhi_coms.h"
                0021 #include "fizhi_land_coms.h"
                0022 #include "fizhi_earth_coms.h"
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
                0025
                0026 C     !INPUT/OUTPUT PARAMETERS:
ff726dc601 Jean*0027       integer xsize, ysize
                0028       Real*8 globalArr(xsize,ysize,8)
7ae8fb32b5 Andr*0029       CHARACTER*1 prec
                0030       INTEGER nhms,nymd
                0031       INTEGER myThid
                0032
                0033 CEOP
                0034 C     !LOCAL VARIABLES:
                0035       integer n,bi,bj
                0036
                0037       DO bj = myByLo(myThid), myByHi(myThid)
                0038       DO bi = myBxLo(myThid), myBxHi(myThid)
                0039
                0040        do n = 1,nchp
                0041         tcanopy(n,bi,bj) = 300.
                0042         ecanopy(n,bi,bj) = 0.
                0043         tdeep(n,bi,bj) = 295.
                0044         swetshal(n,bi,bj) = 0.1
                0045         swetroot(n,bi,bj) = 0.1
                0046         swetdeep(n,bi,bj) = 0.1
                0047         snodep(n,bi,bj) = 0.
                0048         capac(n,bi,bj) = 0.
                0049        enddo
                0050
                0051       enddo
                0052       enddo
                0053
                0054       RETURN
                0055       END