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