| Class | gridset_surfaceflux |
| In: |
../src/surface_flux/gridset_surfaceflux.f90
|
| Subroutine : |
subroutine GridsetSurfacefluxInit
imax = nx
jmax = ny
kmax = nz
! メッセージ出力
! Message Output
!
if (myrank == 0) then
call MessageNotify( "M", module_name, "imax = %d", i=(/imax/) )
call MessageNotify( "M", module_name, "jmax = %d", i=(/jmax/) )
call MessageNotify( "M", module_name, "kmax = %d", i=(/kmax/) )
end if
end subroutine GridsetSurfacefluxInit