/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/allocate_excurve_on_SFC_CF.f90
Go to the documentation of this file.00001 subroutine allocate_excurve_on_SFC_CF 00002 use grid_parameter, only : nrf, ntf, npf 00003 use def_excurve_on_SFC_CF 00004 use make_array_5d 00005 implicit none 00006 ! 00007 call alloc_array5d(tfkij_grid_fluid, 0, nrf, 0, ntf, 0, npf, 1, 3, 1, 3) 00008 tfkij_grid_fluid(0:nrf,0:ntf,0:npf,1:3,1:3) = 0.0d0 00009 ! 00010 end subroutine allocate_excurve_on_SFC_CF
